Ali Mohamed Ali

يمكنك استخدام هذه المعادلة ولكن بعد اعادة ضبط وتنسيق وتكملة الملف بحيث يكون مجموع الرصيد فى كل صفحة من صفحات الملف فى الخلية 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

وعليكم السلام-تفضل بمجرد كتابة الرقم بالعمود C سوف تظهر قيمته بالعمود B 1مثال.xlsx

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

فقط يمكنك استخدام هذه المعادلة =CEILING(C2,1) ABSS1.xls

تفضل فقط يمكنك استخدام معادلة المصفوفة هذه =IF(ROWS($K$4:K4)<=SUMPRODUCT(--(COUNTIF($I$4:$I$140,$D$4:$D$150)<>1)),INDEX($D$4:$D$150,SMALL(IF(COUNTIF($I$4:$I$140,$D$4:$D$150)<>1,ROW($D$4:$D$150)-ROW($D$4)+1),ROWS($K$4:K4))),"") Etat de developpement de solde.xlsx

وعليكم السلام-تفضل شهادات.xlsm

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

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

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

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

فقط عن طريق التنسيق الشرطى تم التلوين كما تريد وهذه المعادلة تم استخدامها فى حالة الخسارة بالتنسيق الشرطى =AND($J$2="صافي خسارة",$J$3<0) وهذه فى حالة الربح =AND($J$2="صافي ربح",$J$3>0) وكما ترى بالصورة

وعليكم السلام هناك طريقة كما ترى بهذا الرابط : كيفية عرض كافة نوافذ إكسيل في شريط المهام؟ او يمكنك تجربة هذا الرابط فتح ملفين اكسيل فى وقت واحد

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

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

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