aynı numaralıların toplamını bulma

[aliduran]

Merhaba ilk sütünda ürün numaralı var ama aynı ürün numarasından 1 den fazla
3. sütünda da miktarları var. aynı ürün numarasına ait 3. sütündaki toplamları bulmak istiyorum nasıl yapabilirim.
kısaca 17816 nolu üründen tabloda kaç kg var. bunu bulup hücrelerde toplamak istiyorum.

 

[dellerlim]

Merhaba, ETOPLA işlevini kullanabilirsiniz. Uygulanmış hali ektedir.

 

[aliduran]

Merhaba, ETOPLA işlevini kullanabilirsiniz. Uygulanmış hali ektedir.

Tekrar merhaba ortadaki sütunda isimleri var onları nasıl getirebilirim.

Örneğin 17816 nolu SALATALIK LUX toplamı 500 Kg gibi.
teşekkür ederim

 

[dellerlim]

F2 hücresine aşağıdaki formülü yapıştırın.

=E2&" No'lu "&DÜŞEYARA(E2;A:B;2;YANLIŞ)&" "&ETOPLA(A:A;E2;C:C)&" kg"

 

[aliduran]

F2 hücresine aşağıdaki formülü yapıştırın.

=E2&" No'lu "&DÜŞEYARA(E2;A:B;2;YANLIŞ)&" "&ETOPLA(A:A;E2;C:C)&" kg"

BU formül işimi görmedi malesef tekrar tekrar aynı ürünleri topluyor.
başka ne yazabilirim. aslında formül doğru ancak bir topladığını altta tekrar topluyor bunu sadeleştirmem gerekiyor

 

[aliduran]

Yardımcı olabilecek varsa memnun olurum.
ürün isimleri ve miktarlarını toplatmam gerekiyor.
örneğin SALATALIK karşı sütünda 800 yazması yeterli
sadece isim ve toplam miktara ihtiyacım var.

 

[YUSUF44]

Özet tablo raporunu denediniz mi?

 

[aliduran]

Özet tablo raporunu denediniz mi?

denedim. ancak çok fazla biçimlendirmeden varsayılanlarla denedim, istediğimi yapamadım. Teşkr.

 

[Korhan Ayhan]

Dosyanız ektedir.

Özet tablo kullanılmıştır.

 

[Haluk]

Sorun C sütunundaki verilerin biçimlendirmesinden kaynaklanıyor. Aralarında metin olanlar da var.

Ham dosyayı kullanırsanız;

-Aramak istediğiz ürünü F3 hücresine yazın, başka bir hücreye aşağıdaki formülü yazıp, CTRL+Shift+Enter tuş kombinasyonuyla girin.

- Formül:

=((B1:B124)=F3)*(C1:C124)

Ama, Korhan Beyin önerdiği gibi Özet Tablo bu işler için güzeldir.

 

[Orion1]

alternatif.
Hangi sayfada çalıştırırsanız o sayfada çalışır.
Dosya ektedir.

Sub topla59()
Dim z As Object, liste(), i As Long, deg As String
Range("E:F").ClearContents
liste = Range("B1:C" & Cells(Rows.Count, "B").End(xlUp).Row).Value
Application.ScreenUpdating = False
Set z = CreateObject("scripting.dictionary")
For i = 1 To UBound(liste)
    deg = UCase(Replace(Replace(liste(i, 1), "i", "İ"), "ı", "I"))
    If Not z.exists(deg) Then
        z.Add (deg), liste(i, 2)
    Else
        z.Item(deg) = liste(i, 2) + z.Item(deg)
    End If
Next i
Erase liste()
Range("E1").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[aliduran]

Dosyanız ektedir.

Özet tablo kullanılmıştır.

Korhan bey, Teşekkür ederim. Özet tablo en sağlıklısı görünüyor. diğerlerinde hesapalama hataları oluyor. oda ürün isminin farklılıkları ve ürün kodu bazı ürünlerde yanlış olmasından dolayı. teşekkür ederim

 

[aliduran]

Sorun C sütunundaki verilerin biçimlendirmesinden kaynaklanıyor. Aralarında metin olanlar da var.

Ham dosyayı kullanırsanız;

-Aramak istediğiz ürünü F3 hücresine yazın, başka bir hücreye aşağıdaki formülü yazıp, CTRL+Shift+Enter tuş kombinasyonuyla girin.

- Formül:

=((B1:B124)=F3)*(C1:C124)

Ama, Korhan Beyin önerdiği gibi Özet Tablo bu işler için güzeldir.

Teşekkür ederim

 

[aliduran]

alternatif.
Hangi sayfada çalıştırırsanız o sayfada çalışır.
Dosya ektedir.

Sub topla59()
Dim z As Object, liste(), i As Long
Range("E:F").ClearContents
liste = Range("B1:C" & Cells(Rows.Count, "B").End(xlUp).Row).Value
Application.ScreenUpdating = False
Set z = CreateObject("scripting.dictionary")
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 1)) Then
        z.Add (liste(i, 1)), liste(i, 2)
    Else
        z.Item(liste(i, 1)) = liste(i, 2) + z.Item(liste(i, 1))
    End If
Next i
Erase liste()
Range("E1").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

çok güzel olmuş ancak toplam rakamlarda tutarsızlık. buda hücre içeriği ile ilgili sanırm. Teşekkür ederim.

 

[Orion1]

çok güzel olmuş ancak toplam rakamlarda tutarsızlık. buda hücre içeriği ile ilgili sanırm. Teşekkür ederim.

Küçük büyük harf duyarlı olduğu için oldu sanırım.
Şimdi ona müdahale ettim.
Dosyayı 11 nolu mesaja tekrar yükledim.
Oradan indirebilirsiniz.