Kaydet makro yardım

[acetinnster]

Arkadaşlar aynı dosyayı farklı klasörlere dosya adı ile kaydetmek için aşağıdaki verdiğim kodlar da nasıl bir düzenleme yapılması gerekir.
Yardımcı olabilirmisiniz.



ChDir "C:\Users\xxxx\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\xxxx\Desktop\Kitap1.xlsm", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

 

[askm]

Aşağıdaki şekilde masaüstüne kaydedebilirsiniz. Yalnız zaman eklemezseniz sürekli aynı belge üzerine kaydeder. Yani Kitap1 üzerine kaydeder.

Sub askm()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Environ("USERPROFILE") & "\Desktop\" & "Kitap1" & ".xls"
Application.DisplayAlerts = True
End Sub