Beste forummers

Zoeken naar de laatste lege cel in een rij is geen probleem maar deze rij is onderbroken door cellen die niet meetellen.
Ik heb het volgende maar werkt niet naar behoren, wat doe ik hier verkeerd,

Sub loopmaken()

Range("B8").Select
Do
    ActiveCell(2, 1).Select
Loop While ActiveCell > 1
   
If ActiveCell = [B59] Then
    Range("B63").Select
        Do
        ActiveCell(2, 1).Select
        Loop While ActiveCell > 1
        End If

        If ActiveCell = [B118] Then
            Range("B122").Select
            Do
            ActiveCell(2, 1).Select
            Loop While ActiveCell > 1
            End If

            If ActiveCell = [B177] Then
                Range("B181").Select
                Do
                ActiveCell(2, 1).Select
                Loop While ActiveCell > 1
                End If

                If ActiveCell = [B236] Then
                    MsgBox "Bladen vol"
                    Exit Sub
                End If

End Sub

Als cel "B59" is bereikt (die leeg is maar niet mee telt) moet er verder gezocht worden vanaf "B63" enz..
** De onderbreking is het einde van het (te printen) Blad en op rij 61 staat een nieuwe hoofding voor Blad 2 enz **
Hartelijk dank voor de hulp

Hallo Hombre,

Wat is de uiteindelijke bedoeling?

Je "MessageBox" boodschap maakt ons ook niet veel wijzer over het doel van je project.

Countif is geen optie??

SoftAid

SoftAid

Het betreft hier een overzicht van uitgaven met vooraf ingestelde bladen. Deze hebben telkens een hoofding "in" het Excel blad zodat enkele rijen niet meetellen voor het zoeken naar de eerste lege cel. Indien dus blad 1 vol is moet gezocht worden op blad 2 maar dit is wel dezelfde sheet natuurlijk. Dit om snel naar de eerste lege cel te springen bij het invullen van een uitgave.
Mocht deze hoofding er niet zijn was het eenvoudig en liep de rij gewoon door maar deze kan niet weg wegens overzichtelijkheid van de sheet.

Hopelijk is dit iets duidelijker.

Beste Leo

Misschien nog iets verduidelijken,
Ik heb een sheet voor een kasboek, elke keer wordt één of meerdere "posten" ingevuld. Ik heb een macro gemaakt die controleert tot waar de sheet is ingevuld en zo één, twee of meerdere bladen afdrukt.
Hierdoor is het blad dus op voorhand onderverdeeld op de juiste positie "einde pagina" maar staan hier dus hooftitels tussen die ik niet in een koptekst of voettekst wil zetten.
De zoeklijn(kolom) naar de laatste cel, is dus ondebroken door deze titels en twee lege rijen want het is inderdaad de bedoeling naar de laatste lege cel te gaan door een knop om direct te kunnen invullen.

Als ik een controle kan maken waar de cursor staat ben ik er maar dit lukt me niet.
"If ActiveCell = [B59] Then" of
"If ActiveCell = Range ("B59") Then"
werkt niet!!!

Hopelijk is dit duidelijker anders hoor ik het wel
Hombre

Hombre, Ik heb een nieuwe procedure voor je geschreven die cel voor cel test of deze leeg is. Zo ja, verlaat de loop. Zo nee, test wat het adres is van de cel en kijk of je een 'sprongetje' moet maken.

Is dit wat je bedoelde?   (zie bijlage)

Groet, Leo