Cinse göre Toplamını almak

[ormann]

İyi günler ekteki örnek dosyada ana sayfadaki L4 hücresinden emvalin cinsini seçtiğim de Ebat listesi sayfasından F4 sütünündan emvalin cinsine göre adet,m3,ster toplamını ana sayfadaki n4,o4,p4 hücrelerine aldırabilirmiyiz?.Ayrıca ana sayfa daki L5 hücresinden emvalin cinsini seçtiğim de Satışlar sayfasından g4 sütünündan emvalin cinsine göre adet,m3,ster toplamını ana sayfadaki n5,o5,p5 hücrelerine aldırabilirmiyiz?

 

[fireman64]

ebat listesinde aynı üründen birden fazla var
bunların toplamını mı alacak
__________________

 

[fireman64]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$L$4" Then '
  Kriter1 = Range("L4").Value
  Set S1 = Sheets("EBAT LİSTELERİ")
Range("N4") = WorksheetFunction.SumIf(S1.[f:h], Kriter1, S1.[h:h])
Range("O4") = WorksheetFunction.SumIf(S1.[f:I], Kriter1, S1.[ı:ı])
Range("p4") = WorksheetFunction.SumIf(S1.[f:j], Kriter1, S1.[j:j])

End If
If Target.Address = "$L$5" Then '
  Kriter2 = Range("L5").Value
  Set S2 = Sheets("SATIŞLAR")
Range("N5") = WorksheetFunction.SumIf(S2.[G:h], Kriter2, S2.[h:h])
Range("O5") = WorksheetFunction.SumIf(S2.[G:I], Kriter2, S2.[ı:ı])
Range("p5") = WorksheetFunction.SumIf(S2.[G:j], Kriter2, S2.[j:j])
End If
End Sub

Kodu ana sayfa kodlarına ekleyin.

 

[ormann]

Sayın Freman ın makro ile yapmış olduğu kodu formül ile nasıl yapabiliriz?

 

[fireman64]

n4 hücresine =etopla('ebat listeleri'!f7:h303;l4;'ebat listeleri'!h7:h303)
o4 hücresine =etopla('ebat listeleri'!f7:ı303;l4;'ebat listeleri'!ı7:ı303)
p4 hücresine =etopla('ebat listeleri'!f7:j303;l4;'ebat listeleri'!j7:j303)

n5 hücresine =ETOPLA(SATIŞLAR!G7:H303;L5;SATIŞLAR!H7:H303)
o5 hücresine =ETOPLA(SATIŞLAR!G7:I303;L5;SATIŞLAR!I7:I303)
p5 hücresine =etopla(satışlar!g7:j303;l5;satışlar!j7:j303)

 

[ormann]

Sayın Freman çok çok teşekkür ederim.Ellerinize sağlık