TOPLA.ÇARPIM ve EĞERSAY VBA Kodları

Mustafa MUTLU · 4 Mayıs 2011

Aşağıdaki formülleri VBA olarak formuma koymak istiyorum.
Sayfaya yazdığımda bayağı yavaşlama oluyor.
Belki VBA olarak yazarsak yavaşlamayı kaldırabiliriz..

TOPLA.ÇARPIM :
Z14 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A14)*(Sayfa3!S$2:AQ$65000))
Z15 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A15)*(Sayfa3!S$2:AQ$65000))
Z16 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A16)*(Sayfa3!S$2:AQ$65000))
Z17 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A17)*(Sayfa3!S$2:AQ$65000))
Z18 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A18)*(Sayfa3!S$2:AQ$65000))
Z19 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A19)*(Sayfa3!S$2:AQ$65000))
Z20 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A20)*(Sayfa3!S$2:AQ$65000))
Z21 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A21)*(Sayfa3!S$2:AQ$65000))
Z22 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A22)*(Sayfa3!S$2:AQ$65000))
Z23 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A23)*(Sayfa3!S$2:AQ$65000))
Z24 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A24)*(Sayfa3!S$2:AQ$65000))
Z25 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A25)*(Sayfa3!S$2:AQ$65000))
Z26 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A26)*(Sayfa3!S$2:AQ$65000))
Z27 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A27)*(Sayfa3!S$2:AQ$65000))
Z28 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A28)*(Sayfa3!S$2:AQ$65000))
Z29 hÜCRESİNE =TOPLA.ÇARPIM((Sayfa3!R$2:R$65000=A29)*(Sayfa3!S$2:AQ$65000))

ve

EĞERSAY :
L14 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L15 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L16 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L17 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L18 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L19 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L20 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L21 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L22 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L23 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L24 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L25 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L26 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L27 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L28 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)
L29 hÜCRESİNE =EĞERSAY(Sayfa3!R$2:R$65000;$A14)

Teşekkürler..

Ömer · 4 Mayıs 2011

Merhaba,

Linki inceleyiniz.

Topla.Carpim(Sumproduct)Fonksiyonunun Vba Icindeki Farkli Kullanimlari

.

Mustafa MUTLU · 4 Mayıs 2011

Teşekkürler arama yapmasını bile bilmiyoruz..

Birde şu link e bakarmısınız.

http://www.excel.web.tr/f48/rapor-alma-t99722.html

İhsan Tank · 4 Mayıs 2011

merhaba
kod olarak da
topla.çarpım için

Kod:

Sub toplaçcarp()
Range("Z14") = [SumProduct((Sayfa3!R2:R65000=A14)*(Sayfa3!S2:AQ6500))]
Range("Z15") = [SumProduct((Sayfa3!R2:R65000=A15)*(Sayfa3!S2:AQ6500))]
Range("Z16") = [SumProduct((Sayfa3!R2:R65000=A16)*(Sayfa3!S2:AQ6500))]
Range("Z17") = [SumProduct((Sayfa3!R2:R65000=A17)*(Sayfa3!S2:AQ6500))]
Range("Z18") = [SumProduct((Sayfa3!R2:R65000=A18)*(Sayfa3!S2:AQ6500))]
Range("Z19") = [SumProduct((Sayfa3!R2:R65000=A19)*(Sayfa3!S2:AQ6500))]
Range("Z20") = [SumProduct((Sayfa3!R2:R65000=A20)*(Sayfa3!S2:AQ6500))]
Range("Z21") = [SumProduct((Sayfa3!R2:R65000=A21)*(Sayfa3!S2:AQ6500))]
Range("Z22") = [SumProduct((Sayfa3!R2:R65000=A22)*(Sayfa3!S2:AQ6500))]
Range("Z23") = [SumProduct((Sayfa3!R2:R65000=A23)*(Sayfa3!S2:AQ6500))]
Range("Z24") = [SumProduct((Sayfa3!R2:R65000=A24)*(Sayfa3!S2:AQ6500))]
Range("Z25") = [SumProduct((Sayfa3!R2:R65000=A25)*(Sayfa3!S2:AQ6500))]
Range("Z26") = [SumProduct((Sayfa3!R2:R65000=A26)*(Sayfa3!S2:AQ6500))]
Range("Z27") = [SumProduct((Sayfa3!R2:R65000=A27)*(Sayfa3!S2:AQ6500))]
Range("Z28") = [SumProduct((Sayfa3!R2:R65000=A28)*(Sayfa3!S2:AQ6500))]
Range("Z29") = [SumProduct((Sayfa3!R2:R65000=A29)*(Sayfa3!S2:AQ6500))]
End Sub

