Farklı Kaydet

[aydogankemal]

Merhabalar,
Bir dosya hazırlıyorum, ve hazırladığım dosyanın aslının aynı kalıp kaydet özelliğini kapatmak istiyorum. Ancak dosya kaydet ya da farklı kaydet denildiğinde de dosya adının otomatik olarak örneğin (L2) hücre değeri ne ise o isimle kaydetmesini istiyorum.
Böyle bir kod yazılabilir mi

 

[Ömer]

Merhaba,

Bu şekilde deneyin. Masa üstüne kaydeder. Yolunu, dosya komutundan değiştirebilirsiniz.

Sub Farkli_Kaydet()

    Dim dosya As String
    
    dosya = CreateObject("WScript.Shell").SpecialFolders.Item("Desktop") & "\"

    ActiveWorkbook.SaveCopyAs dosya & Range("L2") & ".xlsm"
   
End Sub

.

 

[aydogankemal]

Teşekkürler kod çalışıyor, ancak başka isimle de kaydedebiliyorum. Benim istediğim sadece L2 de yazan adı ile kaydetmesi. Bunu nasıl sağlarız