comboboxta seçili ürünü listboxa yazması

[mustafakoker]

Değerli Arkadaşlar ekli dosyada gerekli açıklamayı yaptım Userform5 ve form6 daki kodlarda bu siteden alıntı yaparak sorunumu çözmeye çalıştım ama beceremedim yapmak istediğim

Userform5 için
COMBOBOX1 den ÜRÜNÜ SEÇTİĞİMDE KAYIT SAYFASINDA O ÜRÜN VARSA O ÜRÜNE AİT TOPLAM ALIŞ TUTARINI (G SUTUNU) TEXTBOX1 E YAZACAK RAPOR AL DEDİĞİMDE LİSTBOXA COMBOBAXTAKİ SEÇİLİ ÜRÜNÜN HANGİ FİRMALARDAN ALINDIĞINI VE KAÇ KG ALINDIĞI LİSTELEYECEK KAÇ KG ALINDIĞI STOK SAYFASINDA YAZIYOR ALIŞ KG

Aynı Şekilde Userform6

 

[metinozlu]

combobox1 e aşağıdaki kodu yazınız.comboboxtan seçili ürünün toplam alışını textbox1 e yazar.
'Combobox1 e verileri çeker
Private Sub ComboBox1_Change()
On Error Resume Next
a = 0
For i = 4 To 50
If Sheets("kayıt").Cells(i, "d") = ComboBox1.Value Then

a = a + Sheets("kayıt").Cells(i, "g")
End If
Next i
TextBox1.Value = a


End Sub

 

[mustafakoker]

Sayın Metin özlü Teşekkürler Cevabınız için
Listeleme işlemi için de bir kod verebilirmisiniz seçtiğim ürünün hangi firmalardan aldığımı ve kg brimi ni listeleyecek

 

[Mehmet Şahin]

Merhaba,
Userform5'teki butonun kodunu

Private Sub CommandButton1_Click()
On Error Resume Next
Dim s1 As Worksheet
Set s1 = Sheets("KAYIT")
son1 = s1.Cells(65536, 3).End(xlUp).Row
ListBox1.Clear
ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = "50;40;150;60;60;60"
     For i = 4 To son1
        If s1.Cells(i, "d") = ComboBox1 Then
            ListBox1.AddItem
                    ListBox1.List(s, 0) = s1.Cells(i, "a")
                    ListBox1.List(s, 1) = s1.Cells(i, "b")
                    ListBox1.List(s, 2) = s1.Cells(i, "c")
                    ListBox1.List(s, 3) = s1.Cells(i, "e")
                    ListBox1.List(s, 4) = Format(s1.Cells(i, "f"), "#,##0.00")
                    ListBox1.List(s, 5) = Format(s1.Cells(i, "g"), "#,##0.00")
                    s = s + 1
         End If
     Next
     Set s1 = Nothing
End Sub

şeklinde değiştirerek denermisiniz, iyi çalışmalar.

 

[mustafakoker]

Sayın dentex ve sayın metinozlu sonsuz teşekkürler