حمادة عمر

اخي ريان هل شاهدت الملف في المشاركة رقم 12 أو ارفق مثال لما تريد

السلام عليكم الاخ الكريم / galal elgammal بارك الله فيك لقد قمت باضافة النصف الأخر من التفاحة الي الموضوع الذي طلبت فيه ذلك علي الرابط فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة ... ارجو ان يعجبك وينال رضاك تقبل خالص تحياتي

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

الكود اخي الكريم من اعمال الاستاذ / عباد او القدير / عبد الله باقشير حيث وجدته في مكتبتي ولم اتذكر الكود لمن فيهم جزاهم الله خيرا

ماهي طريقة الحماية ... وما هي الاكواد الاخري التي تتعارض فالبفعل كود رساله الماكرو ... به بعض الحواجز شاهد اخي الملف التالي ع السريع هل تقصد اخي الكريم هكذا حماية الورقة من حذف الأوراق أو زيادة أوراق.rar

ع السريع كدة شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=46770&hl=%2B%D8%A7%D8%B8%D9%87%D8%A7%D8%B1+%2B%D8%B5%D9%88%D8%B1%D8%A9+%2B%D8%A7%D9%84%D9%85%D9%88%D8%B8%D9%81+%2B%D8%A7%D9%84%D8%AE%D9%84%D8%A7%D9%8A%D8%A7+%2B%D8%A8%D9%86%D8%A7%D8%A1+%2B%D8%B9%D9%84%D9%8A+%2B%D8%B1%D9%82%D9%85%D9%87#entry282797

الاخ الكريم / galal elgammal شاهد هذا الفورم به ما تريد الانتقال الي اوراق العمل مهما كان عددها تقبل خالص تحياتي فورم للنتقال لصفحات الملف.rar

كتب قيم وجميل

ولكن اخبرني اولا هل هذا الحل يعمل معك بالشكل المطلوب ام لا تقبل خالص تحياتي

جاري التحميل

جاري التحميل

السلام عليكم الاخ الكريم / محمد المحمودى بارك الله فيك تم عمل الكود التالي لتنفيذ طلبك ان كان كما تريد نكمل العمل Sub PRINT_AQSAM_tagroba() Dim LastR As Long Dim LastR1 As Long Dim LR As Long LR = Range("G" & Rows.Count).End(xlUp).Row LastR1 = Sheets("Master Data Update ").Cells(Rows.Count, 7).End(xlUp).Row LastR = Sheets("Master Data Update ").Cells(Rows.Count, 7).End(xlUp).Row '=========================== Sheets("Master Data Update ").Range("A3:j" & LastR1).AutoFilter Field:=7, Criteria1:="الإستقبال" Sheets("Master Data Update ").PageSetup.PrintArea = ("A3:j" & LR) Sheets("Master Data Update ").PrintOut 'copies:=2 '=========================== Sheets("Master Data Update ").Range("A3:j" & LastR1).AutoFilter Field:=7, Criteria1:="الإشراف المنزلى" Sheets("Master Data Update ").PageSetup.PrintArea = ("A3:j" & LR) Sheets("Master Data Update ").PrintOut 'copies:=2 Sheets("Master Data Update ").Range("A3").Select Sheets("Master Data Update ").Range("A3:j" & LastR1).AutoFilter Field:=7 End Sub واليك الملف المرفق كمثال في انتظار ردك تقبل خالص تحياتي طباعة بشروط اسماء الاقسامDATA.rar

السلام عليكم الاخ الحبيب / قنديل الصياد بارك الله فيك دائما تقدم يد العون للجميع بكل السبل جعله الله في ميزان حسناتك تقبل خالص تحياتي

ملفات مرفقة كود لتكبير الفورم بتناسب مناسب للكائنات.rar

السلام عليكم الاخ الكريم / محمودالسيد بارك الله فيك ضع الكود التالي في حدث الفورم كما هو ... وشاهد النتيجة Private Sub UserForm_Initialize() Dim Zo% Dim ZH#, ZW#, AL#, AT#, AH#, AW# Dim FH!, FW! '=========================================== AH = Application.Height: AW = Application.Width AL = Application.Left: AT = Application.Top FH = Me.Height: FW = Me.Width ZH = AH - FH: ZW = AW - FW: Zo = Me.Zoom If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW) '=========================================== With Me .Move AL, AT, AW, AH If Zo <> 100 Then .Zoom = Zo End With '=========================================== End Sub تقبل خالص تحياتي