ComboBox ile listview da arama

[s.savas]

Merhaba arkadaşlar aşağıdaki kod ile kısmende olsa listview'da arama yaptırabildim. Ancak eksiklerim var.
Eksiklerim:
1-OptionButtonlar işaretlenmediği zaman uyarı mesajı vermesini,
2-Arama sıra numarasına göre yapıyor, harf ile de yapmasını,
3-ComboBox'a yazılan yazı silindiği zaman listview'lar güncellenmiyor.

Yardımcı olacak arkadaşlara teşekkür ederim.

Private Sub ComboBox2_Change()

If OptionButton1.Value = True Then
ListView1.ListItems.Clear
ListView1.View = lvwReport

With ListView1
j = 2
For j = 1 To 111
            If CStr(Cells(j, 1)) = CStr(ComboBox2) Then
            i = ListView1.ListItems.Count + 1
            .ListItems.Add , , Cells(j, 1)
            .ListItems(i).SubItems(1) = Cells(j, 2)
            .ListItems(i).SubItems(2) = Cells(j, 3)
            .ListItems(i).SubItems(3) = Cells(j, 4)
                                    
        End If
        If j Mod 1 = 0 Then
    End If

Next

End With
ListView1.FullRowSelect = True
ListView1.Gridlines = True
End If

If OptionButton2.Value = True Then
ListView2.ListItems.Clear
ListView2.View = lvwReport

With ListView2
j = 2
For j = 113 To 222
            If CStr(Cells(j, 1)) = CStr(ComboBox2) Then
            i = ListView2.ListItems.Count + 1
            .ListItems.Add , , Cells(j, 1)
            .ListItems(i).SubItems(1) = Cells(j, 2)
            .ListItems(i).SubItems(2) = Cells(j, 3)
            .ListItems(i).SubItems(3) = Cells(j, 4)
                                    
        End If
        If j Mod 1 = 0 Then
    End If

Next

End With
ListView2.FullRowSelect = True
ListView2.Gridlines = True
End If
End Sub