Listbox içindeki sütunlarda çarpma işlemi

[beza]

Merhaba,
Listbox1 içerisinde 4 adet sütun var. Sütun 2 de ürün fiyatı, sütun 3 e ürün adedi geliyor.
Sütun 2 de fiyat sonuna &" TL"
Sütun 3 de Adet sonuna &" Adet" ekleniyor.
Bu şekilde sütun altlarına toplama işlemi yaptıramıyorum?
Ayrıca sütun 2 ve sütun 3 ü çarpıp sonucu sütun 4 e yazdırabilir miyim?
Teşekkür eder, iyi bayramlar dilerim.

 

[Korhan Ayhan]

Merhaba,

Verileri ListBox nesnesine nasıl yüklüyor sunuz?

 

[beza]

Merhaba,

Verileri ListBox nesnesine nasıl yüklüyor sunuz?

Merhaba Korhan Bey,
Aşağıdaki örnekte olduğu gibi commandbuttonlara tıklayarak yükleniyor.
Birde userform açıldığında combobox boş olarak geliyor. Combobox içindeki ilk değeri açılışta ilk satıra getirebiliyor muyum?
Ayırdığınız zaman için teşekkür ederim.

Private Sub CommandButton1_Click()
ListBox1.AddItem "Filtre Kahve"
ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("Fiyatlar").Range("B2") & " TL"
If ComboBox1 = "" Then
ComboBox1.Text = "1"
ListBox1.List(ListBox1.ListCount - 1, 2) = ComboBox1.Text & " Adet"
Else
ListBox1.List(ListBox1.ListCount - 1, 2) = ComboBox1.Text & " Adet"
End If
End Sub

 

[Korhan Ayhan]

Örnek dosyanızı paylaşabilirseniz ona göre kod yazılabilir.