Bir hücreye yazılmış mail adreslerini ayrıştırmak

[Leoncio]

Merhaba;

A1 hücresine aşağıda örnekte olduğu gibi mail adresleri yazılı, bu mail adreslerini a2,a3,a4..... şeklinde nasıl ayrıştırabilirim.

alii@aaa.com.tr; belir@bbbb.com; selami@cccc.com; deneme@ffff.com.tr; ....... diye gidiyor.

 

[Ömer]

Merhaba,

Veri / Metni Sütunlara dönüştür menüsünden yapabilirsiniz..

.

 

[Leoncio]

Merhaba,

Veri / Metni Sütunlara dönüştür menüsünden yapabilirsiniz..

.

Merhaba,
Sütun sayısı 265, oysa mail adresi çok daha fazla. Mail adresleride hepsi bir hücrede.

 

[S.Yiğit]

Aşağıdaki kodu bir modüle kopyalayıp dener misiniz.. Sayfa2 A sütununa mail adreslerini dizer..
Alt alta dizilmiş mail adreslerini sütunlara dağıtmak için aşağıdaki formülü uygulayın..

Sub ayikla()
For x = 1 To [a65536].End(3).Row
d = Split(Cells(x, 1))
For Each elem In d
If InStr(elem, "@") Then
a = a + 1
Sheets("sayfa2").Cells(a, 1) = Trim(Replace(Replace(Replace(elem, ",", ""), "e-mail:", ""), Chr(160), ""))
End If
Next elem
Next x
Sheets("sayfa2").Select
End Sub

Kodlar veyselemre hocamızdandır

=DOLAYLI(ADRES(SÜTUNSAY($A$1:A1);1))

e-mail ayırma

 

[uzmanamele]

merhaba

bu kodu işinizi görür mü?

Sub MailAdresiAl()
For x = 1 To [a65536].End(3).Row
    a = Split(Cells(x, 1), ";")
    y = 2
    For i = 1 To UBound(a)
        y = y + 1
        Cells(2, x) = Left(Cells(x, 1), (Application.WorksheetFunction.Find(";", Cells(x, 1), 1) - 1))
        Cells(y, x) = Left(a(i), Len(a(i)))
    Next
Next
End Sub

 

[leumruk]

Merhaba,
Alternatif olarak düşünülebilir:

Sub Satir_Ayir()
Satir_Sayisi = Len([a1]) - Len(WorksheetFunction.Substitute([a1], ";", ""))
mail = Split([a1], ";")
For x = 1 To Satir_Sayisi
Cells(x, "a") = mail(x - 1)
Next
End Sub

 

[Leoncio]

Teşekkürler arkadaşlar. İşlem tamamdır.

 

[hakkiokan]

merhaba leumruk. ekteki dosyada hazırlamış olduğunuz kod ile virgülden sonra yazılmış mail adreslerini ayırmak istiyorum. Ancak sizin kodu kopyaladım, makroların içine de kopyaladım ancak çalıştıramadım. ne yapmam gerekir yardımcı olur musunuz?