Buton ile ListBox a aktarma

[mahmutbeyli]

Arkadaşlar,
UserForm1 de 9 adet ComboBox tan tanımladığım verileri CommandButton1 ile
ListBox1 nasıl aktarabilirim...Şimdiden Teşekkürler

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
Dim i As Byte
ListBox1.Clear
For i = 1 To 9
    ListBox1.AddItem Controls("ComBobox" & i).Value
Next i
End Sub

 

[gezgin-49]

Arkadaşlar,
UserForm1 de 9 adet ComboBox tan tanımladığım verileri CommandButton1 ile
ListBox1 nasıl aktarabilirim...Şimdiden Teşekkürler

sayın mahmutbeyli http://www.excel.web.tr/showthread.php?t=45919&highlight=Comboboxlarla+veri+s%FCzme+i%FElemi+nas%FDl+yap%FDl%FDr%3F
linkine bir göz atın işinize yarayabilecek bir örnek mevcut

 

[mahmutbeyli]

Sn; Gizlen,Gezgin çok teşekkür ederim...
Evren Gizlen Hocamın önerisi benim istediğim gibi yalnız sğadan sola tek satırda görüntülerim...Çünkü yazdığınız kodları denediğimde alt alta çıkıyor..

 

[Orion1]

Sn; Gizlen,Gezgin çok teşekkür ederim...
Evren Gizlen Hocamın önerisi benim istediğim gibi yalnız sğadan sola tek satırda görüntülerim...Çünkü yazdığınız kodları denediğimde alt alta çıkıyor..

Private Sub CommandButton1_Click()
Dim i As Byte
ListBox1.ColumnCount = 9
ListBox1.Clear
    ListBox1.AddItem
For i = 1 To 9
    ListBox1.Column(i - 1, ListBox1.ListCount - 1) = Controls("ComBobox" & i).Value
Next i
End Sub

 

[mahmutbeyli]

Buton ile ListBox a aktarma ;
Sn;Gizlen harikasınız hemen,anında çözüm...Yardımlarınız için çok teşekkür ederim sayenizde bir şeyler öğrenmeye başladım....Yalnız bir sorum daha olcak..

yukarıda yazdığınız kodu "aktar" butonuyla listboxa alıyorum fakat 14 satır var 14 adet alt altta satır.yani aktar butonuna 14 kere basmam demek ve sayfaya aktar butonuyla sayfa akramak istiyorum

 

[Orion1]

Buton ile ListBox a aktarma ;
Sn;Gizlen harikasınız hemen,anında çözüm...Yardımlarınız için çok teşekkür ederim sayenizde bir şeyler öğrenmeye başladım....Yalnız bir sorum daha olcak..

yukarıda yazdığınız kodu "aktar" butonuyla listboxa alıyorum fakat 14 satır var 14 adet alt altta satır.yani aktar butonuna 14 kere basmam demek ve sayfaya aktar butonuyla sayfa akramak istiyorum

Textbox'ları aktarıyorduk.Şimdi bundan vazgeçtik syafayımı akataracağız?.
Hangi aralaığı aktaracağız?

 

[mahmutbeyli]

Sayın,Gizlen Hocam...
Sizin yazdığınız kodla combolaro butonla listeye alıyoruz..yalnız birer adet alabiliyorum benim istediğim her tıklamada 14 adet satırı alt alta almak istiyorum yada liste sonuna kadar....

 

[Orion1]

Sayın,Gizlen Hocam...
Sizin yazdığınız kodla combolaro butonla listeye alıyoruz..yalnız birer adet alabiliyorum benim istediğim her tıklamada 14 adet satırı alt alta almak istiyorum yada liste sonuna kadar....

Satır derken , nerden nereye kadar?

 

[mahmutbeyli]

hocam,listbox a 14 satır altta veri almak istiyorum....
her tıklama bir alt satıra geçmesi gerekiyor

 

[Orion1]

hocam,listbox a 14 satır altta veri almak istiyorum....
her tıklama bir alt satıra geçmesi gerekiyor

Aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
Dim i As Byte
ListBox1.ColumnCount = 9
If ListBox1.ListCount = 14 Then
    ListBox1.Clear
End If
ListBox1.AddItem
For i = 1 To 9
    ListBox1.Column(i - 1, ListBox1.ListCount - 1) = Controls("ComBobox" & i).Value
Next i
End Sub

 

[mahmutbeyli]

harikasınız teşekkürler

 

[Orion1]

harikasınız teşekkürler

O sizin harikalığınız.!
İyi çalışmalar.

 

[Barons]

sn Evren Bey..birde bu listboxda biriken verileri sayfa1'e toplu halde nasıl atabiliriz.Tabi veriler altalta olacak şekilde .

Çok teşekkürler