Çözüldü Macro ile klasor olusturup dosyayi kaydetmek

[Nizi]

Merhaba. Ben hazirlamis oldugum dosyayi makro ile dosyanin oldugu konuma klasor olusturup onun icine dosyami kaydetmek istiyorum ama klasorumun ve dosyamin ismi M7 satirindaki yazi olmasi lazim. Yardimci ola bilecek kimse var mi?

 

[m__uzun]

Merhaba. Ben hazirlamis oldugum dosyayi makro ile dosyanin oldugu konuma klasor olusturup onun icine dosyami kaydetmek istiyorum ama klasorumun ve dosyamin ismi M7 satirindaki yazi olmasi lazim. Yardimci ola bilecek kimse var mi?

Sub CreateFolderAndSave()
Dim strPath As String Dim strFolderName As String
strPath = ThisWorkbook.Path
strFolderName = Range("M7").Value
MkDir strPath & "" & strFolderName
ThisWorkbook.SaveAs strPath & "" & strFolderName & "" & strFolderName & ".xlsx"
End Sub

 

[Nizi]

Sub CreateFolderAndSave()
Dim strPath As String Dim strFolderName As String
strPath = ThisWorkbook.Path
strFolderName = Range("M7").Value
MkDir strPath & "" & strFolderName
ThisWorkbook.SaveAs strPath & "" & strFolderName & "" & strFolderName & ".xlsx"
End Sub

Merhaba. Boyle bir hata veriyor.
Screenshoot

 

[Nizi]

Yardim ede bilecek kimse var mi?

 

[Nizi]

Sub CreateFolderAndSave()
Dim strPath As String Dim strFolderName As String
strPath = ThisWorkbook.Path
strFolderName = Range("M7").Value
MkDir strPath & "" & strFolderName
ThisWorkbook.SaveAs strPath & "" & strFolderName & "" & strFolderName & ".xlsx"
End Sub

hata verme nededini buldum. xlsx deyil xlsm olmasi lazimmis makro calisti amma masaustune kaydetti. birde ismini M7 dekini yok bu dosyamin oldugu klasorun ismi ve sonuna M7 dekini yazip oyle kaydetdi

 

[dEdE]

Dener misiniz?

Sub CreateFolderAndSave()
Dim strPath As String
Dim strFolderName As String
    strPath = ThisWorkbook.Path
    strFolderName = Range("M7").Value
    MkDir strPath & "\" & strFolderName
    ThisWorkbook.SaveAs strPath & "\" & strFolderName & "\" & ThisWorkbook.Name
End Sub

 

[Nizi]

Dener misiniz?

Sub CreateFolderAndSave()
Dim strPath As String
Dim strFolderName As String
    strPath = ThisWorkbook.Path
    strFolderName = Range("M7").Value
    MkDir strPath & "\" & strFolderName
    ThisWorkbook.SaveAs strPath & "\" & strFolderName & "\" & ThisWorkbook.Name
End Sub

Guzel makro calisiyor ama M7 deki yaziya gore klasor olusturdu icerisindeki excel dosyanin ismi ise M7 deki yazi degil.
Ben bunu kullandim ve istedigim sonucu aldim, PDF-de lazimdi. Ilgilendiginiz icin tesekkur ederim.

Private Sub SavePDF()
strName = Range("M7").Value

ChDir ThisWorkbook.Path
MkDir strName
ActiveWorkbook.SaveAs Filename:=strName & "\" & strName & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strName & "\" & strName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub