Ali Mohamed Ali

وعليكم السلام تم عمل المطلوب برقم السيارة عباد الرحمن 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

تفضل لك ما طلبت بمعادلة معرفة وهى Text_ALL Option Explicit Function Text_ALL(rng As Range) Dim i%, x$ With CreateObject("VbScript.RegExp") .Global = True .Pattern = "([\u0621-\u064A]+)" If Not (.Test(rng.Value)) Then _ Text_ALL = vbNullString: Exit Function For i = 0 To .Execute(rng.Value).Count - 1 x = x & " " & .Execute(rng.Value)(i).Value Next i Text_ALL = x End With End Function وهذه المعادلة توضع بالخلية B2 =Text_ALL(A2) New Microsoft Excel Worksheet.xlsm

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

وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى-تفضل طلب مساعدة ( جمع الأعداد دون المتكرر منها ) وهذه هى المعادلة المستخدمة =SUMPRODUCT((($D$5:$D$16<>"")/COUNTIF($D$5:$D$16,$D$5:$D$16&""))*($D$5:$D$16)) حساب الاعداد المكررة مرة واحدة 1فقط.xlsx

بارك الله فيك استاذ مجدى وجزاك الله كل خير

تفضل لك ما طلبت هذه الأكواد فى مديول عادى Sub hide_menu() Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)" End Sub Sub show_menu() Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)" End Sub وهذا الكود فى حدث ThisWorkBook Private Sub Workbook_Open() hide_menu End Sub وذلك كما بالملف Hide.xlsm

فقط عليك استخدام هذه المعادلة =COUNTIF($B8:$AF8,$NU$5)/4 أو عن طريق معادلتك بعد القسمة على 4 لتكون بهذه الطريقة =SUMPRODUCT((OFFSET($A8,0,1,1,372)<>"")*(OFFSET($A$3,0,1,1,372))*((OFFSET($A8,0,1,1,372))=NU$5))/4 leave tracker.xlsb