"Worksheet_Change" öncesi hücre değeri

[tamer42]

Merhaba,
Aşağıdaki kodda sayfada bir hücrede yapılan değişiklik sonucunda son değeri alabiliyoruz,
öğrenmek istediğim; burada değişimden önceki değeri nasıl alabiliriz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
    MsgBox Target.Value
End If
End Sub

ilginiz için şimdiden teşekkürler,
iyi haftasonları...

 

[Necdet]

Merhaba,

Public bir değişken tanımı yaparsınız.
Worksheet.selection olayında değeri o değişkene aktarırsınız.
değişiklikten önceki değer olur.

Public EskiDeger As Variant

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
    
    MsgBox "Eski Değer : " & EskiDeger & " Yeni Değer : " & Target.Value
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
    EskiDeger = Target.Value
    
End Sub

 

[Muzaffer Ali]

Merhaba.

Dim OncekiDeger As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        MsgBox OncekiDeger
        MsgBox Target.Value
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OncekiDeger = Target.Value
End Sub

 

[tamer42]

Merhaba.

Dim OncekiDeger As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        MsgBox OncekiDeger
        MsgBox Target.Value
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OncekiDeger = Target.Value
End Sub

Necdet & Muzaffer Hocam ilginize çok teşekkürler...

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.