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

Katılım
22 Şubat 2007
Mesajlar
250
Excel Vers. ve Dili
excel xp
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.
 

Ekli dosyalar

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
dosyanız ektedir.:cool:
Kod:
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
 

Ekli dosyalar

Katılım
22 Şubat 2007
Mesajlar
250
Excel Vers. ve Dili
excel xp
dosyanız ektedir.:cool:
Kod:
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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.:cool:
 
Katılım
22 Şubat 2007
Mesajlar
250
Excel Vers. ve Dili
excel xp
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

Destek Ekibi
Destek Ekibi
Katılım
24 Temmuz 2008
Mesajlar
1,587
Excel Vers. ve Dili
Ofis 2013 TR 32 Bit
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.
 
Katılım
22 Şubat 2007
Mesajlar
250
Excel Vers. ve Dili
excel xp
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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.:cool:
 
Katılım
22 Şubat 2007
Mesajlar
250
Excel Vers. ve Dili
excel xp
Dosyayı 2nci mesajda düzenledim.
Oradan indirebilirsiniz.:cool:
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.
 
Katılım
22 Şubat 2007
Mesajlar
250
Excel Vers. ve Dili
excel xp
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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.:cool:
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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.?
 

bilisim2010

Altın Üye
Katılım
2 Nisan 2011
Mesajlar
68
Excel Vers. ve Dili
office 2007 tr
Altın Üyelik Bitiş Tarihi
17-12-2025
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.
 
Üst