• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri girişinde uyarı;

Katılım
9 Kasım 2012
Mesajlar
92
Excel Vers. ve Dili
offis 7 türkce
Üstadlarım Hayırlı akşamlar

Sizden Öğrenmek istediğim konu

A1:D10 hücre aralığında herhangi bir hücreye "enis" yazıldığı zaman msgbox("dikkat!") uyarısını vermesi yardımcı olursanız sevinirim.
 
Forumda veri doğrulama diye arama yapınız.:cool:
 
Örnek dosyayı ekledim.
 

Ekli dosyalar

Tam olarak onu istemiyorum bunu makro ile yapa bileceğim bir kod lazım çünkü msgbox ile 2 üç uyarı hatırlatma yapacağım elimde kullandığım kod var onun içine ekleyecem kodları.

Dosyanız ektedir.:
Kodlar çalışma sayfasının modülünde ve change olayına yazılmıştır.:cool:
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:D10]) Is Nothing Then Exit Sub
If UCase(Replace(Replace(Target.Value, "i", "İ"), "ı", "I")) = "ENİS" Then
    MsgBox "DİKKAT", vbCritical, "U Y A R I"
End If
End Sub
 

Ekli dosyalar

Geri
Üst