VBA'da hücreye girilen değere göre, başka hücrede uyarı veya metin çıkması

[winstonexcel]

Arkadaşlar merhaba Excel'i öğrenmeye başladım.
A1 hücresine mesela bir değer girildiğinde, bu değerin doğru veya yanlış olduğunun B1 hücresinde metin veya uyarı olarak çıkmasını istiyorum. Bunun kodunda yardımcı olabilir misiniz?

 

[pitchoute]

Merhaba, "DoğruDeğer" yerine sizin doğru kabul ettiğiniz değere göre düzenleyin lütfen;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Application.EnableEvents = False
        If Target.Value = "DoğruDeğer" Then
            Range("B1").Value = "Doğru"
        Else
            Range("B1").Value = "Yanlış"
        End If
        Application.EnableEvents = True
    End If
End Sub