zoeken groter dan 0

[wilbert1967]

hallo

hoe kan ik in een kolom zoeken naar > 0 zodat ik hier een eindpagina kan in vullen?

wilbert

 

[richard1970]

Beste Wilbert,

Wil je die pagina-einde handmatig invllen, of via een macro?
Als een filter op de kolom zet en dan groter dan nul intikt bij 'aangepast', dan kun je nog geen pagina-einde gebruiken want die moet een cel lager. Dus eigenlijk zoek je de eerste gevulde cel na een cel met een 0?
Is de nul ingeklopt, o het resultaat van een formule?
En in het laatste geval, kan de uitkomst van de formule wijzigen tijdens het gebruik?

Richard

 

[wilbert1967]

ik wil mbv een macro zoeken naar > 0 en dan regel einde in vullen

 

[richard1970]

waar moet die regeleinde dan komen. Boven de cel met een getal groter dan nul, of onder de cel met het getal groter dan nul.
Moet dan bij ieder getal groter dan nul gebeuren?

 

[wilbert1967]

op de cel die groter is dan 0 , boven de cel komt de pagina einde streep

 

[richard1970]

Hopelijk kun je een beetje overweg met VBA:

Do Until ActiveCell.Value = ""
    ActiveCell.Offset(1, 0).Range("A1").Select
    If ActiveCell.Value > 0 Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    Else
End If
Loop

Deze lus doorloopt vanaf de actieve cel alle onderliggende cellen tot de eerste lege cel om te beoordelen of de waarde boven nul ligty. Zo ja, dan wordt een pagina-einde ingevoerd.

Richard

 

[wilbert1967]

super het werkt
dank je