Listbox'a veri girişi yapılabilen program

[Failimechul]

Merhaba
Ben bir sipariş hazırlama programıyla ilgileniyorum. Acaba siparişlerin Listbox'a girilebilmesi mümkün mü?
Alt alta belki 10 kalem sipariş girileceği için başka türlü nasıl yapabilirim bilmiyorum.
Dosya eklememe gerek yok sanırım. Eğer gerekirse gün içinde gönderirim

 

[KONYA42]

Genelde örnek dosyanızı görmek isterler.

 

[Failimechul]

Bu şekilde bir sipariş formunda list box a veri girişi yapılarak sipariş girilsin istiyorum

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton2_Click()
Dim i As Long, sat As Long
If ListBox1.ListCount < 1 Then
    MsgBox "Listboxta veri yok!" & vbLf & "İşlem olmadı!!", vbCritical, "U Y A R I"
    Exit Sub
End If
Application.ScreenUpdating = False
sat = Sheets("d").Cells(Sheets("d").Rows.Count, "B").End(xlUp).Row + 1
Sheets("d").Range("A" & sat).Resize(ListBox1.ListCount, 5) = ListBox1.list
ListBox1.Clear
Application.ScreenUpdating = True
MsgBox "Kayıt Başarı ile alındı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "KAYIT"
End Sub

 

[Failimechul]

İlginiz için teşekkürler Orion1

Fakat;
Benim istediğim şey listbox a veri girişi yapabilmek ve kayıdı o şekilde gerçekleştirmek. Bu mümkün müdür acaba?

 

[Orion1]

İlginiz için teşekkürler Orion1

Fakat;
Benim istediğim şey listbox a veri girişi yapabilmek ve kayıdı o şekilde gerçekleştirmek. Bu mümkün müdür acaba?

Dosyayı güncelledim.
4 nolu mesajdan indirebilirsiniz.