مساعدة في التعديل على كود vba

[محمد هشام.]

السلام عليكم ورحمة الله تعالى وبركاته 

هذا الكود للأستاذ  عبدالفتاح في بي اكسيل

يقوم بنسخ شيتات معينة من مصنف لآخر على سطح المكتب وتتم تسميته برقم الأسبوع والسنة الافتراضية على الجهاز شغال تمام 

عاوز تعديل للكود بحيث يتم تغير رقم الأسبوع إلى القيمة الموجودة في  خانة معينة في أحد الشيتات في المصنف لأنه عند نسخ تقرير لتاريخ قديم يتم تسميته برقم الأسبوع الافتراضي .لنفترض ان القيمة موجودة  عندي في شيت 2 الخانة M3

Sub export_sheets()
   Dim Fname As String, ws As Worksheet

    Application.DisplayAlerts = False
    
        Sheets(Array("SH1", "SH3")).Copy
        For Each ws In ActiveWorkbook.Sheets
            ws.UsedRange = ws.UsedRange.Value
        Next ws
        
        ActiveWorkbook.SaveAs Filename:= _
"C:\Users\PC WORLD\Desktop\" & " report_ " & "W" & Format(Date, "WW") & "_" & Format(Date, "YYYY") & ".xlsx", FileFormat:=51
        ActiveWorkbook.Close
    Application.DisplayAlerts = True
End sub()

TEST10-2022.xlsm

[omar elhosseini]

شاهد المرفق

TEST10-2022.xlsm

[محمد هشام.]

شكرا لك استاذي الفاضل 👍👍👍