Satırları txt dosyasına aktarma

[AdemCandemir]

Merhabalar;
A1 den A3596 a kadar TC kimlik numaraları yazan tablo mevcut. Burdaki TC numaralarını txt dosyasına tırnak işareti içinde aralarında virgül olacak şekilde aktarmak istiyorum. Örnek : '21234567890','1234567898','45678912306' ... gibi. Hücre formül ile =&" ' "&A1&" ', " yaparak tırnak işareti ve sonuna virgül işareti oldu. Sonra bir siteden aşağıda bulduğum kod ile masaüstüne NOTEPAD.txt olarak çıkarmayı da yaptım. Fakat hepsi virgülden sonra alt satıra iniyor. her TC farklı satırda.
Örnek : '21234567890','1234567898','45678912306' ... gibi yan yana boşluksuz olarak nasıl aktarım yapabilirim.
_________________________________________
Sub yaz()
Dim no1
Open "C:\Documents and Settings\Administrator\Desktop\NOTEPAD\11.01-20.01" For Output As #1
For i = 2 To WorksheetFunction.CountA(Range("A1:A65536"))
no1 = Cells(i, 2).Value & ";" & Cells(i, 4).Value & ";" & Cells(i, 6).Value & ";" & Cells(i, 8).Value & ";" & Cells(i, 10).Value & ";" & Cells(i, 12).Value & ";" & Cells(i, 14).Value
Print #1, no1
Next i
Close #1
msgbox "Bitti"
End Sub
____________________________________


Desteğiniz için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

İlave formüle gerek kalmadan. Aşağıdaki gibi deneyiniz.

Sub yaz()

    Dim no1 As String, i As Long
    
    Open "C:\Documents and Settings\Administrator\Desktop\NOTEPAD\11.01-20.01.txt" For Output As #1
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            If no1 = "" Then
                no1 = "'" & Cells(i, "A") & "'"
            Else
                no1 = "'" & Cells(i, "A") & "'," & no1
            End If
        End If
    Next i
    
    Print #1, no1
    Close #1
    
    MsgBox "Bitti"
    
End Sub

 

[AdemCandemir]

teşekkür ederim