Listbox'tan seçip hücreye nasıl aktarılır?

[MERDAG]

Merhaba;
Aşağıdaki kodu kendi çalışmama uyarlıyamadım
Bu kodla sayfada açılan userfor üzerindeki listboxta seçtiğim satırı butona basınca A sütununda ilk boş satıra aktarıyor
Benim yapmak istediğim A sütunu değilde D sütununa aktarması
Ya bu şekilde butona basarak ya da listbox üzerindeki satıra çift tıklayarak aktarmasını istiyorum.
Yardımlarınız için şimdiden teşekkürler...

Private Sub CommandButton1_Click()
Dim k As Byte, sat As Long
If ListBox1.ListCount < 1 Then Exit Sub
If ListBox1.ListIndex < 0 Then Exit Sub
sat = Cells(65536, "A").End(xlUp).Row + 1
For k = 1 To 3
Cells(sat, k).Value = ListBox1.Column(k - 1)
Next
End Sub

Private Sub UserForm_Initialize()
ListBox1.RowSource = "Sayfa2!Data"
ListBox1.ColumnCount = 3
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "50;50;30"
End Sub

 

[MERDAG]

Merhaba;
Yapmak istediğimi şu şekilde yapmayı başardım sayılır.
Burada Textbox1'e girdiğim değere göre Listbox1'de verileri sıralıyorum. Buradan seçtiğim veriye çift tıkladığım zaman bulunduğum sayfanın D sütununa veriyi ekliyorum. Buraya kadar her şey tamam

Kalan miktarı görmek için birde Textbox2 ekledim Listbox1'de seçmiş olduğum değere tıkladığım (tek click) zaman değere ait L sütunundaki kalan miktarının Textbox2'de görünmesini istiyorum...
İlginize şimdiden teşekkürler...

 

[acolkesen1]

Merhaba, sanırım yoğunluktan dosya ekleyemedim. Userformun kod bölümüne aşağıdaki kodu kopyalayın.

Private Sub ListBox1_Click()
TextBox2 = WorksheetFunction.SumIf([c5:c100], ListBox1.List(ListBox1.ListIndex), [l5:l100])
End Sub
Hücre aralıklarını istediğiniz gibi değiştirin.

 

[MERDAG]

İlginize teşekkürler Sayın acolkesen1
Ama bu kodla sadece stok sayfayındayken TextBox2 kalan sonucu gösteriyor.
Diğer sayfalarda çalışmıyor...

 

[MERDAG]

Nasıl bir ekleme yapmam gerekir aşağıdaki koda

Private Sub ListBox1_Click()
TextBox2 = WorksheetFunction.SumIf([c5:c100], ListBox1.List(ListBox1.ListIndex), [l5:l100])
End Sub

 

[acolkesen1]

Merhaba,
Kodlarda herhangi bir sayfa belirtilmediği için hangi sayfada çalışıyorsanız o sayfada arama yapar. Eğer nerde olursanız olun stok sayfasındaki verileri almak istiyorsanız hücre adreslerinin başına sayfayı da yazmanız gerekir.
TextBox2 = WorksheetFunction.SumIf([stok!c5:c100], ListBox1.List(ListBox1.ListIndex), [stok!l5:l100])

 

[MERDAG]

Teşekkürler Sayın acolkesen1
Tam istediğim gibi oldu...

 

[acolkesen1]

Önemli değil , İyi çalışmalar..