A Sütünundaki Verileri txt Olarak kayıt Etme

[ottoman71]

Merhaba Arkadaşlar,
A sütunundaki verileri *.txt formatında kayıt eden makro yapılabilir mi?
Yardımcı olurmusunuz.

 

[Orion1]

Dosyanız ektedir.

Sub txt_kaydet()
Dim i As Long, sat As Long
Sheets("Sheet1").Select
If Range("A13").Value = "" Then
    MsgBox "A13 hücresine dosya adını yazmalısınız.", vbCritical, "UYARI"
    Range("A13").Select
    Exit Sub
End If
sat = Cells(65536, "A").End(xlUp).Row
Open (ThisWorkbook.Path & "\" & Range("A13").Value & ".txt") For Output As #1
For i = 1 To sat
    Print #1, Cells(i, "A").Value
Next
Close #1
MsgBox ThisWorkbook.Path & vbLf & "Klasörüne txt dosyası oluşturuldu." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation

End Sub

 

[ottoman71]

Çok teşekkur ederim. Ellerine sağlık.

 

[Orion1]

Çok teşekkur ederim. Ellerine sağlık.

Rica ederim.
İyi çalışmalar.

 

[security]

Sub txt_kaydet()
Dim i As Long, sat As Long
Sheets("Sheet1").Select
If Range("A13").Value = "" Then
MsgBox "A13 hücresine dosya adını yazmalısınız.", vbCritical, "UYARI"
Range("A13").Select
Exit Sub
End If
sat = Cells(65536, "A").End(xlUp).Row
Open (ThisWorkbook.Path & "\" & Range("A13").Value & ".txt") For Output As #1
For i = 1 To sat
Print #1, Cells(i, "A").Value
Next
Close #1
MsgBox ThisWorkbook.Path & vbLf & "Klasörüne " & Range("A13").Value & ".txt Dosyanız Başarılı Şekilde Oluşturuldu..." & vbLf & _
"www.excel.web.tr", vbOKOnly + vbInformation
End Sub

Hocam Bu Şekilde Yapsak (Kırmızılı Yer ) Kaydedilen Dosyanın Adınıda mesaj da Görsek Olabilirmi?

 

[Orion1]

Hocam Bu Şekilde Yapsak (Kırmızılı Yer ) Kaydedilen Dosyanın Adınıda mesaj da Görsek Olabilirmi?

Tabiiki olur.
Orası size kalmış.İstediğiniz her şeyi yazabilirsiniz.

 

[ottoman71]

Evren Hocam;
Txt dosyasını excel dosyamın bulunduğu yere oluşturuyor.
Bunu belirttiğimiz bir adrese oluşturmasını sağlayabilirmiyiz. Örneğin C:\'nin altına txt'yi oluşturacak.
İyi çalışmalar.

 

[security]

Evren Hocam;
Txt dosyasını excel dosyamın bulunduğu yere oluşturuyor.
Bunu belirttiğimiz bir adrese oluşturmasını sağlayabilirmiyiz. Örneğin C:\'nin altına txt'yi oluşturacak.
İyi çalışmalar.

Tabi Mümkün Ekli Dosyayı ;İnceleyiniz...
C:\

Sub txt_kaydet_Security()
Dim i As Long, sat As Long
Sheets("Sheet1").Select
If Range("A13").Value = "" Then
MsgBox "A13 Hücresine Dosya Adını Yazmalısınız.", vbCritical, "Coder By Security"
Range("A13").Select
Exit Sub
End If
sat = Cells(65536, "A").End(xlUp).Row
Open ("C:/" & Range("A13").Value & ".txt") For Output As #1
For i = 1 To sat
Print #1, Cells(i, "A").Value
Next
Close #1
MsgBox "Dosyanız C:/  Diskine " & Range("A13").Value & ".txt  Adında Oluşturuldu..." & vbLf & _
" [URL="http://www.excel.web.tr"]www.excel.web.tr[/URL] - Security ", vbOKOnly + vbInformation, "Coder By Security :)"
End Sub

 

[ottoman71]

Tabi Mümkün Ekli Dosyayı ;İnceleyiniz...





Hocam ilgilendiğiniz için teşekkur ederim fakat hata veriyor.

 

[security]

Sub txt_Security()
Dim i As Long, sat As Long
Sheets("Sheet1").Select
If Range("A13").Value = "" Then
MsgBox "A13 hücresine dosya adını yazmalısınız.", vbCritical, "Coder By Security :)"
Range("A13").Select
Exit Sub
End If
sat = Cells(65536, "A").End(xlUp).Row
Open "C:/" & Range("A13").Value & ".txt" For Output As #1
For i = 1 To sat
Print #1, Cells(i, "A").Value
Next
Close #1
MsgBox "Dosyanız C:/ Diskine " & Range("A13").Value & ".txt Adında Oluşturuldu..." & vbLf & _
" [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL] - Security ", vbOKOnly + vbInformation, "Coder By Security :)"
End Sub

Kodunu Denermisiniz...

 

[ottoman71]

Hocam teşekkur ederim.
İyi çalışmalar.

 

[security]

Hocam teşekkur ederim.
İyi çalışmalar.

Rica Ederim Kolay Gelsin...

 

[ottoman71]

Arkadaşlar burada A sütunundaki verileri txt olarak kaydettik. Peki "A : D" sütunundaki verileri nasıl kaydedebiliriz.

Yardımcı olabilir misiniz.

 

[ottoman71]

Arkadaşlar yardımcı olacak kimse yok mu?

 

[halit3]

Arkadaşlar burada A sütunundaki verileri txt olarak kaydettik. Peki "A : D" sütunundaki verileri nasıl kaydedebiliriz.

Yardımcı olabilir misiniz.

bunu

Print #1, Cells(i, "A").Value

bununla değiştirin

Print #1, Cells(i, "A").Value & " " & Cells(i, "B").Value & " " & Cells(i, "C").Value & " " & Cells(i, "D").Value

 

[ottoman71]

Teşekkür ederim Halit Hocam.
İyi çalışmalar.