Listboxtan textboxa veri almak

[vivaayew_ts]

makrolara yeni basladım amacım burda bir nevi stok kontrolü için bir çalışmaya başlamak. Bulduğum çalışmalar çok karışık ben sadece bir çalışma yapmaya çalışıryorum.
Böyle bir başlangıç yaptım listele deyince listboxa verileri çekiyorum, ürün isimleri birbirine benzer olduğu için giriş yaparken şöyle birşey düşünüyorum.
ürün adına göre ekleme yapmayı planlıyorum her ürünün kodu yok çünkü, ürün adını girmeye başladığımda listboxtaki verilerin süzülmesini istiyorum mesela "sabun" yazacağız s yazıdığımda ürün adı sadece s olanların kalmasını sa yazıcınca dahada azalmasını ve daha sonra listboxta bu satıra çift tıklayınca değerlerin textboxlara yazılmasını istiyorum.
Sanırım çok şey istedim.
Yol gösterebilcek bi fikir sunarsanız çok sevinirim.
İyi çalışmalar dilerim

 

[İhsan Tank]

merhaba
bende buna benzer bir soru sormuştum Halit3 Uzman yardım etmişti
buyrun link burda tıklayın

 

[vivaayew_ts]

çok sağolun ama kodlar çok karışık geldi
şunları sorarak başlayayım ozaman;
1.listbox'ım 4 kolon, ben textbox'ımda lıstboxtaki 2. kolondan nası arama yaptırabilirim listboxta harfe göre süzecek şekilde.
2. süzme yaptık örneğin textboxa "sabu" yazdım lıstboxın 2. kolonunda sabun değeri olan satır kaldı sadece ben sonra bu satıra tıkladığımda ddeğerleri textboxa nası yazdırabilirim örneğin listboxtaki 1. kolonu textbox1'e kolon 2yi textbox2'ye.

umarım anlatabilmişimdir.

 

[vivaayew_ts]

merhaba
bende buna benzer bir soru sormuştum Halit3 Uzman yardım etmişti
buyrun link burda tıklayın

Private Sub ListBox1_Click()
On Error Resume Next
sat = Val(ListBox1.List(ListBox1.ListIndex, 1))
For j = 1 To 14
Controls("Textbox" & j).Value = Sheets("REHBER").Cells(sat, j).Value

Next j

End Sub

Şu kodları açıklayabilirmisiniz

 

[İhsan Tank]

çok sağolun ama kodlar çok karışık geldi
şunları sorarak başlayayım ozaman;
1.listbox'ım 4 kolon, ben textbox'ımda lıstboxtaki 2. kolondan nası arama yaptırabilirim listboxta harfe göre süzecek şekilde.
2. süzme yaptık örneğin textboxa "sabu" yazdım lıstboxın 2. kolonunda sabun değeri olan satır kaldı sadece ben sonra bu satıra tıkladığımda ddeğerleri textboxa nası yazdırabilirim örneğin listboxtaki 1. kolonu textbox1'e kolon 2yi textbox2'ye.

umarım anlatabilmişimdir.

merhaba
öncelikle son yaptığınız dosyayı gösterirseniz daha iyi olur
ikincisi ise
kodları açıklama imkanım bulunmuyor çünkü ben yazmadım.

 

[halit3]

çok sağolun ama kodlar çok karışık geldi
şunları sorarak başlayayım ozaman;
1.listbox'ım 4 kolon, ben textbox'ımda lıstboxtaki 2. kolondan nası arama yaptırabilirim listboxta harfe göre süzecek şekilde.
2. süzme yaptık örneğin textboxa "sabu" yazdım lıstboxın 2. kolonunda sabun değeri olan satır kaldı sadece ben sonra bu satıra tıkladığımda ddeğerleri textboxa nası yazdırabilirim örneğin listboxtaki 1. kolonu textbox1'e kolon 2yi textbox2'ye.

umarım anlatabilmişimdir.

ekli dosyayı kontrol ediniz.

 

[vivaayew_ts]

Çok sağolun Sn halit3 tam istediğim gibi olmuş kodları öğrenmeye çalışıyorum.
Fakat şöyle bir sorun var;
listbox a tıklayınca textbox a değerli yazıyor fakat listboxa tıklı iken listele butonuna tıklayınca hata veriyor.

 

[halit3]

Private Sub ListBox1_Click()
On Error Resume Next
sat = Val(ListBox1.List(ListBox1.ListIndex, 1))
For j = 1 To 14
Controls("Textbox" & j).Value = Sheets("REHBER").Cells(sat, j).Value
 
Next j
 
End Sub

Şu kodları açıklayabilirmisiniz

On Error Resume Next
hata varsa hataları atlıyor

sat = Val(ListBox1.List(ListBox1.ListIndex, 1))
listbox nesnesinin üzerine tıkladığımız zaman o tıklanılan satırdaki 2. kolondaki değeri alıyor ve satır numarası olarak algılıyor

For j = 1 To 14
burada döngü kuruluyor 1 den 14 kadar

Controls("Textbox" & j).Value = Sheets("REHBER").Cells(sat, j).Value
burada texbox1 nesnesinden textbox14 e kadar olan nesnelere rehber sayfasından listbox nesnesinin seçilen satırdaki 2. kolunundaki sayıya isabet eden rehber sayfasından o hücredeki degerleri alıyor.


şu açıklamayıda yamıyım listbox nesnesinin kolon sayısı 0 dan başlar yani sayısal değeri 1 olan kolonun numarası 0 dır.

sat = Val(ListBox1.List(ListBox1.ListIndex, 1))
burada (1) birin anlamı 2. kolon dmektir.

 

[halit3]

Çok sağolun Sn halit3 tam istediğim gibi olmuş kodları öğrenmeye çalışıyorum.
Fakat şöyle bir sorun var;
listbox a tıklayınca textbox a değerli yazıyor fakat listboxa tıklı iken listele butonuna tıklayınca hata veriyor.

CommandButton1_Click komutu ListBox1.RowSource ile veri alıyor burada satır numaraları olmadığından bu hatayı alıyorsunuz.

gönderdiğim kodda ListBox1.AddItem özelliği ile veri alınıyor


CommandButton1_Click olayını aşağıdaki ile değiştiriniz.

Private Sub CommandButton1_Click()
TextBox5_Change
End Sub

 

[vivaayew_ts]

Açıklama için de teşekkür ederim
Ayrıca önerdiğiniz düzeltme ile hatada giderildi teşekkürler.

 

[vivaayew_ts]

Bir sorun ile daha karşılaştım
burada listbox listelediğimizde textboxa hic veri girmeden listboxa tıklarsak yine hata veriyor

 

[halit3]

Bir sorun ile daha karşılaştım
burada listbox listelediğimizde textboxa hic veri girmeden listboxa tıklarsak yine hata veriyor

siz 9 nolu mesajı dikkate almamışınız sorun ondan kaynaklanıyor