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