ComboBoxtaki veriyi arayıp bulunan satırdaki verileri listeleme

[kelkitli]

Değerli Dostlar Selamlar,
UserForm üzerindeki Comboboxtaki veriyi arama kriteri olarak kulanıp, Sayfada B sütununda arayıp bulunan satırdaki verileri B,C,D, 10 adet listBoxta listelemek istiyorum. Yardımcı olurmusunuz?.

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Private Sub CommandButton1_Click()
Dim k As Range, i As Byte
ListBox1.Clear
If ComboBox1.Value = "" Then Exit Sub
Set k = Range("B:B").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    For i = 1 To 10
        ListBox1.AddItem
        ListBox1.Column(0, i - 1) = k.Offset(0, i).Value
    Next i
End If
Set k = Nothing
End Sub

 

[kelkitli]

Sayın Evren Gizlen,
Cevabınız için teşekkür ederim.

Private Sub ComboBox1_Change()
On Error Resume Next
Dim k As Range, i As Byte
ListBox1.Clear
TextBox1 = ""
TextBox2 = ""
If ComboBox1.Value = "" Then Exit Sub
Set k = Sayfa1.Range("B:B").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
For i = 1 To 10
ListBox1.AddItem
ListBox1.Column(0, i - 1) = k.Offset(0, i).Value
Next i
End If
Set k = Nothing
End Sub

Şeklinde yazdım .
Sayfa1 kod sayfasınaki
UserForm1.Show
kodunu çalıştırınca hata oluşuyor. Neden olur.

 

[Orion1]

Set k = Sayfa1.Range("B:B").Find(ComboBox1.Value, , xlValues, xlWhole)
Sayfa1 i aşağıdaki gibi değiştirip deneyiniz birde nesne olmayan nesneye referans oluyormu nesne isimlerinizi kontrol edin.
sheets("Sayfa1")

 

[Orion1]

Sayın Evren Gizlen,
Cevabınız için teşekkür ederim.

Sayfa1 kod sayfasınaki
UserForm1.Show
kodunu çalıştırınca hata oluşuyor. Neden olur.

Size bir püf noktasını söyliyeyim.
Bu gibi hata oluşan durumlarda Userformunuzu VBE'de çalıştırın.
Bu durumda hata veren satır renklenecek ve çözümünü daha rahat bulacaksınız.Eğer satır renkenmiyorsa ve gene hata veriyorsa nesneler veya sayfa adlarını kontrol ediniz.Başka bir yerden programı alıp kulanıyorsanız sizin windowsunuzda OCX'i bulunmayan bir nesneyi kullanıyor olabilirsiniz.
Bu durumda windowsa bu ocx dosyasını tanıtmanız gerekecektir.

 

[kelkitli]

Dosya ekte Sayın Gizlen mümkünse bakarmısınız.

 

[kelkitli]

Sayın Evren Gizlen hatayı giderdim. Sağol varol teşekkür ederim.
Hata şuradaymış.
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!B2:B" & Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
ComboBox1.ListIndex = 0
'TextBox1.Text = Sheets(ComboBox1.Value).Range("B1").Value
'ListBox1.Text = ComboBox1.Value
End Sub

 

[Orion1]

Dosyanız ekte.
Hatalı satırda aşağıda.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!B2:B" & Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
ComboBox1.ListIndex = 0
'TextBox1.Text = Sheets(ComboBox1.Value).Range("B1").Value
[COLOR="Red"][B]ListBox1.Text = ComboBox1.Value[/B][/COLOR]
End Sub

 

[kelkitli]

Sayın Evren Gizlen Teşekkür ederim. Mesajlar bir birine yaklaşık zamana gelmiş. Sizi yormamak için acele etmiştim ama olmadı.

 

[Orion1]

Sayın Evren Gizlen Teşekkür ederim. Mesajlar bir birine yaklaşık zamana gelmiş. Sizi yormamak için acele etmiştim ama olmadı.

Rica ederim.
iyi çalışmalar.