koşula bağlı msgBox un belirmesi

[cetvel]

arkadaşlar, d1 hücresine a hücresindeki değerlerden biri girildiğinde msgBox belirmesi işini nasıl halladebilim

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D1]) Is Nothing Then Exit Sub
    If Range("D1").Value = "" Then Exit Sub
    Set k = Range("A1:A65536").Find(Range("D1").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        MsgBox "[ " & Target.Value & " ] A sütununda var.!", vbCritical
        Range("D1").Select
    End If
Set k = Nothing
End Sub

 

[Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To [A65536].End(xlUp).Row
If Range("D1") = Cells(i, 1) Then MsgBox ("Bu değer var")
Next
End Sub

 

[Recep İpek]

Ekli dosyanızı inceleyiniz.Makrosuz çözüm.

 

[altanson]

4 dakika içinde 3 farklı çözüm

ne denilebilir ki? ellerinize sağlık harikasınız