Koda karşılık gelen ürünün...

[mhizlim]

Koda karşılık gelen ürünün üzerine ekleme

Koda karşılık gelen ürünün yeni adet bilgisini nasıl ekleriz. Örnekte daha iyi anlaşılır.

 

[Muhammet Okumuş]

Merhaba,
Kodu deneyiniz.

Sub Topla()
son = Cells(Rows.Count, "C").End(3).Row
For i = 2 To son
If Cells(i, 3) = "" Then GoTo 10
kac = WorksheetFunction.Match(Cells(i, 2), Range("M1:M1000"), 0)
Cells(kac, 14) = Cells(kac, 14) + Cells(i, 3)
Next
10
End Sub

 

[mhizlim]

Kod hata veriyor

 

[Muhammet Okumuş]

Hatalı dosyayı ekleyiniz.

 

[mhizlim]

Hallettim teşekkürler