Listboxda ki verileri kaydettikçe listeye aktarma

[taneryuksell]

Arkadaşlar bir dosya yapmaya çalıştım ama bir yerde tıkandım yardımlarınızı bekliyorum.

Bir tane userform oluşturdum.

User form üzerin de 10 adet textbox var. Ben bunlara veri girip kaydettikçe (Combobutton) userform altın da 10 tane oluşturduğum listeye geliyor. (textbox1 - listbox 1 geliyor.) Ama yapmaya çalıştığım ise ben kaydet butonuna bastıkça aynı zamanda listbox'un içinde ki verileri Liste diye oluşturduğum sayfayada boş olan ilk satıra sırasıyla aktarmasını istiyorum. A2 Hücresinden itibaren

Yada direkt textbox daki verileri de listeye aktarmak mümkünse o da olur

 

[PLİNT]

Merhaba
Textboxlar sıralımı?
Listbox a verileri nasıl alıyorsunuz?
Daha hızlı netice alma açısından www.dosya.tc örnek doya eklermisiniz?

 

[muygun]

Merhaba;

userforma bir CommandButton (CommandButton1) ekleyin ve bu butona;

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Liste")
sonsatir = s1.Range("A65536").End(xlUp).Row + 1

For i = 1 To 10
s1.Cells(sonsatir, i) = Controls("TextBox" & i)
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını bağlayarak deneyin.
İyi çalışmalar.

 

[taneryuksell]

Listboxdan veriyi hücreye çek

Hocam örneği yükledim Listbox üzerinden... yani burada bir butonum yok. ben A1 hücresine gelince listbox görünür hale geliyor buraya kadar getirdim. tek sıkıntım listboxun içinde ki bir veriye tıklayınca onu A1 hücresine yazsın.