excelde makro ile uyarı mesajı

[HEROGERONIMO]

Merhaba arkadaşlar. ben excelde veri doğrulama ile açılan bir listeden "özel" kelimesi seçildiğinde makro ile uyarı mesajı çıkmasını istiryorum. veri doğrulama listesi T sütununda T17 ile T310 arasındaki tüm satırlara uygulanmıştır. bu aralıkta herhangibir satırda "özel" kelimesi seçildiğinde bir uyarı mesajı çıkmasını istiyorum.Yardımcı olabilirseniz çok memnun olurum.

 

[askm]

Veri doğrulama ekranında Hata Uyarısı kısmına istediğiniz uyarı mesajını yazabilirsiniz.

 

[HEROGERONIMO]

Veri doğrulama ekranında Hata Uyarısı kısmına istediğiniz uyarı mesajını yazabilirsiniz.

evet ama ben hem "özel" kelimesi seçildiğinde uyarı çıksın istiyorum hemde zaten hücrelerde başkabir veri doğluma tanımlı.bir hücrede iki tane ayrı veri doğlumaya yapamıyorum

 

[HEROGERONIMO]

Veri doğrulama ekranında Hata Uyarısı kısmına istediğiniz uyarı mesajını yazabilirsiniz.

örnek dosyada e2:e13 arasıdaki herhangi bir satırda "Özel Kulp" seçildiğinde uyarı penceresi açılmasını ve "Lütfen özel kulp detaylarını açıklamalarda belirtiniz" yazısının çıkmasını istiyorum

 

[askm]

Dosyanızı ekleyin bakalım.

 

[HEROGERONIMO]

Dosyanızı ekleyin bakalım.

örnek dosyayı önceki mesajda eklemiştim.tekrar ekledim

 

[askm]

Sayfanın kod bölümüne aşağıdaki kodları ekleyin.(Örnek dosyayı eklemden önce açmıştım yazınızı örneği görmemiştim.) Not sorunuzda T1:T30 dediğiniz için ona göre yazıldı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [T1:T30]) Is Nothing Then Exit Sub
If InStr(1, Target.Value, "Özel") > 0 Or InStr(1, Target.Value, "özel") > 0 Then
    MsgBox "UYARI"
    Target.Select
End If
End Sub

 

[HEROGERONIMO]

Sayfanın kod bölümüne aşağıdaki kodları ekleyin.(Örnek dosyayı eklemden önce açmıştım yazınızı örneği görmemiştim.) Not sorunuzda T1:T30 dediğiniz için ona göre yazıldı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [T1:T30]) Is Nothing Then Exit Sub
If InStr(1, Target.Value, "Özel") > 0 Or InStr(1, Target.Value, "özel") > 0 Then
    MsgBox "UYARI"
    Target.Select
End If
End Sub

sayın "askm" elinize sağlık.teşekkür ederim.tam istediğim gibi olmuş.gayet güzel çalışıyor.ancak şu an farkettim.benim bir sorunum daha var. ben excel de iyiyim ama makroyu bilmiyorum. yazdığınız bu makroyu ekleyeceğim excel dosyasında zaten başka bir makro daha var. sizin yazdığınız makroyu aynı sayfaya nasıl ekleyip kaydedebilirim?bunu yapamıyorum.

 

[askm]

Asıl dosyanızı bana mail atın. Öğleden sonra bakayım.
askmadige34@hotmail.com

 

[HEROGERONIMO]

Asıl dosyanızı bana mail atın. Öğleden sonra bakayım.
askmadige34@hotmail.com

tamam.asıl dosyayı mail ile gönderdim.teşekkürler.

 

[HEROGERONIMO]

tamam.asıl dosyayı mail ile gönderdim.teşekkürler.

çok teşekkür ederim.elinize sağlık.

 

[askm]

Rica ederim. Kolay gelsin.

 

[emrebenn]

Sayfanın kod bölümüne aşağıdaki kodları ekleyin.(Örnek dosyayı eklemden önce açmıştım yazınızı örneği görmemiştim.) Not sorunuzda T1:T30 dediğiniz için ona göre yazıldı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [T1:T30]) Is Nothing Then Exit Sub
If InStr(1, Target.Value, "Özel") > 0 Or InStr(1, Target.Value, "özel") > 0 Then
    MsgBox "UYARI"
    Target.Select
End If
End Sub

Merhaba ben bu kodu kullanmak istiyorum kod el girildiginde veya tek hucreye yapistırma işlemi yapıldıgında çalısıyor.Fakat ben b7 ve h400 den olusan tabloma bir metin kopyalayıp yapistirdigim zaman bu kodun çalişmasini istiyorum.Yarımcı olabilirmisiniz acaba.Bu şekilde çalişmiyor.