Farklı Kaydet'te ismi hücreden alma.

[feridici_genc]

hayırlı günler,
aşağıda bulunan kodu makro kaydetten temin ettim. Biraz daha ek özellik eklemek istiyorum yardımcı olur musunuz?

Yapmak istediklerim;
1- Kırmızı ile belirtilen dosya ismini 1 isimli sayfanın H1 hücresinden alması
2- Dosya türü "xlsx" olmasını
istemekteyim.
Teşekkürler.

Sub Makro1()
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\ocop0909\Desktop\[B][COLOR="Red"]DÜZELTME2[/COLOR][/B].xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[Erdem Akdemir]

Merhaba,

Tag'daki kodu kullanabilirsiniz.
Dosya uzantısı XLSX olursa makrolar dosyada yer almaz.

Sub Makro1()
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\akdex001\Desktop\" & Sheets("1").Range("h1").Text & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
End Sub

 

[feridici_genc]

Teşekkür ederim.
Sağolun.