Eski değeri yazsın

[mozdem]

merhabalar,
çalışırken ara sıra öyle şeylerde zorlanıyorum ki, sonradan nasıl oldu da burada takıldım diyorum. işte öyle bir durumdayım.
örnek dosyayı ekledim ama yine de anlatmaya çalışayım.
Yukarı ve aşağı yönde giden bir sayı var. Bir hücredeki sayı Yukarı yada aşağı giderken, başka hücreye Yeni değeri, yine başka hücreye eski değeri yazsın istiyorum.

değer 8 iken 9 değerini aldı ise Eski değer=8 Yeni değer=9 olarak yazsın
değer 9 iken 8 değerini aldı ise Eski değeri =9 yeni değeri= 8 olarak yazsın

şimdiden teşekkür ederim.

 

[ÖmerFaruk]

Aşağıdki kodu kullanabilirsin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D2]) Is Nothing Then Exit Sub
    Range("F3") = Range("G3")
    Range("G3") = Range("D3")
End Sub

 

[mozdem]

Hocam ben kodları Worksheet_Change olayına değil de Worksheet_Calculate olayı içinde kullanmak istiyorum.
Sanırım Intersect yada Target kodlarını burada kullanamadığımdan hata veriyor.
Yardımcı olursanız sevinirim.

Aşağıdki kodu kullanabilirsin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D2]) Is Nothing Then Exit Sub
    Range("F3") = Range("G3")
    Range("G3") = Range("D3")
End Sub

Private Sub Worksheet_Calculate()
If Intersect(Target, [D2]) Is Nothing Then Exit Sub
    Range("F3") = Range("G3")
    Range("G3") = Range("D3")
End Sub

 

[ÖmerFaruk]

Change olayında kullanamamanıza sebep olan durum nedir?
Change olayında farklı kodlarınız varsa da bu kodların çalışmasına engel değil.
İlla Calculate olayında çalıştıracağım diyorsanız

Private Sub Worksheet_Calculate()
    Range("F3") = Range("G3")
    Range("G3") = Range("D3")
End Sub

 

[mozdem]

Change olayında kullanmama sebebim, veriler Formül sonucu değişikliklerde çalışmasını istememden dolayıdır.

cevap için teşekkür ederim. Süpersiniz.