Koşul Koyma

[emrehan26]

İyi günler,

A1 ve G1 arası rakamlar giriyorum.A1 e girebileceğim değerler 1-10 arası herhangi bir sayı F1 e ise 1 ya da 2 giriliyor.
Yapmaya çalıştığım veri doğrulama ile değil de kod ile şu kontrolü sağlamak.
A1 1 ise F1 2 olamaz. Yani A1 e 1 girilmişse F1 'e 2 yazılmasını engellemek.
Hatta A1 1 ise F1 2 olamaz diye bir msj kutusu ile uyarmak.
Yardımlarınız için teşekkür ederim.

 

[emrehan26]

Hala bulamadım bir çözüm tekrardan yardımlarınızı rica ediyorum.

 

[mancubus]

ilgili sayfanın kod modülüne kopyalayınız.
yazdıklarınıza göre tek kriter var: eğer A1 = 1 ise F1 = 2 olamaz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> "$F$1" Then Exit Sub
    If Range("A1").Value <> 1 Then Exit Sub
    
    If Target.Value = 2 Then
        Target.Value = ""
        MsgBox "A1 hücresi 1 olduğundan F1 hücresi 2 olamaz. Başka bir değer giriniz!"
    End If

End Sub