Arkadaşlar merhaba, benim sabit bir sayfam var Arz diye ben bunu Takip sayfasının C sütununa eklenen en son satırdaki ada göre Arz Evrakı diye bir klasöre kaydetmek istiyorum. Takip sayfasının C sütununda ad soyad var. Forumda bir arkadaşın geçmiş yıllarda yazmış olduğu makroyu düzenlemeye çalıştım fakat beceremedim. Konu hakkında yardımcı olabilir misiniz ? Teşekkürler.
Sub excel_olarak()
Application.ScreenUpdating = False
Set evn = CreateObject("scripting.filesystemobject")
sekme_ismi = Range("A1")
kayit_yeri = "C:\Users\" & Environ("Username") & "\Desktop\" & sekme_ismi & ".xlsx"
10 If evn.fileexists(kayit_yeri) Then
i = i + 1
kayit_yeri = "C:\Users\" & Environ("Username") & "\Desktop\" & sekme_ismi & "-" & i & ".xlsx"
GoTo 10
End If
Sheets(sekme_ismi).Copy
ActiveWorkbook.SaveAs Filename:=kayit_yeri, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
Sub excel_olarak()
Application.ScreenUpdating = False
Set evn = CreateObject("scripting.filesystemobject")
sekme_ismi = Range("A1")
kayit_yeri = "C:\Users\" & Environ("Username") & "\Desktop\" & sekme_ismi & ".xlsx"
10 If evn.fileexists(kayit_yeri) Then
i = i + 1
kayit_yeri = "C:\Users\" & Environ("Username") & "\Desktop\" & sekme_ismi & "-" & i & ".xlsx"
GoTo 10
End If
Sheets(sekme_ismi).Copy
ActiveWorkbook.SaveAs Filename:=kayit_yeri, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
Son düzenleme: