Uyaran açıklamalar veya mesajlar

[rekkezum]

Kolay gelsın arkadaslar,
a1 e ahmet yada sadece ahmet adına aıt bır ID numarası yazıldıgında b1 de ackılama seklınde yada mesaj ıle benı uyarmasını saglayabılırmıyım

 

[faksu]

B1 hücresinde formül mevcut umarım işinize yarar.

 

[rekkezum]

Dostum ılgın ıcın cok tesekkur oncelıkle
acıklama (comment) eklersın ya hucreye bunu o sekılde gosterebılmek mumkunmu
yada mej box seklınde.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz.

1. Kod açıklama ekleme yöntemi;

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If UCase(Replace(Replace(Target, "i", "İ"), "ı", "I")) = "AHMET" Then
    On Error Resume Next
    Target.Offset(0, 1).Comment.Delete
    Target.Offset(0, 1).AddComment "DİKKAT !" & Chr(10) & Target.Address(0, 0) & " hücresine AHMET yazdınız !"
    End If
End Sub

2. Kod MsgBox yöntemi;

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If UCase(Replace(Replace(Target, "i", "İ"), "ı", "I")) = "AHMET" Then
    MsgBox Target.Address(0, 0) & " hücresine AHMET yazdınız !", vbExclamation, "Dikkat !"
    End If
End Sub

 

[rekkezum]

hocam ılgınızı ıcın tesekkur,ben bır yerden kopyalayıp a1 den baslamak uzere yapıstırıcam msjbox lar pespese mı patlayacak. bırde bu acıklamaları gorunur olması ımkanı varmı yanı a1 e ahmet yazdıgımda acıklama eklesın ve anında gorunur olsun.

 

[Korhan Ayhan]

Selamlar,

Ben kodu uyguladığımda açıklamalar görünür durumda oluyor. Eğer sizde olmuyorsa aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target = Empty Then Target.Offset(0, 1).Comment.Delete
    If UCase(Replace(Replace(Target, "i", "İ"), "ı", "I")) = "AHMET" Then
    Target.Offset(0, 1).Comment.Delete
    Target.Offset(0, 1).AddComment "DİKKAT !" & Chr(10) & Target.Address(0, 0) & " hücresine AHMET yazdınız !"
    Target.Offset(0, 1).Comment.Visible = True
    End If
End Sub

 

[rekkezum]

hocam vallahı ne dım ellerıne saglık
pekı a1 e ahmet yazdım acıklama geldı a1 ı temızledıgımde acıklamanın kendılıgınden kaybolma gıbı bır sansımız varmı

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.