تعديل في كود فلترة ليست بوكس

[ضياء 2]

السلام عليكم الاساتذة الافاضل فضلا من كرمكم في تعديل كود فلترة ليست بوكس

" المطلوب لو اخترت صنف1 او صنف2 في كومبوكس بين تاريخين يفلتر القيم الرقمية فقط الموجودة في عمود ( رصيد1 ) او ( رصيد 3 ) فقط بدون الصفر "

wor.xlsm

[محي الدين ابو البشر]

Private Sub CommandButton1_Click()
    On Error Resume Next
    Dim v As Integer, lr, i
    ListBox1.Clear
    With Sheets("بيان")
        lr = .Cells(Rows.Count, "A").End(xlUp).Row
        For i = 2 To lr
            If .Cells(i, 1).Offset(0, 3) <> 0 And .Cells(i, 1).Offset(0, 4) And .Cells(i, 1).Offset(0, 4) <> 0 Then
                If Sheets("بيان").Cells(i, 1).Offset(0, 0) >= CDate(ComboBox1.Text) Then
                    If Sheets("بيان").Cells(i, 1).Offset(0, 1) = ComboBox2.Text Then
                        If Sheets("بيان").Cells(i, 1).Offset(0, 0) <= CDate(ComboBox3.Text) Then
                            ListBox1.AddItem Sheets("بيان").Cells(i, 1).Value
                            ListBox1.List(v, 1) = Format(Sheets("بيان").Cells(i, 0).Offset(0, 0).Value, "YYYY/MM/DD")
                            ListBox1.List(v, 2) = Sheets("بيان").Cells(i, 1).Offset(0, 1).Value
                            ListBox1.List(v, 3) = Sheets("بيان").Cells(i, 1).Offset(0, 2).Value
                            ListBox1.List(v, 5) = Sheets("بيان").Cells(i, 1).Offset(0, 4).Value

                            v = v + 1
                        End If
                    End If
                End If
            End If
        Next
    End Sub

 

[ضياء 2]

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