Aşağıda ki kodu ben oldukça sık kullanırım.
Sub sonsatir()
Dim ws As Worksheet
Dim son As Integer
Set ws = Worksheets("Sayfa1")
son = ws.Cells(Rows.Count, 1).End(xlUp).Row
End Sub
Kolay gele…
Aşağıda ki kodu ben oldukça sık kullanırım.
Sub sonsatir()
Dim ws As Worksheet
Dim son As Integer
Set ws = Worksheets("Sayfa1")
son = ws.Cells(Rows.Count, 1).End(xlUp).Row
End Sub
Kolay gele…
İlk Yorumu Siz Yapın