اخوانى الاعزاء
السلام عليكم ورحمة الله وبركاته
ارجو القاء نظرة على الكود التالى
الكود يعمل فى وجود المتغيرات الثلاثة طبيعى
سؤالى هو اذا غاب التاريخ من الى لماذا لا يبحث عن المتغير الاساسى
اشكركم
سعد عابد
Sub report1()
On Error Resume Next
Application.ScreenUpdating = False
For R = 5 To Sheets("مشتريات").[b10000].End(xlUp).Row
If Sheets("مشتريات").Cells(R, 6) = Sheets("report").[c3] Then
If Sheets("مشتريات").Cells(R, 5) >= Sheets("report").[g3] Then
If Sheets("مشتريات").Cells(R, 5) <= Sheets("report").[j3] Then
With Sheets("report").[b10000].End(xlUp)
.Offset(1, 0) = Sheets("مشتريات").Cells(R, 2)
.Offset(1, 1) = Sheets("مشتريات").Cells(R, 3)
.Offset(1, 2) = Sheets("مشتريات").Cells(R, 4)
.Offset(1, 3) = Sheets("مشتريات").Cells(R, 5)
.Offset(1, 4) = Sheets("مشتريات").Cells(R, 7)
.Offset(1, 5) = Sheets("مشتريات").Cells(R, 8)
.Offset(1, 6) = Sheets("مشتريات").Cells(R, 9)
.Offset(1, 7) = Sheets("مشتريات").Cells(R, 10)
End With
End If
Next
Application.ScreenUpdating = True
End Sub