Aynı Değere Sahip Ürünleri Tek Satırda Toplama Hk.

[zaman_seyyahi]

Merhabalar;
Sorunuma başlamadan önce ilk önce belirteyim yaklaşık iki gündür farklı şekillerde aramalar yapıyorum ama bulduklarımı bir türlü kendi sıkıntıma uyarlayamadım. En son çare olarak destek istedim.
Sorunuma gelince bir form arayüzü var ve buradan sayfaya satır ekletiyorum ve eklettiğim satırları bir listbox ta görüntületiyorum. form arayüzünde aynı kodlu veriyi tekrar ekleyince yeni bir satır olarak değil aynı satıra toplatmak istiyorum. ( yüklediğim örneğe bakınca daha anlaşılır olacağına inanıyorum.)
destekleriniz için şimdiden teşekkür eder iyi çalışmalar dilerim.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz.
Birim fiyat ile ilgili durumu siz hâlledersiniz.

[FONT="Trebuchet MS"][SIZE="2"]Private Sub CommandButton1_Click()
    If WorksheetFunction.CountIf(Range("K:K"), ComboBox1.Text) = 0 Then
        son = Sheets("DATA").Cells(Rows.Count, "J").End(3).Row + 1
        With Sheets("DATA")
            .Cells(son, 10) = son - 1
            .Cells(son, 11) = ComboBox1.Value
            .Cells(son, 12) = ComboBox2.Value
            .Cells(son, 13) = ComboBox3.Value
            .Cells(son, 14) = TextBox1.Value
            .Cells(son, 15) = TextBox2.Value
            .Cells(son, 16) = TextBox3.Value
        End With
            Else
        With Sheets("DATA")
            Set evn = .Columns(11).Find(ComboBox1.Text, , , 1)
            If Not evn Is Nothing Then
                .Cells(evn.Row, 14) = .Cells(evn.Row, 14) + TextBox1.Value
                .Cells(evn.Row, 16) = .Cells(evn.Row, 16) + TextBox3.Value
            End If
        End With
    End If
    ListBox1.ColumnCount = 7
    ListBox1.ColumnHeads = False
    ListBox1.ColumnWidths = "20;35;70;150;40;40;40"
    ListBox1.RowSource = "data!J1:P" & Sheets("data").Range("J65536").End(xlUp).Row 'lisbox'ta gösterilecek hücre aralığı
    ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub[/SIZE][/FONT]

 

[zaman_seyyahi]

Üstadım çok teşekkür ederim. Ellerinize sağlık.

 

[Murat OSMA]

Rica ederim, iyi akşamlar.​