DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Sub Test()
ActiveCell(0).EntireRow.Select
End Sub
Option Explicit
Sub Test()
Dim X As Long
X = ActiveCell.Row
Cells(X, "A").Select
End Sub
Option Explicit
Sub Test()
Cells(ActiveCell.Row, "A").Select
End Sub