excel hücresi belirttiğim sayıya ulaşınca bana msgbox i

[orcunerkek54]

arkadaşlar excel hücresi istediğim sayıya ulaşınca bana msgbox ile filanca malzeme 200 sayısına ulaştı v.s (birden fazla mal için ) diye mesaj verebilirmi ?verir ise bunu nası yaparız. herkeze teşekkürler. böyle sorular :? nereden aklıma geliyor bende anlamadım :hiho:

 

[nziya]

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = 1 Then
MsgBox "200 . sayıya ulaştınız"
End If
End Sub

 

[otufan03]

Sn.nurziye bu kodları nereye yazacağız.

 

[ismailayan]

yazılacak yer

merhaba


o kodu ARAÇLAR/MAKRO/Visual basic düzenleyiciden
aktiv sayfaya yapıştırman gerekiyor

kolay gelsin

 

[otufan03]

Mesaj çalışmadı,veya ben yapamadım.

 

[orcunerkek54]

syn nziya bey kodu çalıştırmayı başaramadım .örnek göndermeniz mümkünmü

 

[mehmett]

Sayfa1'ın adını sağ tıklayın, Kod görüntüle'yi seçin, gelen pencereye yukarıda verilen kodları yapıştırın.

Yalnız Sn nziya kodu yazarken yanlışlıkla

[vb:1:659efb1018]If Range("a1") = 200 Then [/vb:1:659efb1018]

yerine

[vb:1:659efb1018]If Range("a1") = 1 Then [/vb:1:659efb1018]

yazmış sanırım.


Sn nziya'nın affına sığınarak bu kodun uygulandığı dosya örneğini ekte gönderiyorum. Kodun nereye yazıldığını görmek isterseniz, Sayfa1 adını sağ tıklayın ve Kod görüntüle'yi seçin.

 

[orcunerkek54]

çok teşekkürler :hihoho: :hihoho:

 

[selim_1]

Uyarı mesajı

Koşullu biçimlendirme ile de deneyebilirsiniz.

 

[orcunerkek54]

syn selim bey sizede ilginizden ötürü çok teşekkür ederimbu siteye bayılıyorum :mutlu:

 

[orcunerkek54]

aynı sayfada çalışırken oluyor ancak userformdan kayıt yaparsam veya başka sayfada çalışırsam olmuyor başka sayfada da çalışırken ikaz vermesini sağlayabilirmiyim