Makro ile oluşturulan yeni dosya adı

[aliozturk55]

Merhaba,
Benim bir çalışma kitabım var. Bu çalışma kitabında farklı sayfalarım var. Bir sayfa tahsilat oranları ile ilgili her ay değişiyor. E6 hücresinde hangi aya ait olduğu yazmaktadır. Ben bir makro oluşturdum. Makro ile sayfanın üzerinde sağ tık taşı veya kopyala ile yeni kitaba atıyorum ve masa üstüne ve tahsilat oranları diye klasör var oraya "TAHSİLAT ORANLARI" adı ile kaydediyorum. Ben şimdi bu makroda dosya adı "TAHSİLAT ORANLARI" nın başına E6 hücresinde yazan "TEMMUZ" otomatik getirebilir mi ? yani ben E6 hücresini "AĞUSTOS" olarak değiştirdiğimde "AĞUSTOS TAHSİLAT ORANLARI" diye kaydetsin.

Makro aşağıdadır.

Sheets("TAHSİLAT ORANLARI").Select
Sheets("TAHSİLAT ORANLARI").Copy
Range("A1:E29").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C17").Select
Application.CutCopyMode = False
Rows("30:35").Select
Selection.Delete Shift:=xlUp
Range("A27").Select
ChDir "C:\Users\aliosmanozturk\TAHSİLAT ORANLARI"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\aliosmanozturk\TAHSİLAT ORANLARI\TAHSİLAT ORANLAR.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ChDir "C:\Users\aliosmanozturk\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\aliosmanozturk\Desktop\TAHSİLAT ORANLARI.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub

 

[Necdet]

Merhaba,

Kodların tamamını görülmüyor.

Siz kodların başına :

    Dim DosyaAdı As String
    
    DosyaAdı = Sheets("TAHSİLAT ORANLARI").Range("E1")

Ekleyin ve

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\aliosmanozturk\TAHSİLAT ORANLARI\TAHSİLAT ORANLAR.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

kodlarınızı aşağıdaki şekilde değiştirin.

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\aliosmanozturk\TAHSİLAT ORANLARI\" & DosyaAdı & "-TAHSİLAT ORANLAR.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

 

[aliozturk55]

Harikasınız teşekkür ederim.