Kod:
Private Sub CommandButton1_Click()
Worksheets("sheets2").Activate
End Sub
örneğin sheets2 de 500 satır var dolu olarak tıkladığımda 501. boş satıra gelsin
Private Sub CommandButton1_Click()
Worksheets("sheets2").Activate
End Sub
Dim sht As Worksheet
Dim LastRow As Long'Son Satır
Worksheets("sheets2").Activate
Set sht = ActiveSheet
Private Sub CommandButton1_Click()
Dim sht As Worksheet
Dim LastRow As Long 'Son Satır
Worksheets("sheets2").Activate
Set sht = ActiveSheet
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
FindingLastRow = LastRow
End Sub