mail adreslerini parçalar ayırma

[otobus]

Değerli üyeler
aşağıdaki excel dosyasındaki "soru" sayfasındaki email adreslerini
"cevap" sayfasındaki gibi çevirmek istiyorum.
Çok fazla alt alta email adresini ayırmak için kullanacağım.
şimdiden teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub epostaayir()
On Error Resume Next
Set s1 = Sheets("soru")
Set s2 = Sheets("cevap")
For a = 2 To s1.[a65536].End(3).Row
deg = Split(s1.Cells(a, "a"), "@")
s2.Cells(a, "a") = deg(0)
s2.Cells(a, "b") = Split(deg(1), ".")(0)
s2.Cells(a, "c") = Split(deg(1), ".")(1)
s2.Cells(a, "d") = Split(deg(1), ".")(2)
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Bu işlemi formüllede yapabilirsiniz. Alternatif olarak aşağıdaki formülleri deneyiniz.

Soru sayfasında;

B2 hücresine;

=EĞER(A2="";"";SOLDAN(A2;MBUL("@";A2)-1))

C2 hücresine;

=EĞER(A2="";"";SOLDAN(YERİNEKOY(A2;B2&"@";"");MBUL(".";YERİNEKOY(A2;B2&"@";""))-1))

D2 hücresine;

=EĞER(A2="";"";SOLDAN(YERİNEKOY(A2;B2&"@"&C2&".";"");MBUL(".";YERİNEKOY(A2;B2&"@"&C2&".";""))-1))

E2 hücresine;

=EĞER(A2="";"";YERİNEKOY(A2;B2&"@"&C2&"."&D2&".";""))

 

[otobus]

Değerli yardımlarınız için çok teşekkür ederim.