Sayfa1 deki buton ile çalışacak fakat sayfa 2 nin A sütununu txt olarak kaydedecek şekilde nasıl düzenleye bilirim

[Akif59]

Sayfa1 deki buton ile çalışacak fakat sayfa 2 nin A sütununu txt olarak kaydedecek şekilde nasıl düzenleye bilirim

Dim i, sat As Integer
sat = ActiveSheet.UsedRange.Rows.Count
Open ThisWorkbook.Path & "\" & [b1] & ".Dosya" For Output As #1
For i = 1 To sat
If Cells(i, "a") <> "" Then
Print #1, Cells(i, "a")
End If
Next i
Close

 

[muygun]

Merhaba;

sayfanın kod bölümüne;

Sub txt_kaydet()
Set s2 = ThisWorkbook.Worksheets("Sayfa2")
Dim i, sat As Integer
sat = s2.Range("A65536").End(xlUp).Row
Open ThisWorkbook.Path & "\" & [b1] & ".txt" For Output As #1
For i = 1 To sat
If s2.Cells(i, "a") <> "" Then
Print #1, s2.Cells(i, "a")
End If
Next i
Close
End Sub

kodlarını yerleştirin ve bir butona bağlayarak deneyin.
İyi çalışmalar.

 

[Akif59]

Merhaba;

sayfanın kod bölümüne;

Sub txt_kaydet()
Set s2 = ThisWorkbook.Worksheets("Sayfa2")
Dim i, sat As Integer
sat = s2.Range("A65536").End(xlUp).Row
Open ThisWorkbook.Path & "\" & [b1] & ".txt" For Output As #1
For i = 1 To sat
If s2.Cells(i, "a") <> "" Then
Print #1, s2.Cells(i, "a")
End If
Next i
Close
End Sub

kodlarını yerleştirin ve bir butona bağlayarak deneyin.
İyi çalışmalar.

Sayın Muygun
Teşekkür ederim elinize sağlık