eğersay için

Kod:

Sub eğersay()
Range("L14") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A14"))
Range("L15") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A15"))
Range("L16") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A16"))
Range("L17") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A17"))
Range("L18") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A18"))
Range("L19") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A19"))
Range("L20") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A20"))
Range("L21") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A21"))
Range("L22") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A22"))
Range("L23") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A23"))
Range("L24") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A24"))
Range("L25") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A25"))
Range("L26") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A26"))
Range("L27") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A27"))
Range("L28") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A28"))
Range("L29") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A29"))
End Sub

ikisi birlikte olacak ise

Kod:

Sub toplaçarp_eğersay()
Range("Z14") = [SumProduct((Sayfa3!R2:R65000=A14)*(Sayfa3!S2:AQ6500))]
Range("Z15") = [SumProduct((Sayfa3!R2:R65000=A15)*(Sayfa3!S2:AQ6500))]
Range("Z16") = [SumProduct((Sayfa3!R2:R65000=A16)*(Sayfa3!S2:AQ6500))]
Range("Z17") = [SumProduct((Sayfa3!R2:R65000=A17)*(Sayfa3!S2:AQ6500))]
Range("Z18") = [SumProduct((Sayfa3!R2:R65000=A18)*(Sayfa3!S2:AQ6500))]
Range("Z19") = [SumProduct((Sayfa3!R2:R65000=A19)*(Sayfa3!S2:AQ6500))]
Range("Z20") = [SumProduct((Sayfa3!R2:R65000=A20)*(Sayfa3!S2:AQ6500))]
Range("Z21") = [SumProduct((Sayfa3!R2:R65000=A21)*(Sayfa3!S2:AQ6500))]
Range("Z22") = [SumProduct((Sayfa3!R2:R65000=A22)*(Sayfa3!S2:AQ6500))]
Range("Z23") = [SumProduct((Sayfa3!R2:R65000=A23)*(Sayfa3!S2:AQ6500))]
Range("Z24") = [SumProduct((Sayfa3!R2:R65000=A24)*(Sayfa3!S2:AQ6500))]
Range("Z25") = [SumProduct((Sayfa3!R2:R65000=A25)*(Sayfa3!S2:AQ6500))]
Range("Z26") = [SumProduct((Sayfa3!R2:R65000=A26)*(Sayfa3!S2:AQ6500))]
Range("Z27") = [SumProduct((Sayfa3!R2:R65000=A27)*(Sayfa3!S2:AQ6500))]
Range("Z28") = [SumProduct((Sayfa3!R2:R65000=A28)*(Sayfa3!S2:AQ6500))]
Range("Z29") = [SumProduct((Sayfa3!R2:R65000=A29)*(Sayfa3!S2:AQ6500))]
Range("L14") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A14"))
Range("L15") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A15"))
Range("L16") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A16"))
Range("L17") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A17"))
Range("L18") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A18"))
Range("L19") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A19"))
Range("L20") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A20"))
Range("L21") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A21"))
Range("L22") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A22"))
Range("L23") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A23"))
Range("L24") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A24"))
Range("L25") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A25"))
Range("L26") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A26"))
Range("L27") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A27"))
Range("L28") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A28"))
Range("L29") = WorksheetFunction.CountIf(Sheets("Sayfa3").Range("R2:R6500"), Range("A29"))
End Sub

bu kodları kullanabilirsiniz

TOPLA.ÇARPIM ve EĞERSAY VBA Kodları

Mustafa MUTLU

Destek Ekibi

Ömer

Moderatör

Mustafa MUTLU

Destek Ekibi

İhsan Tank

Misafir