Satırlardaki Mail Adreslerini Maile Uygun HAle Getirmek

[htsumer]

Bir excel sayfasının E Sütununda yaklaşık 50 den fazla e-mail adresi altalta tanımlı. Ben bu adresleri Outlook 2010'da Alıcı kısmna eklenecek formata almak stiyorum.
Eklenecek mailler şöyle olacak;

xxx@xxx.om;yyy@yy.com;vvv@vvv.vom gibi... Yani Postada kime olan bölüme yapıştıracağım.

Aktarılacak format excel yada txt olabilir fark etmez yeterki sonuc bana versin..

 

[politen]

Örnek dosya eklerseniz yardımcı olabiliriz.

 

[halit3]

E sutünundaki mail adreslerini G sutünuna 50 şerli guruplar halinde listeliyor.

Başlangıç E2 hücresi aktarılan başlangıç G2 hücresi

 Sub deneme_Click()

adet = 50

sut = 5
sat2 = 2
sat1 = 0
hucre = ""
son = Cells(Rows.Count, sut).End(3).Row

Range(Cells(2, sut + 1), Cells(son, sut + 2)).ClearContents

For j = 2 To son
sat1 = sat1 + 1

If sat1 = 1 Then
Hücre = Cells(j, sut).Value
Else
Hücre = Hücre & ";" & Cells(j, sut).Value
End If

If sat1 = adet Then
Cells(sat2, sut + 1).Value = sat2 - 1
Cells(sat2, sut + 2).Value = Hücre
Hücre = ""
sat1 = 0
sat2 = sat2 + 1
End If
Cells(sat2, sut + 1).Value = sat2 - 1
Cells(sat2, sut + 2).Value = Hücre
Next
End Sub

 

[htsumer]

Hay Allah razı olsun senden harika olmuş emeğine sağlık