Worksheet_Change; Eski değer al sonra işlem

[conari]

Change kodunda değişen hücrenin önceki değerini nasıl alabilirim.

 

[Necdet]

Merhaba,

SelectionChange ile eski değeri alarak yaptım. Örnek A sütunu için geçerlidir.

Public Secim As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
MsgBox "Eski Değer : " & Secim
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Secim = Target.Value
End Sub

 

[conari]

Eyvallah,
İşime yaradı.
Farklı bir prosedüre girmeden olsaydı iyi olurdu ama ne yapalım.