Listbox a çift tıklama ile verilerin textboxlara aktarılması

[kemal turan]

Merhaba,
Forumdaki çalışmalardan bir şeyler yapmaya çalıştım.İstediğimi uygulayamadım.
İsteğim listboxa çift tıkladığımızda verilerin textbox lara gitmesi.
clistbox 1 nci sutun seçilen ürün textboxlarına;
clistbox 2 nci sutun adet textboxlarına;
clistbox 3 nci sutun fiat textboxlarına;
Tutar textboxları ise adet ile fiat ın çarpım sonucunu gösterecek.
Toplam tutar = tutar ları toplayacak
Satış kaydet tuşuna bastığımızda satışlar sahifesine verileri kaydedecek.(örnek kayıt satışlar sahifesinde vardır)
Örnek dosya ektedir.
Teşekkür ederim.

 

[kemal turan]

merhaba,
ek dosyada istediğimin bir kısmını başardım.
Aşağıdaki listbox çift tıklama kodunun daha kısa bir şekli varmı.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

a = ListBox1.Column(0)
b = ListBox1.Column(2)
c = ListBox1.Column(3)
If TextBox14.Value = "" Then
TextBox14.Text = a
TextBox36.Text = b
TextBox58.Text = c
TextBox80.Text = b * c

ElseIf TextBox15.Value = "" Then
TextBox15.Text = a
TextBox37.Text = b
TextBox59.Text = c
TextBox81.Text = b * c
ElseIf TextBox16.Value = "" Then
TextBox16.Text = a
TextBox38.Text = b
TextBox60.Text = c
TextBox82.Text = b * c

Else
MsgBox "Tüm satırlar doldu. Seçim yapamazsınız.", vbCritical

End If
End Sub