Satır ve Sutun numarasını öğrenmek

[mozdem]

Ek Dosyada da yapmaya çalıştığım gibi, veri girdiğim hücrenin satır ve sutun numarasını öğrenmek istiyorum.
Yardımlarınızı bekliyorum.
Aşağıdaki kodlar ile yaptığımda veri girilen değil veri girildikten sonra seçilen aktif hücrenin adresini veriyor.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim satır
Dim sutun
If Intersect(Target, [D3:K32]) Is Nothing Then Exit Sub
satır = ActiveCell.Row
sutun = ActiveCell.Column
MsgBox "satır= " & satır & "sutun =" & sutun
End Sub

 

[uzmanamele]

Merhaba

Bunu deneyiniz

satır = Target.Row
sutun = Target.Column

 

[Muzaffer Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "satır= " & Target.Row & vbLf & "sutun =" & Target.Column
End Sub

 

[mozdem]

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "satır= " & Target.Row & vbLf & "sutun =" & Target.Column
End Sub

Çok teşekkür ederim.

 

[mozdem]

Merhaba

Bunu deneyiniz

satır = Target.Row
sutun = Target.Column

Evet hocam çok teşekkür ederim, elinize sağlık.