combobox-listview yardım

[bitmez13]

ekli dosyada comboboxda seçili sayfaya göre listviewde görüntüleme olmakta benim isteğim üstte eklediğim option butonlara göre textbox 7 de yazdığım harf veya rakam duyarlı arama yapmak tı farklı dosyadan alınan verilerle yapmaya çalıştım hata verdi yardım ederseniz çok sevinirim şimdiden teşekkürler

 

[Orion1]

Dosyanız ekte.

Private Sub TextBox7_Change()
Dim ALAN As Range, Adres As String, SAY As Long, satır As Long, X As Long, BUL As Range
' Sheets(Me.ComboBox1.Text).Select
If OptionButton1 = False And OptionButton2 = False And OptionButton3 = False Then
MsgBox "Lütfen arama kriterini seçiniz !", vbCritical, "Dikkat !"
Exit Sub: End If

ListView1.ListItems.Clear

If OptionButton1 = True Then Set ALAN = Range("A3:A" & [A65536].End(3).Row)
If OptionButton2 = True Then Set ALAN = Range("B3:B" & [b65536].End(3).Row)
If OptionButton3 = True Then Set ALAN = Range("F3:F" & [F65536].End(3).Row)

If OptionButton1 = True Then Set BUL = ALAN.Find(TextBox7.Text & "*", , xlValues, xlWhole, , 1)
If OptionButton2 = True Then Set BUL = ALAN.Find("*" & TextBox7.Text & "*", , xlValues, xlWhole, , 1)
If OptionButton3 = True Then Set BUL = ALAN.Find("*" & TextBox7.Text & "*", , xlValues, xlWhole, , 1)
        
         
        If Not BUL Is Nothing Then
                Adres = BUL.Address
             Do
                satır = BUL.Row
                With ListView1
                   .ListItems.Add , , Cells(satır, 1)
                    X = X + 1
                   .ListItems(X).ListSubItems.Add , , Cells(satır, 2)
                   .ListItems(X).ListSubItems.Add , , Cells(satır, 3)
                   .ListItems(X).ListSubItems.Add , , Cells(satır, 4)
                   .ListItems(X).ListSubItems.Add , , Cells(satır, 5)
                   .ListItems(X).ListSubItems.Add , , Cells(satır, 6)
                   .ListItems(X).ListSubItems.Add , , Cells(satır, 7)
                    SAY = SAY + 1
                
                'eğer hücre başında (*) işareti var ise satırı kırmızı renklendir
         If Left(Cells(satır, 2), 1) = "*" Then
            .ListItems(X).ListSubItems(1).ForeColor = vbBlue
            .ListItems(X).ForeColor = vbBlue
         End If
                
                'eğer hücre başında (-) işareti var ise satırı kırmızı renklendir
         If Left(Cells(satır, 2), 1) = "-" Then
            .ListItems(X).ListSubItems(1).ForeColor = vbRed
            .ListItems(X).ForeColor = vbRed
         End If
         
                End With
                Set BUL = ALAN.FindNext(BUL)
             Loop While Not BUL Is Nothing And BUL.Address <> Adres
        End If
        
        ListView1.Sorted = True  'Sıralama işlemini açtık.
        ListView1.SortOrder = 0
        ListView1.Sorted = False
        
        Label1 = SAY & "    ADET"

Set ALAN = Nothing
Set BUL = Nothing
End Sub

 

[bitmez13]

evren hocam çok teşekkür ederim yardımların için yanlız bir ricam daha var dosyada hep rakamlar var ben rakam yerine yazıda yazdığımda hata veriyor ben istiyorumki hücreye yazıda yazabileyim aratmada sayfa gösterimde hata oluşmasın

 

[Orion1]

evren hocam çok teşekkür ederim yardımların için yanlız bir ricam daha var dosyada hep rakamlar var ben rakam yerine yazıda yazdığımda hata veriyor ben istiyorumki hücreye yazıda yazabileyim aratmada sayfa gösterimde hata oluşmasın

Bu ,benim yazdığım kodlardan değil daha önceden yazılmış olan diğer prosedürlerdeki kodlardan kaynaklanıyor.
Dosyayı istedğiniz gibi düzenledim.Önceki mesajımdan indirebilirsiniz.