تعديل كود من اعمال ابوحنين

[احمد محمد على]

السلام عليكم

ما هو الخطا فى الكود الكود يعمل بشكل صحيح ولكن لا يبحث بين تاريخين

Sub SEARSH()
On Error Resume Next
Dim sh As Worksheet, j As Double, R As Double, Ary()
Dim COL1 As String, COL2 As String, COL3 As String, COL4 As String
Dim Dt As Date, Dt1 As Date
Set sh = Sheet3:
Application.ScreenUpdating = False
With Me
.ListBox1.clear:  txt1 = .ComboBox2.Value:  txt2 = .ComboBox3.Value: txt3 = .n3.Value: txt4 = .n4.Value
End With
    With sh
    LsRow = .Range("a" & Rows.Count).End(xlUp).Row
    For j = 5 To LsRow
    If txt1 = "" Then GoTo 10
    If InStr(1, .Cells(j, 2), txt1, 1) >= 1 Then
10
    If txt2 = "" Then GoTo 20
    If InStr(1, .Cells(j, 2), txt2, 1) <= 1 Then
20
If txt3 = "" Then GoTo 30
    If InStr(1, .Cells(j, 6), txt3, 1) = 1 Then
30
If txt4 = "" Then GoTo 40
    If InStr(1, .Cells(j, 7), txt4, 1) = 1 Then
40
    R = R + 1
    ReDim Preserve Ary(1 To 8, 1 To R)
    Ary(1, R) = .Cells(j, 15): Ary(2, R) = .Cells(j, 13): Ary(3, R) = .Cells(j, 12)
    Ary(4, R) = .Cells(j, 11): Ary(5, R) = .Cells(j, 10): Ary(6, R) = .Cells(j, 4)
    Ary(7, R) = .Cells(j, 3): Ary(8, R) = .Cells(j, 2)
    End If: End If: End If: End If
    Next
If R Then Me.ListBox1.Column = Ary
End With

If Me.ComboBox2 = "" And Me.ComboBox3 = "" And Me.n3 = "" And Me.n4 = "" Then Me.ListBox1.clear
Application.ScreenUpdating = True
End Sub

 

[احمد محمد على]

up