DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Cells(Rows.Count, "A").End(3).Offset(1).Select
[a1].End(xlDown).Offset(1).Select
Bu da ilk boş hücreyi seçiyor maalesef.Bu şekilde bir deneyiniz.
Kod:[a1].End(xlDown).Offset(1).Select
[a4].End(xlDown).Offset(1).Select
Sub Bos()
On Error GoTo Son
Dim i As Long
i = Cells(Rows.Count, "A").End(3).Row
Cells(i, "A").End(3).Offset(-1).Select
Exit Sub
Son:
Cells(i + 1, "A").Select
End Sub
Sub numan()
[A65536].End(xlUp).Select
If ActiveCell = Range("A1") Then GoTo son
10
If ActiveCell <> "" Then
ActiveCell.Offset(-1, 0).Select
If ActiveCell.Address = Range("A1").Address Then GoTo son
GoTo 10
End If
son:
End Sub