commondbutonla yapılan aramaya göre listboxa veri getirmek

[warezamca]

Merhaba arkadaşlar.

Yapmış olduğum bir userforum var bu userforumda birçok textbox combobox dtpicker gibi toolbox araçları var ve bir commondbutton ile textboxa yazmış olduğum tesisat nosuna göre arama yapıp exel sayfasından bu tesisat nosu ile ilgili bilgileri getiriyorum aynı zamanda yeni bilgi girişide yapıyorum.sorunum bu userform üzerinde birde listbox var ve arama yaptığım zaman listboxa Y4:AC4 ve AD4:AH4 aralığındaki bilgilerin alt alta gelmesini istiyorum.yani listbox 5 kolonlu ve iki satırlı olacak.
NOT:sadece ilgili tesisat numarasının bilgileri gelsin yani aktif hücrenin bilgileri
Bu konuda yardım edebilecek varsa sevinirim.

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[warezamca]

örnek dosyayayı ekledim gerçi daha tam tamamlayamadım burada ilk framedeki listbox için yardım istiyorum

 

[Orion1]

Dosyanız Ekte.

Private Sub CommandButton1_Click()
Dim k As Range, adr As String, a As Long, myarr() As String, i As Byte
ListBox1.Clear
ReDim myarr(1 To 5, 1 To 1)
Set k = Range("B4:B65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        a = a + 1
        ReDim Preserve myarr(1 To 5, 1 To a)
        For i = 25 To 29
            myarr(i - 24, a) = Cells(k.Row, i).Value
            Set k = Range("B4:B65536").FindNext(k)
        Next i
    Loop While Not k Is Nothing And k.Address <> adr
    ListBox1.Column = myarr
    Exit Sub
End If
MsgBox "Aradığınız kayıt bulunamadı..!!", vbCritical, "UYARI"
End Sub

 

[warezamca]

Sayın Evren istediğim gibi olmuş fakat diğer bilgiler form üzerine gelmiyor sizin yapmış olduğunuz kodu olduğu gibi ara butonunun işlevine yapıştırdım fakat bu seferde hata ile karşılaştım.

 

[warezamca]

Teşekkür ederim sorunu çözdüm

 

[warezamca]

Evren Bey sizin yapmış olduğunuz kodda y4:ac4 ve y5:ac5 aralığındaki veriler alt alta geliyor halbuki y4:ac4 aralığındaki veri başka bir tesisata ait y5:ac5 başka bir tesisata ait. bu kodu listboxta y4:ac4 aralığındaki veri bir satırda ad4:ah4 aralığındaki veri hemen alt satırında olcak şekilde düzenleyebilirmiyiz?

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim k As Range, adr As String, a As Long, myarr() As String, i As Byte
ListBox1.Clear
ReDim myarr(1 To 5, 1 To 2)
Set k = Range("B4:B65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    
        For i = 25 To 29
            myarr(i - 24, 1) = Cells(k.Row, i).Value
        Next i
        For i = 30 To 34
            myarr(i - 29, 2) = Cells(k.Row, i).Value
        Next i
    ListBox1.Column = myarr
    Exit Sub
End If
MsgBox "Aradığınız kayıt bulunamadı..!!", vbCritical, "UYARI"
End Sub

 

[warezamca]

Tam istediğim gibi olmuş yardımlarınız için çok teşekkür ederim.

İyi Çalışmalar.

 

[Orion1]

Tam istediğim gibi olmuş yardımlarınız için çok teşekkür ederim.

İyi Çalışmalar.

Rica ederim.
İyi çalışmalar.