البحث بين تاريخين سواء بالاكواد او بالمعادلات

[كريم 201190]

الاساتذة الافاضل

بعد السلام عليكم 

بحث كثيراً عما اريده لتطبيقة على الملف المرفق وبالفعل وجدت ما اريده وهو البحث بين تاريخين معينين ولكن المشكلة التى واجهتنى هى عدم مقدرتى على تطويع المعادلات لتنفيذ ماريدة بملفى لذا اريد من سيادتكم مساعدتى فى ما اريده وهو البحث بين تاريخين سواء بالمعادلات او بالاكواد ، البرنامج مطلوب منى فى العمل واريد استخدامه وتجربته قبل شهر 11 لذا لجئت الى خبرتكم لمساعدتى 

حالات التقاعد.rar

[ابراهيم الحداد]

 

السلام عليكم ورحمة الله

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$1" And Target.Address <> "$C$2" Then Exit Sub
Range("A5:H100").ClearContents
m = 4
LR = Sheet1.Cells(Rows.Count, "I").End(xlUp).Row
For R = 2 To LR
If Sheet1.Cells(R, "I") >= Range("C1") And Sheet1.Cells(R, "I") <= Range("C2") Then
m = m + 1
Range("A" & m) = Sheet1.Cells(R, "I")
Range("B" & m) = Sheet1.Cells(R, "C")
Range("C" & m) = Sheet1.Cells(R, "D")
Range("D" & m) = Sheet1.Cells(R, "J")
Range("E" & m) = Sheet1.Cells(R, "L")
Range("F" & m) = Sheet1.Cells(R, "M")
Range("G" & m) = Sheet1.Cells(R, "N")
Range("H" & m) = Sheet1.Cells(R, "O")
End If
Next
End Sub

 

تم تعديل أكتوبر 28, 2016 بواسطه زيزو العجوز

[كريم 201190]

متشكر جداً لحضرتك استاذ / زيزو العجوز

وجزاك الله خيراً وزادك من فضله