المساعدة في كود انشاء فولدر

[hanykassem]

برجاء  المساعدة في كود انشاء فولدر بحسب تحديد مكان المشار اليه وتحديدة من خلال الفوقف في نفس السطر 3 او 4 الخ

في حاله وجود الفولدر تم انشاء من قبل رساله بوجود الفولدر من قبل

وشكرا لكم جميعا علي المجهود العظيم

test.xlsm

[abouelhassan]

ممكن تجرب الكود

Sub CreateFolder()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim folderPath As String
    Dim folderName As String
    Dim fullPath As String
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") ' قم بتغيير "Sheet1" إلى اسم ورقة العمل الخاصة بك
    
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' تحديد آخر صف في العمود A (يمكن تغيير العمود إذا لزم الأمر)
    
    For i = 2 To lastRow ' يبدأ من الصف 2 ليتخطى العناوين
        folderPath = ws.Cells(i, 3).Value ' عمود C
        folderName = ws.Cells(i, 4).Value ' عمود D
        
        If folderPath <> "" And folderName <> "" Then
            fullPath = folderPath & "\" & folderName
            
            If Dir(fullPath, vbDirectory) = "" Then
                MkDir fullPath
                MsgBox "Folder created: " & fullPath, vbInformation
            Else
                MsgBox "Folder already exists: " & fullPath, vbExclamation
            End If
        End If
    Next i
End Sub

 

[hanykassem]

شكرا لك وعلي سرعه الاستجابه 

برجاء وضع الكود بالمثال وتجربته لانه لا يعمل

ومع العلم انا الداتا الموجودة تصل الي 500 سطر ليس 3 و 4 فقط 

 

 range (M) مسار الفولدر  في   range (B)

مطلوب كود لانشاء فولدرات بأسماء مختلفة واسم الفولدر موجود 
    
 والمسارات مختلف حسب الاسم الموجود في range (C)إذا تغير يتغير مسار الفولدر 
 range (N) والمسار موجود    range (M)  تسميه الفولدر بالاسم الموجود في range (B) ويتم تحديد الأسماء والمسارات في
  ويتم ذلك عند الوقوف علي السطر المراد انشاء الفولدر لهو

وفي حاله وجود الفولدر بنفس الاسم تظهر رساله

test-28-05-2024.xlsm