Combobox da arama sorunu

[okankoc25]

Arkadaşlar combobox da arama yapmaya çalışınca excel kitleniyor.ayrıca sadece bir sayfa için arama yapabiliyorum diğer sayfalarda arama nasıl yapabilirim?

 

[okankoc25]

Özür dilerim dosyayı unutmuşum.

 

[okankoc25]

Arkadaşlar Allah rızası için bir bakın ya.Kafayı yedim 2 haftadır bu proğram için.ve işin için çok gerekli.

 

[Korhan Ayhan]

Merhaba,

Aceleyle aşağıdaki şekilde düzenledim. Deneyiniz.

İçerir yöntemi ile arama yapar.

Private Sub ComboBox9_Change()
    Dim Son, Veri, Alan, Dizi, X, Y
    
    Son = Sheets("Almanya").Cells(Rows.Count, 1).End(xlUp).Row
    
    If OptionButton1 = True Then
        Set Alan = Sheets("Almanya").Range("B2:B" & Son)
    ElseIf OptionButton2 = True Then
        Set Alan = Sheets("Almanya").Range("C2:C" & Son)
    Else
        MsgBox "Lütfen arama kriterini belirleyiniz!", vbCritical
        Exit Sub
    End If
        
    ListBox1.RowSource = ""
    
    ReDim Dizi(1 To 37, 1 To 1)
    
    For Each Veri In Alan
        If UCase(Replace(Replace(Veri, "ı", "I"), "i", "İ")) Like "*" & UCase(Replace(Replace(ComboBox9.Text, "ı", "I"), "i", "İ")) & "*" Then
            X = X + 1
            ReDim Preserve Dizi(1 To 37, 1 To X)
            
            For Y = 1 To 37
                Dizi(Y, X) = Sheets("Almanya").Cells(Veri.Row, Y).Value
            Next
        End If
    Next
    
    If X > 0 Then
        ListBox1.Column = Dizi
    Else
        MsgBox "Aradığınız kayıt bulunamadı!", vbCritical
    End If
End Sub

 

[okankoc25]

Teşekkür ederim.diğer sorunları da proğramın bakman mümkün mü?mesela arama yaptıktan sonra verilerin hepsi textboxlara yansımıyor.

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımdaki kodda hata vardı. Düzelttim. Tekrar deneyiniz.

Sanıyorum bir program hazırlamaya çalışıyorsunuz. Bununla ilgili bir sürü örnek çalışma var. İnceleyip irdelerseniz kendinizde yapabilirsiniz.