Makroda dosya yolunun dinamik olması

[muzo]

Excel dosyasını farklı kaydet işlemi yaptığım zaman, makrodaki dosya yolunun da dinamik olarak değişmesini istiyorum. Bu söz konusu makrolardan bir tanesi ektedir. Değerli hocalarımdan biri bu konuda yardımcı olursa minnettar kalırım. Saygı ve sevgi ile.

Sub MalzemeBirleştir()

Range("AR4:AS28").Select
Selection.ClearContents
Range("AR4").Select
Selection.Consolidate Sources:= _
"'D:\Projeler\[SULAMA YAZILIMI çalışma.xlsm]DamlamaProje'!R33C44:R57C45" _
, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
Range("AP17").Select
ActiveWindow.SmallScroll Down:=9
Range("AR33").Select
ActiveWindow.SmallScroll Down:=-9
Range("AP16").Select
ActiveWorkbook.Save

End Sub

 

[muzo]

Bir diğer makro ise;

Sub MetrajBirleştir()

Sheets("MalzemeBirleşik").Visible = True
Sheets("MalzemeBirleşik").Select
Cells.Select
Selection.Clear
Range("A1").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Selection.Consolidate Sources:= _
"'D:\Projeler\[SULAMA YAZILIMI.xlsm]MalzemeListesi'!R3C1:R502C2", _
Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
Range("A1").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("GİRİŞ").Select

End Sub