Sütunlardaki E-Maillerin Formatını Değiştirmek

[htsumer]

Merhaba,

A Sütununda isimler B sütununda e-mail adresleri var.Bunların sayısı 150 civarında

-Hotmail yada herhangi bir email göndericisi ile göndermek için B sütunundaki adresleri

herhangi bir hücreye

xxxxxxxxx@hotmail.com;yyyyyyyyy@gmail.com;zzzzzzzzz@hotmail.com;xxxxxxxxx@hotmail.com;yyyyyyyyy@gmail.com;zzzzzzzzz@hotmail.com

formatına almak istiyorum.

Yani herhangi bir hücreye bunlar yanyana dizilerek gelecek ve aralarında ( ayracı olacak boşluk olmaması gerekiyor..

 

[Necdet]

Merhaba,

Örnek dosya olsa bir arkadaşımız ilgilenebilirdi belki.

 

[htsumer]

Teşekkür..
Gönderecektim ama yüzlerce e-mail kaydı var..

A Sütununda isimler var
B Sütununda e-mail adresleri
örneğin c hücresine bu e-mailleri yanyana alacak..aralarında ; işareti olacak..

 

[Gorarr]

Arkadaşım orjinal dosyaya gerek yok, 3 sıra sallama isim ve email yazsan eminim anında yaparlar..

 

[htsumer]

Ekledim........

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub Birlestir()
Dim i As Long
[C1].ClearContents
For i = 1 To Cells(Rows.Count, "A").End(3).Row
    If Cells(i, "B") Like "*@*" Then
        If [C1] = "" Then
            [C1] = Cells(i, "B")
        Else
            [C1] = [C1] & ";" & Cells(i, "B")
        End If
    End If
Next i
End Sub

 

[Gorarr]

Bende teşekkür ederim. Elinize sağlık. Peki şöyle bir eklentide yapılabilirmi. Excelde iken tıkladığımızda bu mailleri direkt outlooka yönlendirsin.

 

[htsumer]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub Birlestir()
Dim i As Long
[C1].ClearContents
For i = 1 To Cells(Rows.Count, "A").End(3).Row
    If Cells(i, "B") Like "*@*" Then
        If [C1] = "" Then
            [C1] = Cells(i, "B")
        Else
            [C1] = [C1] & ";" & Cells(i, "B")
        End If
    End If
Next i
End Sub

Necdet hocam çok teşekkür ediyorum tamamdır..tam istediğim gibi oldu..Kolay gelsin