matrex 300

في الملف المرفق محتاج اخلي دائما الfooter يكون بعد اخر سطر فية بيانات ده في حالة ان تكون عدد الصفح المحتوية علي بيانات صفحة واحده فقط ولو اكثر من صفحة واحد يكون في الصفحات في اخر الصفحة وحتي اخر صفحة سوف يكون بها بيانات لم تكم صفحة كاملة يكون الfooter بعد اخر سطر محتوي علي بيانات بمعني اخر يكون هوامش ال Footer متحركة مع كل صفحة بناء علي عدد الصفحات لو البيانات الموجودة في الملف امراد طباعتة تاخذ صفحة واحدة يكون الFooter بعد اخر سطر محتوي علي بيانات ولو عدد الصفحات يكون صفحتين مثلا في هذة الحالة ال footer في الصفحة الاولي في اسفل الصفحة تماما وفي الصفحة الثانية تكون البيانات لم تكمل الصفحة كاملة يكون الFooter بعد اخر سطر محتوي علي بيانات اختبار.xlsx

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

محتاج مساعدة في تصحيح الكود التالي ليعمل المطلوب من الكود هو ان يقوم بتعديل هوامش footer تلقائيا طبقا لعدد الصفح الموجود بالشيت عند الطباعة ويكون بعد اخر سطر في الصفحة الاخيرة وفي نهاية الصفحة في باقي الصفحات Dim i As Integer, x As Double, lr As Integer Dim a, y With ActiveSheet.PageSetup x = .FooterMargin For i = 1 To .Pages.Count If i = .Pages.Count Then 'Stop 'How to set the margin so as to suit the last row of data lr = Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.PageSetup.PrintArea = Range("A1:H" & lr).Address a = Mid(Sheets("Sheet1").HPageBreaks(1).Location.Address(0, 0), 2, 99) - 1 y = a - (lr - (a * (.Pages.Count - 1))) MsgBox y '.FooterMargin = Application.InchesToPoints(0.78740157480315) End If ActiveSheet.PrintOut from:=i, To:=i, Preview:=True 'ActiveSheet.PrintPreview Next i .FooterMargin = x End With End Sub

شكرا جدا لحضرتك علي تعبك معايا

تم ارفاق مثال برجاء مساعدة في جعل اجمالي المدة 3 سنوات و0 شهر و 0 يوم example.xlsx

محتاج معادلة تسنطيع جمع مدة مكونة من 1 يوم و 4 اشهر و 0 سنة مع مدة 29يوم و 7 اشهر و 2 سنة في حالة دي هيكون ناتج الجمع 30 يوم و 11 شهر و 2 سنتين واللي هما يساوي 3 سنوات كاملين) عايز معدلة تجمع المدد كدا وتطلع الناتج النهائي 3 سنوات و0 شهر و0 يوم

عاوز كود او طريقة تمكنني من طباعة اي ملف اكسيل عن طريق الطابعة ويعمل نسخة ثانية عن طريق حفظ الملف PDF يعني عند ضغطي عل زرار الطباعة واختيار نوع الطابعة بطبع نسختين واحد علي الطابعة وواحد PDF

منتظر مساعدة يا شباب

عندي قاعدة بيانات عايز اعمل فيها تعديل بس الفكرة مش عارف انفذها ازاى القاعدة عبارة عن بيانات لموظفين وتضم عدة عناصر ك الاسم والرقم القومي الخ عايز اعمل فيها تعديل بديل للخانات بتاع التواريخ عايزها من تاريخ التعين لكل شخص الي وقتنا هذا وتتغير بتغير الشخص وبياناتة مثال عندي شخص متعين 01/01/1999 عايز اعمل الخانات له ممكن تبقي عن طريق فورم تاني مع الفورم الاول بس الفكرة في مكان حفظ البيانات دي في صفحة بيانات الموظفين هيكون التواريخ الخاصة بيه كالاتي 01/01/1999 01/07/1999 01/07/2000 01/07/2001 01/07/2002 01/07/2003 01/07/2004 01/07/2005 01/07/2006 01/07/2007 01/07/2008 01/07/2009 01/07/2010 01/07/2011 01/07/2012 01/05/2013 01/07/2013 01/07/2014 01/07/2015 01/04/2016 01/07/2016 01/07/2017 01/07/2018 01/07/2019 01/07/2020 وهكذا مع تغير تاريخ تعين كل شخص التواريخ دي ثوابت لا تتغير عايز حد يساعدني ويفكر معايا القاعدة.xlsm