Listbox süz ve al

[ReBiwAr]

Yine tıkandım yetişin

Dosya ekte. Anlattım orda

İyi Çalışmalar.

 

[ReBiwAr]

Yardım bekliyorum arkadaşlar....

 

[Orion1]

Dosyanız ekte.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = [B][COLOR="Red"]10[/COLOR][/B]
ListBox1.RowSource = "Sayfa1!B2:[B][COLOR="Red"]K[/COLOR][/B]" & Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
End Sub

Private Sub CommandButton1_Click()
Dim k As Range, j As Byte, adr As String, x As Long
ListBox1.RowSource = vbNullString
With Sheets("Sayfa1")
    Set k = .Range("B:B").Find(TextBox6.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            ListBox1.AddItem
            For j = 2 To [B][COLOR="Red"]11[/COLOR][/B]
                ListBox1.Column(j - 2, x) = .Cells(k.Row, j).Value
            Next j
            x = x + 1
            Set k = Range("B:B").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
End With
End Sub

 

[ReBiwAr]

Evren hocam sizi görmek çok güzel. Çok Teşekkür ederim.

İyi Çalışmalar.

 

[Orion1]

Evren hocam sizi görmek çok güzel. Çok Teşekkür ederim.

İyi Çalışmalar.

Rica ederim iyi çalışmalar.

 

[ReBiwAr]

hocam buna birde süzülen verileri tıkladığımda textbox ve comboboxlara gelmesi şeklinde bir ekleme yapılabilir mi?

 

[Orion1]

Textboxa ve combobxa ait kodları yazdım diğerlerine kodlarıda siz yazın.
Dosyayı 3 numaralı mesajdan indirebilirsiniz.

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
TextBox1.Text = ListBox1.Column(0)
ComboBox1.Text = ListBox1.Column(1)
End Sub

 

[ReBiwAr]

Gerisi kolay çok çok teşekkür ederim.

Kolay gele...

 

[Orion1]

Gerisi kolay çok çok teşekkür ederim.

Kolay gele...

Rica ederim.
Kolay gelsin

 

[ReBiwAr]

Merhaba evren hocam,

Çalışmada şöyle bir değişiklik yaptım. Listbox rowsource olayını B:K aralığı yapmam gerekti ve yaptım. Ancak arama yaptıktan sonra listbox row source b:h arasında kalıyor buda yapacağım işte beni zorluyor. Ne yapımsa düzeltemedim. Yardım edersen sevinirim.

Her şey için çok ama çok teşekkürler.

İyi Çalışmalar.

3.Mesajdaki dosyadan anlatabilirsin. Kolay gelsin

 

[Orion1]

Merhaba evren hocam,

Çalışmada şöyle bir değişiklik yaptım. Listbox rowsource olayını B:K aralığı yapmam gerekti ve yaptım. Ancak arama yaptıktan sonra listbox row source b:h arasında kalıyor buda yapacağım işte beni zorluyor. Ne yapımsa düzeltemedim. Yardım edersen sevinirim.

Her şey için çok ama çok teşekkürler.

İyi Çalışmalar.

3.Mesajdaki dosyadan anlatabilirsin. Kolay gelsin

Dosyayı 3ncü mesajdan indirebilirsiniz.

 

[ReBiwAr]

hocam ne bu hız. Nazar değmesin. Eline koluna yüreğine sağlık...

İyi Çalışmalar.

 

[Orion1]

hocam ne bu hız. Nazar değmesin. Eline koluna yüreğine sağlık...

İyi Çalışmalar.

Rica ederim.
İyi çalışmalar.