[حل شده] بازگردانی آدرس ردیف فعال در اکسل

[fmns59319]

سلام
من می خوام یک تابع داشته باشم که هر وقت آدرس ردیف فعال شیت تغییر کرد بعد از زدن یک دکمه button بتونم اون رو در یک سلول دیگه نشون بدم

[mch2v]

سلام
یک CommandButton ایجاد کنید و این کد رو داخلش بنویسید

Private Sub CommandButton1_Click()

Range("a1") = ActiveCell.Row

End Sub 

[iranweld]

با سلام

با کد زیر نیاز به button نیز نمی باشد.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("a1") = ActiveCell.Address
Range("a2") = ActiveCell.Column
Range("a3") = ActiveCell.Row


End Sub