Hücre Veri Girişi Engelleme

[schlecht]

Merhaba, A1 hücresine @ işareti yazılmaz ise giriş yapılmamasını engellemek istiyorum. Yardımcı olursanız sevinirim.

 

[Haluk]

A1 hücresine "@" ile başlayan bir veri girilmezse, uyarı verilsin ..... demek istiyorsunuz. Doğru mu anladım ?

Eğer öyleyse;

- Söz konusu A1 hücresini Metin (Text) olarak biçimlendirin,

-Aşağıdaki kodu, ilgili sayfa modülüne ekleyin,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Not Left(Range("A1").Text, 1) = "@" Then MsgBox "Oppppssss....."
    End If
End Sub

.

 

[schlecht]

Haluk Bey, @ ile başlayan değil @ içermeyen, mail adresi yazılması zorunlu olması için.

 

[yanginci34]

a1 seçili iken veri doğrulama yapın ve özeli seçerek aşağıdaki formülü deneyin gerekli uyarı ve düzenlemeleri yapıp denermisiniz.
=BUL("@";A1)>0

 

[Haluk]

Yani; A1 hücresine yazılan verinin bir e-posta adresi olup olmadığını kontrol etmek istiyorsunuz .... öyle mi?

.

 

[Korhan Ayhan]

Resmi inceleyiniz.

Uygulama yaparken formül hata verecektir. Tamam diyerek işlemi tamamlayın.

Ayrıca "Hata Uyarısı" penceresine dilediğiniz mesajı yazarak gelen uyarı mesajını kişiselleştirebilirsiniz.

 

[Haluk]

Bence; girilen verinin içerisinde "@" olsa bile, iyi kötü bir kontrol yaparak bu verinin geçerli bir e-posta adresi olup olmadığını da kontrol etmek iyi olur....

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim objRegEx As Object
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Range("A1") = Empty Then Exit Sub
        Set objRegEx = CreateObject("VBscript.RegExp")
        With objRegEx
            .Pattern = "^([a-zA-Z0-9_\-\.]+)@([a-zA-Z0-9_\-\.]+)\.([a-zA-Z]{2,3})$"
            .Global = True
            If Not .Test(Range("A1").Text) Then
                MsgBox "Geçerli bir e-posta adresi girin!", vbCritical
                Range("A1") = Empty
                Range("A1").Select
            End If
        End With
        Set objRegEx = Nothing
    End If
End Sub

.

 

[yanginci34]

Haluk Hocam yine hünerinizi konuşturmuşsunuz. Elinize sağlık.

 

[schlecht]

Haluk Hocam, "Geçerli bir e-posta adresi girin! uyarısından sonra uygun olmayan metni hücrede bırakıyor. Örneğin Haluk yazdım hücreye
"Geçerli bir e-posta adresi girin!" uyarısı çıktı tamam a bastıktan sonra Haluk yazısı hücrede kaldı. Engellemedi sadece uyarı verdi.

 

[yanginci34]

Hocamın izniyle denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRegEx As Object
If Not Intersect(Target, Range("A1")) Is Nothing Then
Set objRegEx = CreateObject("VBscript.RegExp")
With objRegEx
.Pattern = "^([a-zA-Z0-9_\-\.]+)@([a-zA-Z0-9_\-\.]+)\.([a-zA-Z]{2,3})$"
.Global = True
If Not .Test(Range("A1").Text) Then
MsgBox "Geçerli bir e-posta adresi girin!", vbCritical
Range("A1").Text=""
End If
End With
Set objRegEx = Nothing
End If
End Sub

 

[schlecht]

yanginci34 hata verdi.

 

[Haluk]

7 No'lu mesajdaki kodu güncelledim, onu kullanın...

.

 

[schlecht]

Haluk Bey çok teşekkür ederim. Elinize sağlık.

 

[a_eyup]

7 No'lu mesajdaki kodu güncelledim, onu kullanın...

.

Hocam, liste halindeki mail adreslerini kontrol ettirip hatalı olan/olanları nasıl belirleyebiliriz?