Bir önceki hücre adresini değişkene atamak

[dEdE]

Merhabalar,
Hücrelere belli bir sıra olmaksızın (A7, C11, B3, D9 gibi) veri girerken aktif olan hücreden bir önce işlem yaptığımız hücrenin adresini bir değişkene atayıp msgbox'ta göstermek istiyorum.
Yardımcı olabilir misiniz?
Teşekkürler.

 

[Orion1]

bir modul oluşturun.Ona aşağıdaki kodu yazın.

Global adr As String

sayfa1de change olayındaki kod aşağıdaki gibi olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)
adr = adr & "-" & Target.Address
End Sub

bir modül oluşturun.Onada aşağıdaki kodu yazın.
Sonra bir kaç hücreye veri girdikten sonra aşağıdaki prosedürü çalıştırın.

Sub goster59()
MsgBox adr
adr = ""
End Sub

 

[dEdE]

Teşekkürler...
Tam istediğim gibi.

 

[Orion1]

Teşekkürler...
Tam istediğim gibi.

Rica ederim.
Kolay gelsin.
Ayarıca destek ekibinde olmanız içinde hayırlı olsun derim.