ابو القاسم

طلبك علي ما اعتقد Fatur(NEW).xlsm

الاستاذ سليم حاصبيا اذا اخفي Check Box فما فائدة وجود زر المسح و Check Box

اتفضل Fatur(NEW).xlsm

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

' للاخفاء Me.CommandButton2.Visible = False ' للاظهار Me.CommandButton2.Visible = True

جرب ده بس ده مكان واحد للبحث بحث باي حرف.xlsx

اتمني يكون المطلوب ضريبة الدخل حسب الشرائح.xlsm

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

اخي العزيز تتاكد من ان الادخال موجود من عدمه بهذا الكود ws = sheets("اسم الصفحة") ird = WorksheetFunction.CountIf(ws.Range("a3:a32"), TextBox2.Value) 'ثم بعد ذلك ادخل الشرط if ird = 1 then 'اي انه موجود msgbox "البيانات موجودة مسبقا" exit sub elseif ird = 0 then 'البيانات غير موجودة 'ادخل الكود الذي تريد تنفيذة end if

جرب دة Ali_Hasn.xlsm

جرب كدة Ali_Hasn.xlsm

Workbooks("ااسم الملف بالامتدات").Sheets("اسم الورقة") وكمل زي ما انته عايز

اتمني يكون المطلوب فاتورة(5).xlsm

الكود به خطأ هو ايه المطلوب من الكود

اتمني يكون المطلوب ملف التوازيع (1).xlsm

Private Sub Worksheet_Activate() lr = Range("a" & Rows.Count).End(xlUp).Row + 1 If Date <> Cells(lr - 1, 1) Then Cells(lr, 1) = Date Cells(lr, 3) = "رصيد مترحل" End If End Sub عدل الكود

Sub wwww() lr = Range("g" & Rows.Count).End(3).Row + 3 Range("a1:h27").Copy Range("a" & lr) If Cells(11, 2) <> "" Then lrr2 = Range("k" & Rows.Count).End(xlUp).Row + 1 Else lrr2 = Range("k" & Rows.Count).End(xlUp).Row + 1 End If ActiveSheet.Hyperlinks.Add Anchor:=Cells(lrr2, 11), Address:="", SubAddress:= _ "æÑÞÉ1!" & "H" & lr + 20 Cells(lrr2, 11) = [h3] Cells(lrr2, 12) = [f7] Cells(lrr2, 13) = [b9] Cells(lrr2, 14) = [h27] Range("h3") = Range("h3") + 1 End Sub اتمني يكون المطلوب

المعدلة تعمل المبلغ =IF($C$2="الكل";SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2);SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2)) الدين =IF(C2="الكل";SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2);SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2)) ودي تعديل للكود لاخي حسين مامون للكل Sub tot() Dim lr, x, to1, to2 Dim Dt1, Dt2 to1 = 0 to2 = 0 Dt1 = [a2] Dt2 = [b2] lr = Cells(Rows.Count, 2).End(3).Row If Cells(2, 3) <> "الكل" Then For x = 5 To lr If Cells(x, 3).Text = Range("c2") Then Select Case Cells(x, 2).Value2: Case Dt1 To Dt2 to1 = to1 + Cells(x, 4).Value to2 = to2 + Cells(x, 5).Value End Select End If Next x ElseIf Cells(2, 3) = "الكل" Then For x = 5 To lr Select Case Cells(x, 2).Value2: Case Dt1 To Dt2 to1 = to1 + Cells(x, 4).Value to2 = to2 + Cells(x, 5).Value End Select Next End If Range("d2").Value = to1 Range("e2").Value = to2 End Sub

المبلغ =IF(C2="الكل";SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2);SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2)) الدين =IF(c2="الكل";SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2);SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2)) تم التعديل

المبلغ =IF(C2="الكل";SUMPRODUCT(D5:D18);SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2)) الديون =IF(C2="الكل";SUMPRODUCT(E5:E18);SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2)) دي للكل

المبلغ =SUMIFS(D5:D18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2) الدين =SUMIFS(E5:E18;$B$5:$B$18;">="&$A$2;$B$5:$B$18;"<="&$B$2;$C$5:$C$18;$C$2) اعذرني اختي لم انتبه لموضع التاريخ طريقة اخري