Ali Mohamed Ali

تفضل استاذ خليل فللتعلم لابد من مشاهدة فيديوهات كثيرة على اليوتيوب خاصة بالماكرو وهذه الموضوعات اصل التقارير والاسماء عدد الاوجه2.xlsm اصل التقارير والاسماء عدد الآيات.xlsm

وعليكم السلام-اهلا بك فى المنتدى كيف تقول هذا فكل هذه برامج من المنتدى بدون كلمة مرور شوف بنفسك برنامج_مخازن_جديد.xlsm برنامج مخازن شامل .xlsm

فقط عليك للصق اى كود بملف معين عليك بالضغط عل Alt +F11 ثم فتح مديول جديد ولصق هذا الكود به او عليك برفع الملف الأصلى لك لمشاهدة المشكلة التى تحدث معك عن قرب

بارك الله فيك استاذ صالح وزادك الله من فضله ,مجهود موفق وشرح وافى جزاك الله خير الثواب

أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله

وعليكم السلام-تفضل 1111.xlsx

وعليكم السلام تم عمل المطلوب برقم السيارة عباد الرحمن 12020.xlsm

اهلا بك فى المنتدى-تفضل تم عمل المطلوب بهذا الكود Sub ØÈÇÚÉ1() Sheets("استمارة متابعة").Activate Range("H2").Activate [H2] = 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 ActiveWindow.SelectedSheets.PrintOut Loop While ActiveCell.Value <= Range("x2").Value Range("H2").Activate [H2] = 1 End Sub طباعة كل الأسماء.xlsm

بارك الله فيك استاذ جعفر بالتأكيد موضوع هام جدا ورائع جعله الله فى ميزان حسناتك

أحسنت استاذ مجدى وبارك الله فيك ورحم الله والديك

وعليكم السلام ولأنه لا يمكن العمل على التخمين ,فبما انك لم تقوم برفع ملف -فكان عليك استخدام خاصية البحث بالمنتدى -تفضل قائمة منسدله مرتبه ابجديا مع المعادلات انس تعقيدات الكود ( قائمه منسدله مرتبه ابجديا حتى اذا كانت الأسماء غير مرتبه ابجديا )

أحسنت استاذ مجدى عمل ممتاز جعله الله فى ميزان حسناتك

وعليكم السلام-لك ما طلبت موازنة علي البنود لكل مشروع.xlsx

بارك الله فيك استاذنا الجليل وكل عام وانتم بخير

بارك الله فيك استاذنا الكريم

بارك الله فيك وزادك الله من فضله وكل عام وأنتم بخير وعام سعيد علينا جميعا ان شاء الله

أحسنت استاذ مجدى عمل ممتاز بارك الله فيك وزادك الله من فضله

موضوع قيم بالفعل بارك الله فيك وزادك الله من فضله

يمكنك عمل ما تريد ولكن عليك بتوحيد رقم خلية مجموع الرصيد بالمعادلة مع كل صفحات الملف حتى تعمل المعادلة كما تريد ,فالأمر سهل جدا وليس به مشكلة -يسر دائما ولا تعسر

وعليكم السلام-بعد اذن استاذنا الكبير سليم ,تم عمل كل اللازم بالنسبة لصفحة حساب سائق , من معادلات وقوائم منسدلة لجلب البيانات كما تريد من صفحة data كما تم وضع كود بمعادلة تفقيط بالملف 2020_-_1.xlsm

يمكنك استخدام هذه المعادلة ولكن بعد اعادة ضبط وتنسيق وتكملة الملف بحيث يكون مجموع الرصيد فى كل صفحة من صفحات الملف فى الخلية I352 ولو حابب يكون رقم الخلية اكبر من هذا فلابد من توحيد وتثبيت الخلية التى تريدها فى كل الصفحات وتعديل الرقم الذى تريده بالمعادلة =IFERROR(INDIRECT("'"&$A2&"'!I352"),"") عملاء - 1.xlsx

اذا كان الكود يعمل معك بكفاءة فبهذه الإضافة يكون الكود كالتالى: Sub Macro1() Dim i As Integer, m As Integer Application.ScreenUpdating = False For i = 2 To 4 With ThisWorkbook.Worksheets(i) m = .Cells(Rows.Count, 1).End(xlUp).Row If i <> 3 Then .Range("A1:AH" & m).PrintOut Copies:=1, Collate:=True ElseIf i = 3 Then If .Range("AH" & .Cells(Rows.Count, "AH").End(xlUp).Row).Value > 0 Then .ListObjects("HR_2").Range.AutoFilter Field:=34, Criteria1:=">0" .Range("A1:AH" & m + 1).PrintOut Copies:=1, Collate:=True .ListObjects("HR_2").Range.AutoFilter End If End If End With Next i Application.ScreenUpdating = True Sheets("Overtime").PageSetup.RightFooter = Range("AP3").Value End Sub

وعليكم السلام-تفضل نظام_الملاك_2019.xlsm

بارك الله فيك وزادك الله من فضله

وعليكم السلام-لك ما طلبت مستخلص كميات لسيارات النقل.xlsx