stoppen als cel leeg is

[mrnico]

Hallo

Ik denk vast veel te moeilijk maar ik probeer een loop te maken die doorgaat tot de laatste regel.
dus de lege cel. Echter leek het heel even te werken maar nu gaat neemt hij gewoon de lege cel mee.
Want ja in op de andere pagina zitten ook lege cellen.

Sub plaatsknop1()

 rij1 = Sheets("urenlijst").Range("h1")
 
 


Dim dataRange As Range, strfound As Range
Dim x As String
Set dataRange = Sheets("Totaal_lijst").Range("B:B")
x = Sheets("urenlijst").Range("A" & rij1)
With dataRange
Set strfound = .Find(What:=x, LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not strfound Is Nothing Then
MsgBox (x & " gevonden in cel " & strfound.Address)
Call plaatsknop2
Else
Sheets("urenlijst").Range("h1") = "1"
End If
End With

End Sub

 

[HSV]

Geen idee wat het moet worden.

De laatste beschreven regel in kolom B vind je met:

msgbox cells(rows.count,2).end(xlup).row

Een range wordt dus.

msgbox range("B1",cells(rows.count,2).end(xlup)).address

 

[HSV]

Staat je vraag per ongeluk op opgelost of is het in een keer goed beantwoord?

 

[mrnico]

Door jou antwoord heb ik de oplossing gevonden