son dolu hücreyi seçme

[mesutaygun70]

sub son()
Dim son As Integer
son = Range("A65536").End(3).Row + 1
Cells(son, 1).Select
End Sub
Yukardaki gibi kodum var. Ama hücreler formüllü olduğu için son formüllü hücreyi seçiyor. Formüller sonucu boşsa o hücreyi seçmesini nasıl sağlarım.

 

[kulomer46]

Bu kod işinize yarayabilir..

For i = Cells(65500, 3).End(xlUp).Row To 1 Step -1

If Cells(i, 3) <> 0 Then
Cells(i, 3).Select
GoTo atla1
End If

Next
atla1: