تسمية ملفات اكسيل حسب اسم الخلية

[أبو أنس80]

بسم الله الرحمن الرحيم

يا اخوان ممكن مساعدتي لتسمية ملفات اكسل حسب اسم خلية من ملف رئيسي

 

officena.net.rar

تم تعديل يناير 17, 2017 بواسطه دغيدى

[ياسر خليل أبو البراء]

جرب الكود التالي (ضع أسماء الملفات الجديدة في العمود المجاور في العمود الثاني قبل تنفيذ الكود)

Sub RenameWBs()
    Dim strFolder       As String
    Dim strFile         As String
    Dim cel             As Range
    
    Application.ScreenUpdating = False
        strFolder = ThisWorkbook.Path & "\"
        strFile = Dir(ThisWorkbook.Path & "\" & "*.xlsx")
    
        Do While strFile <> ""
            On Error Resume Next
                For Each cel In Worksheets(1).Range("A1:A" & Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
                    If cel.Value = Replace(strFile, ".xlsx", "") Then
                        Name strFolder & strFile As strFolder & cel.Offset(, 1).Value & ".xlsx"
                        Exit For
                    End If
                Next cel
            On Error GoTo 0
            
            strFile = Dir
        Loop
    Application.ScreenUpdating = True
End Sub

 

[أبو أنس80]

حاولت تطبيق ملف لكن لا يعمل

اعتذر استاذي ياسر خليل

[ياسر خليل أبو البراء]

22 ساعات مضت, أبو أنس80 said:

حاولت تطبيق ملف لكن لا يعمل

اعتذر استاذي ياسر خليل

ما المشكلة التي صادفتك أثناء التطبيق؟

[أبو أنس80]

عدم تنفيذ ماكرو

بعد اغلاق ملف يهر هذا بوكس

 

officena.net.rar

[ياسر خليل أبو البراء]

حل المشكلة في الفيديو التالي

 

[أبو أنس80]

اشكرك على مساعدتي

حلت مشكلة اضهار بوكس 

لكن عدم تنفيذ تغير اسم ملفات

[ياسر خليل أبو البراء]

هل قمت بوضع الأسماء القديمة في العمود الأول والأسماء الجديدة في العمود الثاني؟