Giriş yapılan verinin CSV uzantılı bir dosya olarak kaydedilmesi

[Clematis07]

Merhabalar,

Sayfada sadece A sütununa girdiğim verileri masa üstüne CSV dosyası olarak kaydetmek istiyorum ancak veri miktarı değişkenlik gösteriyor. Bazen 5 satır bazen ise 150 satır veri giriyorum ki bundan dolayı sadece giriş yaptığım satır sayısı kadar veriyi almam gerekiyor. Yardımcı olabilir misiniz?

 

[bmutlu966]

Deneyiniz. Masaüstüne Yeni_dosya.csv olarak kaydeder.

Sub csv_kaydet()
    Range("A1:A" & [A65536].End(3).Row).Copy
    Set w = Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ("Username") & "\Desktop\Yeni_dosya.csv", FileFormat:=xlCSV
End Sub

 

[Clematis07]

Deneyiniz. Masaüstüne Yeni_dosya.csv olarak kaydeder.

Sub csv_kaydet()
    Range("A1:A" & [A65536].End(3).Row).Copy
    Set w = Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ("Username") & "\Desktop\Yeni_dosya.csv", FileFormat:=xlCSV
End Sub

Çok teşekkür ederim.

 

[Necdet]

Merhaba,

Range("A1:A" & [A65536].End(3).Row).Copy

satırı
veri 65536 dan fazla olduğunda saçmalar.
Bunun yerine Genel Amaçlı olarak aşağıdaki gibi kullanmakta her zaman yarar vardır.
Yarın birgün yeni sürümlerde sayfanın satır sayısı 3-5 milyona çıktığında da aşağıdaki kod her zaman çalışır.

Range("A1:A" & Cells(Rows.Count, "A").End(3).Row).Copy