Arkadaşlar aşağıdaki kod ile sayfayı isetedğim adla kaydetmeye çalışıyorum, ancak dosya yolunda hata veriyor. yardımcı olabilir misiniz?
Sub CSV_DosyaKaydet()
Application.ScreenUpdating = False
Dim SonSatir, i As Integer
Dim Dizin As String
Set Vr = Sheets("Veri")
Set Aktr = Sheets("Aktar")
Dizin = Application.GetSaveAsFilename
For hcr = 2 To [A65536].End(xlUp).Row
Aktr.Cells(hcr - 1, 1) = Vr.Cells(hcr, 1) & Chr(44) & Vr.Cells(hcr, 2) & Chr(44) & Vr.Cells(hcr, 3) & Chr(44) & Vr.Cells(hcr, 4)
Next
With Aktr
SonSatir = .[A65536].End(3).Row
If SonSatir > 3 Then
Open App.Path & Dizin & ".csv" For Output As #1
For i = 1 To SonSatir
Print #1, Trim(Aktr.Cells(i, "A").Value)
Next i
Close #1
End If
End With
End Sub