Hücreye yazılan değere bağlı msgbox

[orast26]

Bir konuda yardım istiyorum.

Sayfadaki hücrelere bazı bilgiler girmem gerekiyor. Eğer istemediğim bir şey yazarsam bana msgbox çıkmasını istiyorum. Örneğin A1 hücresine "X" yazarsam bir msgbox çıksın istiyorum. Bunun için general da hangi kodu yazmam gerekir.

Teşekkürler.

 

[bzace]

Merhaba,
Şu şekilde bir denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "X" Then
MsgBox "Hücreye X yazamazsınız.!", vbCritical
Else
End If
End Sub

 

[orast26]

merhaba,
şu şekilde bir denermisiniz.

private sub worksheet_change(byval target as range)
ıf range("a1") = "x" then
msgbox "hücreye x yazamazsınız.!", vbcritical
else
end ıf
end sub

malesef olmadı

 

[bzace]

Ekteki dosya Sayfa1 A1 hücresine büyük har ile
X
Yazarmısınız.

 

[orast26]

ekteki dosya sayfa1 a1 hücresine büyük har ile
x
yazarmısınız.

teşekkürler yanlış yere yazmışım makro biraz karışıkta

kusura bakmayın

 

[orast26]

Ekteki dosya Sayfa1 A1 hücresine büyük har ile
X
Yazarmısınız.

peki A1 hücresi ile D1 hücresi arasında herhangi ber yerde X varsa hepsinde olabilr sadece bi tanesinde olabilr ama yine uyarı vermesi lazım o zaman nasıl bir kod yazmam lazım

 

[bzace]

Kolay gelsin.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyada iki farklı çözüm sunulmuştur.

• Veri doğrulama
• Makro ile uyarı