Satırları txt dosyasına aktarma

Katılım
4 Kasım 2022
Mesajlar
2
Excel Vers. ve Dili
Excel 14.0.4760.1000 32bit Office Plus 2010
VBA dili bilmiyorum. Öğrenmek istiyorum
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

İlave formüle gerek kalmadan. Aşağıdaki gibi deneyiniz.
Kod:
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
 
Katılım
4 Kasım 2022
Mesajlar
2
Excel Vers. ve Dili
Excel 14.0.4760.1000 32bit Office Plus 2010
VBA dili bilmiyorum. Öğrenmek istiyorum
teşekkür ederim
 
Üst