Düşeyara ile listbox a bilgi alma

[Erhan Köseoğlu]

sanırım bu vba da find komutu ile oluyor, textbox a veri almayı yapabildim ancak listbox ı yapamadaım.

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim myarr() As String, a As Long, k As Range, adrs As String
ReDim myarr(1 To 1, 1 To 1)
ListBox1.Clear
Set k = Range("A:A").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    adrs = k.Address
    Do
        a = a + 1
        ReDim Preserve myarr(1 To 1, 1 To a)
        myarr(1, a) = k.Offset(0, 1).Value
        Set k = Range("A:A").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adrs
    ListBox1.Column = myarr
End If
End Sub

 

[Erhan Köseoğlu]

ellerinize saşlık çok teşekkür ederim

 

[Erhan Köseoğlu]

benim yaptığımda combobox da veriler çıkıyordu bund averiler çıkmıyor bir sürü örne inceledim fakat combobox u eski haline getiremedim

 

[Orion1]

benim yaptığımda combobox da veriler çıkıyordu bund averiler çıkmıyor bir sürü örne inceledim fakat combobox u eski haline getiremedim

Anlamadım.
Ben comboboxla ilgili bir şey yapmadım.Comboboxla ilgili ne yaptıysanız siz yapmışsınız.Ne yaptığınız bir düşünün bakalım.Hatanız nerde?

 

[Erhan Köseoğlu]

ben başka bir dosyaya bunu uygulamaya çalışınca combobox değişti, ben de sizinyazdığınız kodlar ile değişti diye düşündüm, özür dilerim, meşgul ettim sizi