Hücre değişikliğinde evet hayır eski değer

[arrow3441]

Merhabalar a1 hücrede açılır listem var listeden bir seçim yaptıgımda evet hayır mesajı çıktıgında hayırı seçersem eski değer dönmesi için nasıl yapılması gerekir. Yardımcı olurmusunuz . Evet seçersem seçtigim değer yazsın

 

[arrow3441]

Alttaki kodu buldum çalışıyor fakat a1 den lisiteden seçim yaptıgımda evet hayır seçeneklerinden hayır seçitigimde önceki değere geri dönmesi için ne yapılması gerekir

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cevap As Integer
    Static oldW1  As Variant
   


   
   
    If Target.Address = "$A$1" Then
        If Target.Value <> oldW1 Then
       
        oldW1 = Target.Value
           
        cevap = MsgBox(" Kişi Aktarılıcaktır. Eminmisin" & vbCrLf & "Eminmisiniz...", vbYesNo + vbQuestion, "ONAY")
If cevap = vbNo Then
    MsgBox "İşleminiz iptal edilmiştir."

    Exit Sub
Else
           
           
           
       
        End If
    End If
    End If
End Sub

 

[ÖmerFaruk]

Boş bir modül içine (mesela module1) aşağıdaki satırı yapıştırın.

Public OldValue As Variant

Sayfadaki mevcut kodlarınızı silerek aşağıdakileri komple yapıştırın.

Private Sub Worksheet_Activate()
    OldValue = Range("A1").Value
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cevap As Integer
    If Not Target.Address = "$A$1" Then Exit Sub
    Application.EnableEvents = False
    cevap = MsgBox(" Kişi Aktarılıcaktır. Eminmisin" & vbCrLf & "Eminmisiniz...", vbYesNo + vbQuestion, "ONAY")
    If cevap = vbNo Then
        MsgBox "İşleminiz iptal edilmiştir."
        Target.Value = OldValue
    Else
        OldValue = Target.Value
    End If
    Application.EnableEvents = True
End Sub

 

[arrow3441]

Ömer hocam çok sağolun istedigim gibi çalışıyor fakat dosyayı kapattım tekrar açtım seçtigimde hayır tıkladım . Boş hücre oldu a1
Birde hocam mesela ayşe seçili ben ayşe tekrar seçtiğimde uyarı çıkmasa yapılabilirmi

 

[Korhan Ayhan]

Deneyiniz.

 

[arrow3441]

Evet korhan bey çok teşekkür ederim elinize sağlık düzelmiştir.