Alt alta olan mail adreslerini virgüllerle yan yana dizme

[seatolu]

Merhaba arkadaşlar,

Elimde binlerce mail adresi var. Bunlar excel formatında, alt alta dizeli şekilde. Bunları yan yana ve aralarında virgül olacak şekilde word veya metin belgesi olarak dizmek istiyorum. Tek tek yapmak günlerimi haftalarımı alacak imkansız yani. Bunun bir kodu veya kısa bir yolu var mı acaba ? Bilgisi olan arkadaşlar yardımcı olursa sevinirim. Hayırlı cumalar

 

[Ömer]

Merhaba,

Bu şekilde deneyin. C klasöründe Deneme adında txt dosyasına istediğiniz gibi kayıt olacaktır.

Sub Aktar()
 
    Dim yol As String, i As Long, j As String
 
    yol = "C:\Deneme.TXT"
    Open yol For Output As #1
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            j = j & ";" & Cells(i, "A")
        End If
    Next i
 
    Print #1, WorksheetFunction.Substitute(j, ";", "", 1)
    Close #1
 
End Sub

 

[seatolu]

Merhaba,

Bu şekilde deneyin. C klasöründe Deneme adında txt dosyasına istediğiniz gibi kayıt olacaktır.

Sub Aktar()
 
    Dim yol As String, i As Long, j As String
 
    yol = "C:\Deneme.TXT"
    Open yol For Output As #1
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            j = j & ";" & Cells(i, "A")
        End If
    Next i
 
    Print #1, WorksheetFunction.Substitute(j, ";", "", 1)
    Close #1
 
End Sub

Teşekkürler bu kodla değil de kendim çözdüm sorunumu anlatıyım belki başkalarına bir faydam olur.

Şimdi ilk önce excel belgesini farklı kaydetten metin belgesi olarak kaydediyoruz. Sonra o metin belgesini word ile açıyoruz. Ctrl+F yardımı ile ''paragraf işareti''ni ''virgül'' ile değiştiriyoruz. Bu kadar.