E-mail formatı kontrolü

[CyberBlade_]

Arkadaşlar merhaba;

Sitede ekteki VBA kodunu buldum. Hücrelerdeki Türkçe karakterleri İngilizce karakterlere çeviriyor. Bunu bir adım ileri götürerek sütuna girdiğimiz verinin e-mail adresi formatında olup olmadığını nasıl (a@a.com) ve eğer e-mail formatında değilse hata mesajı vermesini nasıl sağlarız?

Ve bu kodu excel in bütün hücrelerine değil de sadece mesela A1 hücresine nasıl uygulatabilirim?

örnek olarak:

ÇAĞDAŞ@ŞİŞE.COM --> CAGDAS@SISE.COM VEYA cagdas@sise.com 'a dönüşecek.

ama;

çağdaş.şişe dersem ("@" işareti ve işaretten sonra "." olmazsa) hata verecek.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Eski_Karakter As Variant, Yeni_Karakter As Variant, X As Byte
    On Error GoTo Son
    Eski_Karakter = Array("ç", "Ç", "ğ", "Ğ", "ı", "İ", "ö", "Ö", "ş", "Ş", "ü", "Ü")
    Yeni_Karakter = Array("c", "C", "g", "G", "i", "I", "o", "O", "s", "S", "u", "U")
    For X = 0 To UBound(Eski_Karakter)
        Application.EnableEvents = False
        Target = Replace(Target, Eski_Karakter(X), Yeni_Karakter(X))
        Application.EnableEvents = True
    Next
Son: Application.EnableEvents = True
End Sub

Yardımınız için şimdiden teşekkürler.

 

[CyberBlade_]

Fikir vermek adına;

Eğer ile koşullu biçimlendirme denedim ama eğer formülünü bir türlü "A1'in içerisinde "@" işareti varsa" diye şekillendiremedim.