Kaydet makrosunda ufak bir sorun

[ziya]

Kapalı bir kitaptan alınan veriyi aşağıdaki kod ile kaydetmek istiyorum. Her nasılsa A, B, C sütunlarının ilk üç satırı 4.ncü satıra kaymış olarak kaydediyor.

Sub CsvKaydet()

    Dim File_Path As String, X As Date, Say As Byte
    Dim Min_Date As Date, Max_Date As Date
     Application.ScreenUpdating = False
    Application.DisplayAlerts = False
     File_Path = ThisWorkbook.Path
     Range("A2:F" & Rows.Count).Sort Range("B2"), xlAscending

    Min_Date = WorksheetFunction.Min(Range("A:A"))
    Max_Date = WorksheetFunction.Max(Range("A:A"))
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
     ActiveWorkbook.SaveAs File_Path & "\" & "Zraporu_çoklu_kdv_" & Format(Date, "yyyy_mm") & "_" & " .csv", FileFormat:=xlCSV, Local:=True
    MsgBox "Veriler CSV formatında aktarılmıştır.", vbInformation

End Sub

Aslında bu kodlarda var olan tarih tanımlamasına ihtiyaç yok ama elimdeki çalışan bir kodu burada uyarladığım için üzerinde değişiklik yapmaya cesaret edemedim. Benim yapmak istediğim sayfayı kitabı csv formatında kaydetmek.

 

[Muzaffer Ali]

Merhaba.

Sub CsvKaydet()
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "Zraporu_çoklu_kdv_" & Format(Date, "yyyy_mm") & "_" & " .csv", FileFormat:=xlCSV, Local:=True
    MsgBox "Veriler CSV formatında aktarılmıştır.", vbInformation
End Sub

Dosyanızın bir kopyası üzerinde istediğiniz değişiklikleri kodlamayı yapabilirsiniz. Bozarsanız kopya dosyayı bozarsınız, cesaret isteyen bir şey yok yani.
Kolay gelsin.

 

[ziya]

Teşekkür ederim.