ابو القاسم

طلبك علي ما اعتقد

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) 

اعذرني اختي لم انتبه لموضع التاريخ طريقة اخري