commandbutton lar ile listboxa veri çekme

[stres]

Arkadaşlar commandbutton yardımı ile listbox a veri almak istiyorum .Hangi commandbuttona tıklar isem o sayfadaki verileri userformda listelemesini istiiyorum yardımlarınızı bekliyorum.örnek doyam ekte

 

[stres]

konuyu çözdüm sanırım eksiğim varsa düzeltin

 

[halit3]

ekli dosyanıza combobox(açılanliste kutusu) ekledim buradan bütün sayfalardan veri alabilirsiniz

 

[stres]

halit3 hocam Combobox aklıma başka bir şey daha getirdi 6 adet textbox ekledim comboboxta SEÇTİĞİM sayfa ismine göre sayfa3 teki verileri textboxlara yazdırabilirmiyiz

örneğin kırtasiye adlı sayfayı seçti isem
textbox1 =1
textbox2 = kırtasiye
tetxbox3= 13.01.2010
textbox4= 10:00
textbox5= KDV HARİÇ
textbox6= TESLİM EDİLDİ

teşekkür ederim

 

[halit3]

bunu denermisiniz.

Private Sub ListBox1_Click()
sat = ListBox1.ListIndex
For i = 1 To 6
Controls("TextBox" & i).Text = ListBox1.List(sat, i - 1)
Next
End Sub

 

[stres]

Dediğinizi uyguladım istediğim bu değildi .Sanırım eksik anlatmışım comboda sayfa ismi görünürken örneğin KIRTASİYE listboxta kırtasiye sayfasındaki bilgiler görüntülesin buraya kadar tamam .Benim istediğim comboda sayfa ismi görünürken listboxta kırtasiye sayfasındaki bilgilerin görüntülenmesinin yanında textboxlar da görünecek bilgiler combodaki sayfa ismine göre sayfa3 bilgiler görüntülensin umarım başınızı şişirmedim

 

[halit3]

anladığım kadarı ile yaptım

Private Sub ListBox1_Click()
sat = ListBox1.ListIndex
For i = 1 To 6
'Controls("TextBox" & i).Text = ListBox1.List(sat, i - 1)
Controls("TextBox" & i).Text = Worksheets("Sayfa3").Cells(sat + 1, i).Value
Next
End Sub

 

[stres]

hocam sizi de tordum kusura bakmayın birde resimli anlatayım istedim artık kusuruma bakmazsınız

 

[halit3]

combobox1 kodunu aşağıdaki ile değiştiriniz.

Private Sub ComboBox1_Change()
sayfa = ComboBox1.Value
ListBox1.RowSource = ""
ListBox1.Clear
Satır = Worksheets(sayfa).Cells(65536, 1).End(xlUp).Row
kolon = Worksheets(sayfa).Cells(1, 256).End(xlToLeft).Column
bbb = Worksheets(sayfa).Cells(Satır, kolon).Address
ListBox1.ColumnCount = kolon
Set Sh = Sheets(sayfa)
For a = 1 To kolon
yer = Sh.Columns(a).Width
deg = deg & CLng(yer) & ";"
Next
'MsgBox deg
ListBox1.ColumnWidths = deg
ListBox1.RowSource = sayfa & "!a2:" & bbb
ListBox1.ColumnHeads = True
sat = ComboBox1.ListIndex + 1
For i = 1 To 6
Controls("TextBox" & i).Text = Worksheets("Sayfa3").Cells(sat, i).Value
Next
End Sub

 

[stres]

teşekkürler eline emeğine sağlık

 

[halit3]

iyi çalışmalar