Laatste cel in een rij

[keesbl]

Dag iedereen,

Hoe kan ik met vba naar de laatste cel met gegevens in de actieve rij springen? Dus stel als ik in cel b3 op werkblad 1 sta, wat is dan de code om naar de laatste gevulde cel in rij 3 te gaan?

Dank voor het meedenken!

Kees

 

[spaarie]

Je kan het zo ingewikkeld maken als maar kan, maar denk dat het hiermee wel duidelijk wordt;

Sub Spaarie()
    With ActiveSheet
        r = .ActiveCell.Row
        c = .Rows(r).Find("").Column - 1
        Application.Goto .Cells(r, c)
    End With
End Sub

 

[keesbl]

Ha Spaarie,

Dat is 'em helemaal

Dank je wel!

Kees