textbox listbox iliskisi

[Barons]

Merhaba
Ek'teki listede 10 adet textbox ve 1 adet listbox mevcut.
Amacım textboxlara girdiğim verileri önce listbox'a atmak ve daha sonrada excel sayfasına aktarmak.Tabi aktarmadan önce listbox'da gereken son kontrolleri yaptıktan sonra icap ederse silmek,değiştirmek.
Listbox açılışta sayfadaki verileri almayacak,sadece veriyi kontrollu giriş amacıyla kullanmak istiyorum.
Sil ve değiştir komutlarında sorunum yok.
Değerli üstadlardan sadece "Listbox'a aktar" ve "Excel'e aktar" komutlarının kodlarında yardımlarını rica ediyorum.Listboxda biriken satırlar toplu halde tek seferde sayfaya aktarılması gerekiyor.
Çok teşekkürler

 

[ferhat73]

sn barons''un sorusunun yanıtını verebilecek arkadaşlardan bilgi rica ediyoruz.
(benim de öğrenmek istediğim bir konu)

iyi çalışmalar

 

[Barons]

Listbox'a aktar kısmını hallettim.Kodlar aşağıdadır.
Private Sub CommandButton1_Click()
Dim i As Byte
ListBox1.ColumnCount = 10
If ListBox1.ListCount = 14 Then
ListBox1.Clear
End If
ListBox1.AddItem
For i = 1 To 10
ListBox1.Column(i - 1, ListBox1.ListCount - 1) = Controls("textbox" & i).Value
Next i
End Sub

fakat Listbox'dan excel sayfasına aktarmada sıkıntı var.Aktarıyor ancak altalta olmuyor vede son veri yerine oturmuyor.Veriler üstüste yazılıyor.Kod aşağıdadır.
Private Sub CommandButton2_Click()
Worksheets("sayfa1").Select
Set S1 = Sheets("sayfa1")
son = S1.[a65536].End(3).Row + 1
S1.Cells(son, "A") = Sheets("sayfa1").Range("A65536").End(xlUp).Row + 1

sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
S1.Range("b2:" & Cells(sat + 2, sut).Address) = ListBox1.List

End Sub

2nci seçeneği çözecek arkadaşlardan yardım lütfen.

 

[Barons]

Forumdaki üstadlar yardım....LİSTBOX toplu transfer sorunu

 

[exam77]

İyi geceler Syn Barons,

Şimdilik ekli dosyada uyguladığım şekilde bir çözüm ürettim.
Sanırım işinizi görecektir.

 

[Barons]

çok teşekkürler elinize sağlık...tek bir sorun kaldı...excele aktar deindikten sonra listbox'ın temizlenmesi..aşağıdaki kodları denedim ama hata verdi.
Listbox1.clear
Listbox1.value=""
tekrar elinize sağlık

 

[exam77]

Aşağıdaki kodu deneyin...

For i=listbox1.listcount-1 To 0 Step -1
Listbox1.Removeitem Listbox1.list(i)
Next i

 

[Barons]

ilginiz için çok teşekkürler...ancak remove satırında hata veriyor.on error resume next ile geçmeyi denedim ama olmadı.

 

[exam77]

Ekli dosyada bir çözüm ürettim.
İyi Çalışmalar...

 

[Barons]

ListBox1.RowSource = Empty

bu kodla işim halloldu.Çok teşekkürler

 

[exam77]

Farklı yoldan aynı zamanda çözüme ulaşmışız

İyi Çalışmalar...

 

[ulutanas]

arkadaşlar bu işlem benimde işime yaradı fakar bi sorun var sanırım texbox lardaki verileri listbox a aktarıyoruz fakat verilerden birisinin hatalı olduğunu farkettiğimizde sil ve değiştir tuşunu kullanmamız için kod yazılmamış bununla ilgilide bir düzenleme yapabilirseniz süper olur. ilgilenen arkadaşlara teşekkürler.

 

[ulutanas]

]arkadaşlar bu işlem benimde işime yaradı fakar bi sorun var sanırım texbox lardaki verileri listbox a aktarıyoruz fakat verilerden birisinin hatalı olduğunu farkettiğimizde sil ve değiştir tuşunu kullanmamız için kod yazılmamış bununla ilgilide bir düzenleme yapabilirseniz süper olur. ilgilenen arkadaşlara teşekkürler.