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