[ÇÖZÜLDÜ] Hücredeki klasör adını makroya yerleştirmek

[acolkesen1]

Merhaba,
Yapmak istediğim şu; D deki X klasörü içine Sayfa1.A1 deki isimle yeni bir klasör oluşturup aktif dosyayı Sayfa1.A2 deki isimle bu klasör içine kaydetmek.Ancak X içinde Sayfa1.A1 deki isimde bir klasör varsa, yeni klasör oluşturmadan aktif dosyayı mevcut klasör içine Sayfa1.A2 deki isimle kaydetmek.
İlk iki satırda D deki x klasörü içine Sayfa1.A1 deki isimle yeni klasör oluşturuyorum.Aynı isimde başka klasör varsa atlıyor.Değişken olan İkinci klasör adını Sayfa1A1 den alsın istiyorum,ancak burdan sonrası sonrası olmuyor..

 

[Recep İpek]

Aşağıdaki kodları inceleyiniz.

Sub CreateDir()
    Dim ob As Object
    Dim strDirPath, strFileName As String
    strDirPath = "D:\X\" & [Sayfa1!a1]
    strFileName = "D:\X\" & [Sayfa1!a1] & "\" & [Sayfa1!a2]
    Application.DisplayAlerts = False
    Set ob = CreateObject("Scripting.FilesystemObject")
    If Dir(strDirPath, vbDirectory) = "" Then
        ob.CreateFolder (strDirPath)
    Else
        MsgBox "Kayıtlı Klasör Var"
    End If
    
    ActiveWorkbook.SaveAs Filename:=strFileName
    Set ob = Nothing
    Application.DisplayAlerts = True
End Sub

 

[acolkesen1]

Sayın Recep İpek ,
Herşeyden önce gecenin bir saatinde zaman ayırıp cevap verdiğiniz için çok teşekkür ederim. Ayrıca işimi son derece kolaylaştıran kodlarınız için ise ne kadar teşekkür etsem azdır. Herşey gönlünüzce olsun, esen kalın..