hücre seçilince çalışan makro

[Schuba]

arkadaşlar şöyle bir koda ihtiyacım var

(P19) Hücresi seçilince (burasına dikkat seçilince yani hücrenin üstüne gelip birkere tıklayınca yani çift tıklıyıp veya hücrenin içine girince değil sadece hücreyi seçince )

eğer (L19) hücresinde (AÇIK ) yazıyorsa msaj kutusu çıksın ve içinde (yanlış işlem yapıyorsunuz yazssın) uyarısı versin

yok eğer herhangi başka birşey yazıyorsa veya (L19)' hücresinin içi boşsa herhangi bir işlem olmasın

yardımlarınız için şimdiden teşekkürler....

 

[Orion1]

Buyurun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [P19]) Is Nothing Then Exit Sub
If Range("L19").Value = "AÇIK" Then
    MsgBox "Yanlış işlem yapıyorsunuz!!", vbCritical, "UYARI"
    Exit Sub
End If
End Sub

 

[Schuba]

Hocam gayet güzel çalişiyor teşekkür ederim

 

[Orion1]

Hocam gayet güzel çalişiyor teşekkür ederim

Rica ederim.İyi çalışmalar.