Topla.Çarpim

[ETEKİN]

B1 ve B2 hücrelerinde TOPLA.ÇARPIM ile formülü ile toplamaları alıyorum.Fakat benim istediğim, "avans"+"maaş"+"ikramiye" yazanları tek isim altına almak(Örneğin="gelir")
TOPLA.ÇARPIM(((A17:A22="GELİR"))*(B17:B22))

 

[Merhum İdris SERDAR]

B1 ve B2 hücrelerinde TOPLA.ÇARPIM ile formülü ile toplamaları alıyorum.Fakat benim istediğim, "avans"+"maaş"+"ikramiye" yazanları tek isim altına almak(Örneğin="gelir")
TOPLA.ÇARPIM(((A17:A22="GELİR"))*(B17:B22))

Dosyanız ekte.

.

 

[ETEKİN]

Sayın Yurttaş;
Çok teşekkür ederim, istediğim buydu.Peki bunu Makro olarak yapmak mümkün mü?

 

[Merhum İdris SERDAR]

Sayın Yurttaş;
Çok teşekkür ederim, istediğim buydu.Peki bunu Makro olarak yapmak mümkün mü?

Makro kaydet ile:

Sub Macro1()
ActiveWorkbook.Names.Add Name:="GELİR", RefersToR1C1:= _
"=Sayfa1!R5C2:R6C2,Sayfa1!R9C2"
ActiveWorkbook.Names.Add Name:="GELİR", RefersToR1C1:= _
"=Sayfa1!R5C2:R6C2,Sayfa1!R9C2"
ActiveWorkbook.Names.Add Name:="GİDER", RefersToR1C1:="=Sayfa1!R7C2:R8C2"
Range("D1").Select
ActiveCell.FormulaR1C1 = "=SUM(GELİR)"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=SUM(GİDER)"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=R[-2]C-R[-1]C"
Range("D4").Select
End Sub


.