• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü VBA'da hücreye girilen değere göre, başka hücrede uyarı veya metin çıkması

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

winstonexcel

Yeni Üye
Katılım
5 Ocak 2025
Mesajlar
2
Aldığı beğeni
0
Excel V
Office 2010 TR
Konu Sahibi
A1 hücresine mesela bir değer girildiğinde, bu değerin doğru veya yanlış olduğunun B1 hücresinde metin veya uyarı olarak çıkmasını istiyorum. Bunun kodunda yardımcı olabilir misiniz?
 
Çözüm
İlgili sayfanın worksheet_change olayına gireceğiniz
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
benzeri kod A1 hücresinde girdiğiniz değere göre B1'de istediğiniz mesajın verilmesini sağlar. Örnek kodda A1 için 100 veya 200 değeri girilirse B1'de doğru yazar, diğer girişlerde ise yanlış yazar.
İlgili sayfanın worksheet_change olayına gireceğiniz
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
benzeri kod A1 hücresinde girdiğiniz değere göre B1'de istediğiniz mesajın verilmesini sağlar. Örnek kodda A1 için 100 veya 200 değeri girilirse B1'de doğru yazar, diğer girişlerde ise yanlış yazar.
 
Çözüm
Konu Sahibi
İlgili sayfanın worksheet_change olayına gireceğiniz
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
benzeri kod A1 hücresinde girdiğiniz değere göre B1'de istediğiniz mesajın verilmesini sağlar. Örnek kodda A1 için 100 veya 200 değeri girilirse B1'de doğru yazar, diğer girişlerde ise yanlış yazar.
kodu debug edince Invalid use of Me keyword hatası aldım. Bu arada Excel'i yeni yeni öğreniyorum
 
Excel sayfanızı sağ tıklayıp kodu göster diyerek veya ALt +F11 ile girdiğiniz VBA editörde ilgili sayfayı çift tıklayarak açılan sağ pencerede üst kısımda yer alan soldaki Genaral yazan comboboxtan Worksheeti sağ tarafta Declarations yazandan ise Change olayını seçip kodu Private Sub Worksheet_Change(ByVal Target As Range) ve End Sub arasına gireceksiniz.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst