Listbox'ta seçilene göre textbox'a veri çağırma

[teknadir]

Ekte gönderdiğim çalışmada
Programa Giriş/Ambar Durumunu Gör düğmeleri ile gelen forma listbox ekleyebildim. Ancak listbaoxta seçilen veriye göre textboxlara "liste" sayfasında FE2:FL300 aralığındaki verileri getiremedim.
Ayrıca listboxta listelenen veriler liste sayfasında B2:B300 aralığına kadar olsun istiyorum. Ancak listboxta B sütununda bulunan bütün veriler listeleniyor.

 

[Orion1]

dosyanız ektedir.

Private Sub ListBox1_Click()
Dim sat As Long
sat = ListBox1.ListIndex + 2
TextBox2.Text = Format(Sheets("liste").Cells(sat, "FF").Value, "#,##0.00")
TextBox3.Text = Format(Sheets("liste").Cells(sat, "FE").Value, "#,##0.00")
TextBox9.Text = Format(Sheets("liste").Cells(sat, "FG").Value, "#,##0.00")
For i = 1 To 5
Controls("Textbox" & i + 3) = Format(Sheets("liste").Cells(sat, i + 163).Value, _
"#,##0.00")

Next
End Sub

 

[teknadir]

dosyanız ektedir.

Private Sub ListBox1_Click()
Dim sat As Long
sat = ListBox1.ListIndex + 2
For i = 1 To 5
Controls("Textbox" & i) = Sheets("liste").Cells(sat, 163).Value
Next
End Sub

Bir yerde hata var sevgili Orion;
Listeden bir veri seçtiğimde
textbox1=liste!FE
textbox2=liste!FF
textbox3=liste!FG
textbox4=liste!FH
textbox5=liste!FI
textbox6=liste!FJ
textbox7=liste!FK
textbox8=liste!FL

şeklinde olmasını istiyorum.

 

[Orion1]

Bir yerde hata var sevgili Orion;
Listeden bir veri seçtiğimde
textbox1=liste!FE
textbox2=liste!FF
textbox3=liste!FG
textbox4=liste!FH
textbox5=liste!FI
textbox6=liste!FJ
textbox7=liste!FK
textbox8=liste!FL

şeklinde olmasını istiyorum.

listboxta Tıklama ile textboxlara veri geliyormu peki.Benim yaptığım bölge orası idi.
Eğer orada sorun varsa nerde sorun veriyor.
Ziraa bende gayet iyi çalışıoyr.
Diğer yerlerde hata veriyorsa bende olamyan nesnleri kullanmışsınız(calendar Gibi),bir tane daha vardı.2 tane kullanmışsınız.bende onlar hata verdi.
onları tools==> referencede missing hatası vermişti.Onları kaldırdım.ondan hata verebilir.

 

[teknadir]

listboxta herhangi bir veriye tıkladığımda bütün textboxlarda aynı veri geliyor. Hangi textbox'a liste sayfasında hangi sütunda ilgili verinin gelmesini istediğimi bir önceki mesajda yazmıştım.

 

[Mustafa MUTLU]

Alternatif olsun

Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 1).Select
TextBox1.Text = Cells(ActiveCell.Row, "b")
TextBox2.Text = Cells(ActiveCell.Row, "c")
TextBox3.Text = Cells(ActiveCell.Row, "d")
End Sub

harfleri değiştirerek görmek istediğin sütun harflerini yazabilirsin.

 

[teknadir]

Alternatif olsun

Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 1).Select
TextBox1.Text = Cells(ActiveCell.Row, "b")
TextBox2.Text = Cells(ActiveCell.Row, "c")
TextBox3.Text = Cells(ActiveCell.Row, "d")
End Sub

harfleri değiştirerek görmek istediğin sütun harflerini yazabilirsin.

Olmadı. Ekte gönderdiğim dosya üzerinde deneyebilir misin?

 

[Orion1]

listboxta herhangi bir veriye tıkladığımda bütün textboxlarda aynı veri geliyor. Hangi textbox'a liste sayfasında hangi sütunda ilgili verinin gelmesini istediğimi bir önceki mesajda yazmıştım.

Dosyayı 2nci mesajda düzenledim.
Oradan indirebilirsiniz.

 

[teknadir]

Dosyayı 2nci mesajda düzenledim.
Oradan indirebilirsiniz.

Atladığım bir şey yoksa çalışıyor. Ancak anlayamadığım bir yer var.
Kodlarda sadece 3 textbox'a yer vermişsin. Adı geçen extboxlarda ALINAN, TÜKETİM TOPLAMI ve KALAN MİKTAR kısımları ile ilgili.
Peki aylara göre tüketim miktarını nasıl alıyor? Yani FH, HI, FJ, FK, FL sütünlarını. burasını anlayamadım.

 

[teknadir]

Ayrıca listbox ilgili sütunda 300 satırda bitmesini nasıl sağlayabilirim? Çünkü 300. satırdan sonra listede görünmesini istemediğim, liste ile alakasız bilgiler var.

 

[Orion1]

Atladığım bir şey yoksa çalışıyor. Ancak anlayamadığım bir yer var.
Kodlarda sadece 3 textbox'a yer vermişsin. Adı geçen extboxlarda ALINAN, TÜKETİM TOPLAMI ve KALAN MİKTAR kısımları ile ilgili.
Peki aylara göre tüketim miktarını nasıl alıyor? Yani FH, HI, FJ, FK, FL sütünlarını. burasını anlayamadım.

ay textboxları döngü ile verileri alıyor.

Ayrıca listbox ilgili sütunda 300 satırda bitmesini nasıl sağlayabilirim? Çünkü 300. satırdan sonra listede görünmesini istemediğim, liste ile alakasız bilgiler var.

zaten 300ncü satıra kadar veri alıyor.

 

[teknadir]

Hayır. 300. satırdan sonrasını da alıyor. Dosya ekte.

 

[Orion1]

Hayır. 300. satırdan sonrasını da alıyor. Dosya ekte.

Hayır almıyor.
Benim size yolladığım dosyayı deneyin bakalım alıyormu.
Almıyor.300 satır alıyor.her iki dosyadada initialize olayındaki ilgili yere bakın isterseniz.Benim son yolladığımla sizin son yolladığınız aynimi.?

 

[teknadir]

Tamamdır arkadaşım. Sağol.

 

[bilisim2010]

Alternatif olsun

Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 1).Select
TextBox1.Text = Cells(ActiveCell.Row, "b")
TextBox2.Text = Cells(ActiveCell.Row, "c")
TextBox3.Text = Cells(ActiveCell.Row, "d")
End Sub

harfleri değiştirerek görmek istediğin sütun harflerini yazabilirsin.

hocam merhaba kusura bakmayın araya girdim ama konu benim sorunumu ilgilendiriyor özür dilerim. bu formüller ile seçtirme ve yazdırma yapabiliyorum ancak listboxun 3. satırı yada 2. satırındakinide götürüp 1. satıra yazdırıyor bunu nasıl önlerim?

3 tane farklı kod var listbox1 de b5 b6 b7 sütununda 406002700 onun altında 407002700 onun altında 408002700 ben 3. ye tıklayınca textbox3 406002700 ı yazdırıyor bunu önlemek istiyorum hocam.