IF functie probleempje

[tepke]

Hoi medegebruikers

in het onderstaande scriptje kopieer ik regels naar een ander sheet als deze voldoen aan de grenswaarde
MW_onderfrens is een waarde die ik instel
MW_cell_perc is wat er in de rij staat als percentage

bijvoorbeeld als in de rij 20% of minder staat moet het systeem de regel kopiëren en plakken in een andere sheet

 If MW_cell_perc <= MW_ondergrens Then
          Rows(ActiveCell.Row).Select
          Selection.Copy
          Sheets("rapport3_ondergrens").Paste
          Sheets("rapport3_ondergrens").Select
          ActiveCell.Offset(1, 0).Select
        End If

het gaat om If MW_cell_perc <= MW_ondergrens Then
ik wil eigenlijk alles wat onder de deze waarde zit met uitzondering van het getal 0.
getal moet het systeem niet kopiëren

weet iemand of ik de if functie kan uitbreiden zodat hij het getal o overslaat?

alvast bedankt

 

[edmoor]

Zoiets?
If MW_cell_perc <= MW_ondergrens And MW_cell_perc > 0 Then

 

[OctaFish]

En je kopie actie kan ook een stuk korter:

    Rows(ActiveCell.Row).Copy
    Sheets("Blad2").Paste

Overigens geef je nergens aan waar de rij geplakt moet worden, dus ik vind 'm nogal riskant. Staat de cursor in de verkeerde cel, dan heb je een probleem...

 

[tepke]

oke bedankt octafish, ik ga erna kijken, weer iets geleerd.

het antwoordt van Edmoor is nog niet compleet voor mij, we zijn een stukje verder , hij pakt nu alles beneden mijn grens tot net boven 0 maar ik moet ook nog alles onder 0 hebben.
0 moet eigenlijk worden uitgesloten

 

[edmoor]

Dat lijkt me dan eenvoudig te doen met het gegeven voorbeeld toch?