2 - alt + F11 ile ilgili sayfanın Vba sayfasını açın
3 - aşağıdaki kodları yapıştırın
modülün en başına hücrenin ilk değerini kaydeden değişken tanımı eklenir
Dim EskiDgr
hücreye odaklanıldığında hücrenin değeri aşağıdaki kod ile hafızaya alınır böylece içerik değiştiğinde eski veriye ulaşılabilirPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
EskiDgr = Target.Value
End Sub
içerik değiştiğinde eski değerin yeri bulunup yan gücredeki değer alınıryeni değerin yeri bulunup veri oraya taşınır
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
YeniDgr = Target.Value
Set AramaE = Range("D").Find(what:=EskiDgr, LookIn:=xlValues, lookat:=xlWhole)
Set AramaY = Range("D").Find(what:=YeniDgr, LookIn:=xlValues, lookat:=xlWhole)
If Not AramaE Is Nothing Then If Not AramaY Is Nothing Then _
xDgr = AramaE.Offset(, 1).Value: AramaY.Offset(, 1).Value = xDgr: AramaE.Offset(, 1).Value = ""
End If
End Sub