e-mail

[esolen]

Arkadaşlar MErhaba;
elimde ki dosyada bazı meil adresleri yanlış yazılmış,
Örneğin, @ işareti konulmamış, türkçe karrtkter kullanılşmış gibi
ben nasıl bir formül kullanmalıyım ki bu tür yanlış olanların listesini alabileyim..

öneğin: İşeriyor veya içermiyorsa fomkülde nasıl gösterilebilir

esolen@excel.wep.tr doğru olan
eşölen@excel.wep.tr yanlış olan

=eğer(İŞERİYORSA DEME ŞANSIM VARMI ?

 

[hamitcan]

Linkleri inceleyin.
http://www.excel.web.tr/f125/email-adreslerinin-dooruluk-kontrolu-t104163.html
http://www.vbaexpress.com/kb/getarticle.php?kb_id=281
http://exceltr.wordpress.com/2011/02/26/e-posta-adresi-sinama-veri-girisini-kontrol-etme/

 

[esolen]

Çok karışık geldi bana çözemedim;

=eğer( içeriyor
veya
=eğer(içermiyor

gibni bişe ile çözmem gerekli

 

[paranormal]

Bu kodu bi denermisin

Private Sub Eposta1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With CreateObject("vbscript.regexp")
'.Pattern = "^[\w-\.]+@([\w-]+\.)+[A-Za-z]{2,4}$"
.Pattern = "^[\w-\.]+@[\w-]+\.+[A-Za-z]{2,4}$"
If .Test(Eposta1.value) Then
Cansel=True
Else
MsgBox "YANLIS E-POSTA ADRESÍ GÍRDÍNÍZ!"
Cancel = True
End If
End With

End Sub

 

[esolen]

Bu kodu bi denermisin

Private Sub Eposta1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With CreateObject("vbscript.regexp")
'.Pattern = "^[\w-\.]+@([\w-]+\.)+[A-Za-z]{2,4}$"
.Pattern = "^[\w-\.]+@[\w-]+\.+[A-Za-z]{2,4}$"
If .Test(Eposta1.value) Then
Cansel=True
Else
MsgBox "YANLIS E-POSTA ADRESÍ GÍRDÍNÍZ!"
Cancel = True
End If
End With

End Sub

Merhaba; profosyonel bir kullanıcı olmadığım için kodu nereye nasıl yazacağımı anlamadım..