ملف اكسيل به تابات كثيره محتاج اجمعها فى تابه واحده

[kingmaker]

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

لدى ملف اكسيل محتاج اخفى منه عمود اثناء الطباعه ولكن الشيت نفسه به 172 تابه محتاج اجمعهخم فى تابه واحده حتى استطبع اخفاء عمود الوزن السابق مره واحده وبعدين اطبع 

وسؤال اخر هل فيه طريقه تخلينى اطبع الملف مره واده مع الاحتفاظ بالفواصل يعنى رقم واحد لوحده والثانى لوحده فى ورقه منفصله وهكذا .

تقبلوا تحياتى واعتذارى على الاطاله

الوزن الدورى -قبل الوزن.xlsx

[رامي الخبيري]

ممكن استخدام الكود ده

Sub Merge_Sheets()
    'Insert a new worksheet
    Sheets.Add
    
    'Rename the new worksheet
    ActiveSheet.Name = "ProfEx_Merged_Sheet"
    
    'Loop through worksheets and copy the to your new worksheet
    For Each ws In Worksheets
        ws.Activate
        
        'Don't copy the merged sheet again
        If ws.Name <> "ProfEx_Merged_Sheet" Then
            ws.UsedRange.Select
            Selection.Copy
            Sheets("ProfEx_Merged_Sheet").Activate
            
            'Select the last filled cell
            ActiveSheet.Range("A1048576").Select
            Selection.End(xlUp).Select
            
            'For the first worksheet you don't need to go down one cell
            If ActiveCell.Address <> "$A$1" Then
                ActiveCell.Offset(1, 0).Select
            End If
            
            'Instead of just paste, you can also paste as link, as values etc.
            ActiveSheet.Paste
        
        End If
        
    Next
End Sub

 

[عبدللرحيم]

صعوبة التنفيذ لوجود دمج للخلايا سيتم تغيير تصميم الملف ؟؟؟؟؟

[omar elhosseini]

شاهد المرفق اخي

مع ملاحظة ان اخفاء او اظهار 172 شيت تأخذ بعض الوقت

اخي لم استطيع رفع الملف علي المنتدي لانه يتعدي الحجم المسموح به وهو 1 ميجا

عليك برفعه على رابط خارجى

[omar elhosseini]

شاهد المرفق اخي

مع ملاحظة ان اخفاء او اظهار 172 شيت تأخذ بعض الوقت

الوزن الدورى -قبل الوزن.xlsm

لقد تم حل مشكلة الرفع من قبل