Sumaproducto hasta la ultima celda utilizada de cada hoja
Mediante una macro, en la celda B16 coloco el resultado de la siguiente fórmula:
=+SUMAPRODUCTO((RESUMEN!$A$2:$A$1048576>=$C$8)*(RESUMEN!$A$2:$A$1048576<=$C$9)*(RESUMEN!C$2:E$1048576)*(RESUMEN!$K$2:$K$1048576=A16)*(RESUMEN!$T$2:$T$1048576=$A$9))
la instrucción es la siguiente:
Range("B16").Select
ActiveCell.FormulaR1C1 = _
"=+SUMPRODUCT((RESUMEN!R2C1:R1048576C1>=R8C3)*(RESUMEN!R2C1:R1048576C1<=R9C3)*(RESUMEN!R2C[1]:R1048576C[3])*(RESUMEN!R2C11:R1048576C11=RC[-1])*(RESUMEN!R2C20:R1048576C20=R9C1))"
Al entrar a sumar los datos, generalmente la ultima fila de la hoja "resumen" no supera los 200.000 registros, por ello la fórmula es muy pesada para calcular el dato hasta la fila 1.048.576, quisiera saber si hay alguna manera de efectuar la suma, pero hasta la ultima celda ocupada de la hoja "resumen", y que el resultado quede como dato y no como fórmula.
1 respuesta
Te recomiendo que primero revises cual es la última fila ocupada. Yo suelo usar algo como
ultimaFila = Range("A1048576").End(xlUp).Row
y luego cambias tu formula por algo del estilo
Range("B16").FormulaR1C1 = _
"=SUMPRODUCT((RESUMEN!R2C1:R" & ultimaFila & "C1>=R8C3)*(RESUMEN!R2C1:R" & ultimaFila & "C1<=R9C3)*(RESUMEN!R2C[1]:R" & ultimaFila & "C[3])*(RESUMEN!R2C11:R" & ultimaFila & "C11=RC[-1])*(RESUMEN!R2C20:R" & ultimaFila & "C20=R9C1))"Para quedarte con el valor, simplemente copias y pegas el valor, con algo como:
Range("B16").Copy
Range("B16").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=FalseSalu2