محمد هشام. قام بنشر أبريل 29, 2022 مشاركة قام بنشر أبريل 29, 2022 السلام عليكم ورحمة الله تعالى وبركاته هذا الكود للأستاذ عبدالفتاح في بي اكسيل يقوم بنسخ شيتات معينة من مصنف لآخر على سطح المكتب وتتم تسميته برقم الأسبوع والسنة الافتراضية على الجهاز شغال تمام عاوز تعديل للكود بحيث يتم تغير رقم الأسبوع إلى القيمة الموجودة في خانة معينة في أحد الشيتات في المصنف لأنه عند نسخ تقرير لتاريخ قديم يتم تسميته برقم الأسبوع الافتراضي .لنفترض ان القيمة موجودة عندي في شيت 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة omar elhosseini قام بنشر أبريل 29, 2022 أفضل إجابة مشاركة قام بنشر أبريل 29, 2022 شاهد المرفق TEST10-2022.xlsm 2 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر أبريل 30, 2022 الكاتب مشاركة قام بنشر أبريل 30, 2022 شكرا لك استاذي الفاضل 👍👍👍 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان