B1> A1; "1.uyarı", C1>A1;"2.uyarı",.......

[sdegirmenci]

Değerli üstadlar,
Ambigus name dedected:worksheed_Change hatası. aşağıda sayın "ripek" in yazdığı kodu uyguladım.yalnız sayfa üzerinde ki diğer bir kodla çakıştığından zannediyorum ,bu hatayı veriyor. Çünkü mevcut kodlatı sildiğimde çalışıyor.Bunu çözmemiz mümkünmü.Diğer kod a1 den sonra b1 ' i seçmesi için yazılmıştı.
Çakıştığı önceki mevcut kod : Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$a$1" Then [b1].Select

 

[Recep İpek]

Aşağıdaki kodlar fikir verebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
If Intersect(Target, [a1:e1]) Is Nothing Then Exit Sub
If [b1] > [a1] Then
MsgBox "1.Uyarı"
[b1].Select
ElseIf [c1] > [a1] Then
MsgBox "2.Uyarı"
[c1].Select
ElseIf [d1] = [e1] Then
MsgBox "3.Uyarı"
[d1].Select
Else
Exit Sub
End If
End Sub

 

[sdegirmenci]

Sayın RİPEK,
İlginize öncelikle çok teşekkür ederim
Kod konusunda fazla bilgili değilim.Ben bütün uyarıları a1 hücresi nin vermesini istiyorum.(Yani a1 hücresine veri girdikten sonra diğer hücrelerin durumlarına göre )
Kodu sayfanın altına attım,yalnız " Ambigus name dedected:worksheed_Change " hata vermekte

 

[Recep İpek]

Kodlarda küçük bir değişliklik yaptım.

Ayrıca eğer uyarıyı mesaj kutusu ile değilde renk olarak gösterilmesini istiyorsanız da bu alternatifte eklenmiştir.

Örnek dosyayı inceleyebilirsiniz.