mail adresi hazırlığı

[burhancavus61]

Ekli örnek tablodaki gibi bir listem var mail adreslerini sarı renkli hücredeki gibi nasıl oluşturabilirim. Makro ile olursa daha güzel olur. B1 hücresine oluşturması yeterli. Aşağı doğru 10.000 satırlık veri olarak hazırlıyorum. Makro olması işimi kolaylaştırır teşekkür ederim.

 

[ÖmerFaruk]

For i = 2 To 10000
MailAdres = MailAdres & Range("A" & i) & ";"
Next i
MailAdres=Left(MailAdres, Len(MailAdres)-1)

Ama outlook bu 10.000 maile bir anda mail atar mı bilemiyorum.
Ayrıca string olan MailAdres değişkeninde bir karakter sayı kısıtı var mıdır bilemiyorum.

 

[burhancavus61]

Üstad B1 sütununa örnekteki gibi oluşturmuyor.
Böyle yaptım ama
B1 Hücresine toplamak istedim tüm adresleri

Sub Mail()
For i = 2 To 10
MailAdres = MailAdres & Range("A" & i) & ";"
Next i
MailAdres = Left(MailAdres, Len(MailAdres) - 1)
End Sub

 

[burhancavus61]

10 satır deneme yapayım dedim

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Mail_Adreslerini_Birlestir()
    Dim Son As Long, Veri As Variant
  
    Son = Cells(Rows.Count, 1).End(3).Row
    Veri = Filter(Application.Transpose(Application.Evaluate("=IF(LEN(A2:A" & Son & ")>0,A2:A" & Son & ",""#"")")), "#", False)
    Range("B1").Value = Join(Veri, ";")
  
    MsgBox Join(Veri, ";")
End Sub

 

[burhancavus61]

Teşekkür ederim hocam güzel oldu