[Yardım]  'BUL' SONUÇLARI LİSTBOX'DA GÖRÜNTÜLEME VE SEÇME

Verilerinizi listeleyebileceğiniz liste kutusu

'BUL' SONUÇLARI LİSTBOX'DA GÖRÜNTÜLEME VE SEÇME

İleti#1)  uguler06 » 08 Haz 2019 02:07

Selamın Aleyküm Üstatlarım;
Bir konuda değerli yardımlarınıza ihtiyacım olacak. Görseldeki gibi bir Userform hazırlıyorum.Ancak işin içinden çıkamadım.Gece gündüz forumda aradım ancak sorumun cevabımı bulamadım.
Sorum şudur ki;
1- Ekte de görüleceği üzere userform üzerinde BUL butonuna basarak Müşteri no ile arattığımda; aradığım sonuçlar Listbox'da görülsün (Sebebi; aynı Müşteri no ile birden fazla kaydın olması)
2- Listbox üzerinde; çıkan sonuçların içinden bir kayda tıkladığımda o satırın bilgilerini turuncu ve kırmızı alanlarda göstersin.

Allah rızası için bu konuda yardımınıza ihtiyacım var. Bir yol gösteren olursa şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
uguler06
 
Kayıt: 07 Haz 2019 22:53
Meslek: Bankacı
Yaş: 34
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: 'BUL' SONUÇLARI LİSTBOX'DA GÖRÜNTÜLEME VE SEÇME

İleti#2)  Feyzullah » 08 Haz 2019 02:51

Kodları deneyiniz.


Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim x_d()
With Worksheets("ANA SAYFA")
Me.ListBox1.Clear
For xd 
= 2 To .Cells(Rows.Count, 2).End(xlUp).Row
If 
.Cells(xd, 2) = Me.TextBox1.Text Then
say 
= say + 1
ReDim Preserve x_d
(1 To 19, 1 To say)
x_d(1, say) = .Cells(xd, 1).Value
x_d
(2, say) = .Cells(xd, 2).Value
x_d
(3, say) = .Cells(xd, 3).Value
x_d
(4, say) = .Cells(xd, 4).Value
x_d
(5, say) = .Cells(xd, 5).Value
x_d
(6, say) = .Cells(xd, 6).Value
x_d
(7, say) = .Cells(xd, 7).Value
x_d
(8, say) = .Cells(xd, 8).Value
x_d
(9, say) = .Cells(xd, 9).Value
x_d
(10, say) = .Cells(xd, 10).Value
x_d
(11, say) = .Cells(xd, 11).Value
x_d
(12, say) = .Cells(xd, 12).Value
x_d
(13, say) = .Cells(xd, 13).Value
x_d
(14, say) = .Cells(xd, 14).Value
x_d
(15, say) = .Cells(xd, 15).Value
x_d
(16, say) = .Cells(xd, 19).Value
x_d
(17, say) = .Cells(xd, 17).Value
x_d
(18, say) = .Cells(xd, 18).Value
x_d
(19, say) = .Cells(xd, 19).Value
End If
Next xd
End With
Me
.ListBox1.ColumnCount = 19
If say 
> 0 Then Me.ListBox1.Column = x_d
End Sub

Private Sub ListBox1_Click
()
TextBox51.Value = Me.ListBox1.Column(12)
TextBox53.Value = Me.ListBox1.Column(13)
TextBox54.Value = Me.ListBox1.Column(14)
TextBox55.Value = Me.ListBox1.Column(15)
TextBox57.Value = Me.ListBox1.Column(9)
TextBox58.Value = Me.ListBox1.Column(10)
ComboBox52.Value = Me.ListBox1.Column(11)
TextBox60.Value = Me.ListBox1.Column(16)
TextBox61.Value = Me.ListBox1.Column(17)
TextBox62.Value = Me.ListBox1.Column(18)
TextBox63.Value = Me.ListBox1.Column(19)
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: 'BUL' SONUÇLARI LİSTBOX'DA GÖRÜNTÜLEME VE SEÇME

İleti#3)  uguler06 » 08 Haz 2019 10:37

Metehan Hocam Merhaba;
Öncelikle dönüşünüz için teşekkür ederim. Ancak yine olmadı sanırım. Ya da ben derdimi tam anlatamamış olabilirim.

1- Arama için searchbox a müşteri no yazdığımda arama sonucu olarak müşteri bilgisini istediğim yerde gösteriyor. Ancak aynı müşteri numarasının birden fazla kaydı olduğu için tüm kayıtları listbox da görmek istiyorum
2- Listbox da görünen kayıtlardan birine tıkladığımda ise turuncu alanlara sadece o satırın bilgilerini çağırmak istiyorum.
Kullanıcı avatarı
uguler06
 
Kayıt: 07 Haz 2019 22:53
Meslek: Bankacı
Yaş: 34
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: 'BUL' SONUÇLARI LİSTBOX'DA GÖRÜNTÜLEME VE SEÇME

İleti#4)  Feyzullah » 08 Haz 2019 12:23

Tamam, benim yazdığım kodlar ne yapıyor. Yazdığınız işleri buttunon adını ve listboxun adını düzeltin kullanın. Onları resimlerde belitmemişsiniz. Ben sizin dediğinizi anladım yani
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum ListBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe