Ali Mohamed Ali

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

وعليكم السلام عليك فقط بضبط معادلة VLOOKUP فتاريخ الدفعة الأولى 11 وليس 10 , وبناءا عليه يجب عليك مراجعة باقى المعادلات =IF(D12<1,"",VLOOKUP($G$7,ادخال!$A$5:$AX$1005,11,FALSE)) المالية2020.xlsm

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

مبارك الترقية عن جدارة واستحقاق واعانك الله ووفقك للمسؤلية الجديدة التى انت جدير بالفعل على تحملها

وبما انك لم تقم برفع ملف فعليك بتحميل هذا البرنامج من النت وسيجلب لك كلمة السر ان شاء الله تفضل Passware Kit Enterprise Passware Kit Forensic 13.5

تفضل طريقة نشر ملفات pdf او word على صفحتك في الفيسبوك

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

وعليكم السلام-وطالما انك لم تقم برفع ملف-فكان عليك استخدام خاصية البحث قبل رفع المشاركة فهناك العديد من الموضوعات التى تخص طلبك ومنها : ربط يوزر فورم بخلية في الشيت اختفاء ملف الاكسل عن عمل كود لاظهار اليوزرفورم

وعليكم السلام-اهلا بك فى المنتدى , يمكنك استخدام هذه المعادلة =IF(SUM(C5:D5)-SUM(1450,M5,O5,P5,S5,T5,U5,V5,W5,X5,Y5,Z5,AA5,AB5,AC5,AD5,AE5)<5000,7.5*(SUM(C5:D5)-SUM(1450,M5,O5,P5,S5,T5,U5,V5,W5,X5,Y5,Z5,AA5,AB5,AC5,AD5,AE5))/1000,8*(SUM(C5:D5)-SUM(1450,M5,O5,P5,S5,T5,U5,V5,W5,X5,Y5,Z5,AA5,AB5,AC5,AD5,AE5))/1000) 1مرتب.xlsx

تفضل على الرغم انك لم تقم برفع ملف مدعوم بشرح كافى عن المطلوب -فمن قوانين المنتدى لابد من رفع مثال لما تريد دائما فاتورة مبيعات وهذا ايضا فيديو شرح فاتورة الشراء والبيع وكيفية نقل الرقم من النموذج الى الجدول اكسس Access وهذا برنامج جاهز ايضا سوف يفيدك برنامج فواتير الشراء والبيع.rar

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

تفضل -تصبح المعادلة هكذا =IFERROR(IF(ROWS(A$1:A1)>COUNTIF(E$4:E$100,"<>"""),"",INDEX($D$4:$D$100,SMALL(IF(E$4:E$100<>"",IF(E$4:E$100<>"",ROW(E$4:E$100)-ROW(E$4)+1)),ROWS(A$1:A1)))),"") Fathi2.xlsx

تفضل Sub exit_end() For Each w In Application.Workbooks w.Save Next w Application.Quit End Sub وهذا كود أخر ايضا يلبى طلبك Sub testSave() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.Quit End Sub

تفضل هذا هو الكود Sub clear() kk = MsgBox("هل تريد مسح البيانات ؟", vbYesNo) If kk = vbYes Then Range("b11:C300").ClearContents Range("J11:k300").ClearContents End If End Sub برنامج التنسيق تعديل14.xlsm

وعليكم السلام -تفضل New Microsoft Excel Worksheet.xlsx

وعليكم السلام-اهلا بك بالمنتدى- تفضل 1.xlsm

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة =SUMIFS($C:$C,$A:$A,$E2,$B:$B,$F2) المصنف2.xlsx

أستاذنا الكريم لو درست وتفحصت المعادلة جيدا قبل كتابة رقم 3 لعلمت ان رقم 3 استخداماته للعد او التسلسل ورقم 9 مثلا لإيجاد الإجمالى

وعليكم السلام -تفضل نقل فورم من ملف اكسل الى ملف اخر الدرس الحادى والثلاثون

وعليكم السلام-فقط عليك استخدام هذه المعادلة =SUMIF($A:$A,$D2,$B:$B) اجمالي كمية بنفس التاريخ1.xlsx

تفضل تم تعديل الأكواد بناءا على تعليمات وتوجيهات الأستاذ ابراهيم برنامج الصادر والوارد تصميم 2020.xls

كان عليك لزاما استخدام خاصية البحث فى المنتدى فبه العديد من الموضوعات التى تحول المعادلات الى اكواد ومنها : تحويل معادلة الى كود

تفضل وذلك بوضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'Define your variables. Dim ws As Worksheet, EvalRange As Range 'Set the range where you want to prevent duplicate entries. Set EvalRange = Range("A1:a10000") 'If the cell where value was entered is not in the defined range, if the value pasted is larger than a single cell, 'or if no value was entered in the cell, then exit the macro. If Intersect(Target, EvalRange) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub If IsEmpty(Target) Then Exit Sub 'If the value entered already exists in the defined range on the current worksheet, throw an 'error message and undo the entry. If WorksheetFunction.CountIf(EvalRange, Target.Value) > 1 Then MsgBox Target.Value & " already exists on this sheet." Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If 'Check the other worksheets in the workbook. For Each ws In Worksheets With ws If .Name <> Target.Parent.Name Then 'If the value entered already exists in the defined range on the current worksheet, throw an 'error message and undo the entry. If WorksheetFunction.CountIf(Sheets(.Name).Range("A1:a10000"), Target.Value) > 0 Then MsgBox Target.Value & " already exists on the sheet named " & .Name & ".", _ 16, "No duplicates allowed in " & EvalRange.Address(0, 0) & "." Application.EnableEvents = False Application.Undo Application.EnableEvents = True Exit For End If End If End With Next ws End Sub عدم تكرار المدخلات - 1.xlsm

تم التعديل على الملف السابق كما تريد بالضبط .... وهذا حل اخر ان اردت يمكنك ذلك من خلال قائمة Data ثم تختار Subtotal إدراج صف تلقائى - 1.xlsm

تفضل يمكنك وضع استخدام هذا الكود بحدث الصفحة , بحيث يقوم بإدراج صف فارغ بمجرد إدخال تاريخ مختلف Private Sub Worksheet_Change(ByVal Target As Range) Dim L& If Target.Address = Cells(Rows.Count, 5).End(xlUp).Address Then If IsDate(Target) And IsDate(Target(0)) Then If Target.Value2 <> Target(0).Value2 Then Application.EnableEvents = False Application.ScreenUpdating = False Target.EntireRow.Insert If IsEmpty(Target(-2)) Then L = Target(-1).Row Else L = Application.Max(6, Target(-1).End(xlUp).Row) With Target(0).EntireRow .Interior.ColorIndex = 4 .Interior.Pattern = xlSolid .Columns("B:C").Formula = "=SUM(B" & L & ":B" & Target(-1).Row & ")" .Cells(4).Value2 = "إجمالى اليوم " End With Application.ScreenUpdating = True Application.EnableEvents = True End If End If End If End Sub إدراج صف تلقائى - 1.xlsm