De la función quiero que me reste el rango e2:e602
Este Función lo hizo usted mismo Sr. Dante, solo quiero esa otra aplicación en la misma función Por favor
Tengo un libro con varias hojas (por ahora son 26, pero si todo va bien llegará a tener cientos de hojas). Las hojas por ahora son 001, 002, 003, y así hasta la penúltima, que es la 024 y la última, que es la 999.
Quiero buscar (en cada una de esas hojas), cual coincide con la celda A3 (de mi hoja actual, que se llama "Recibos") dentro del rango C3:C602 y quiero que me sume, de cada una de esas hojas, la correspondiente del rango F3:F602.
Function gsuma(criterio As Range)
'Funcion suma hojas
'Por.Dam
For Each hoja In Worksheets
Select Case hoja.Name
Case "recibos"
Case Else
wtotal = wtotal + Application.SumIf(hoja.Range("C2:C602"), _
criterio, hoja.Range("F2:F602"))
End Select
Next
gsuma = wtotal
End Function
1 respuesta
Perdón creo que no me explique bien, lo que quiero es exactamente lo mismo del macro, ya ves que suma el rango de F2 A F602, pero a la vez quiero que me reste la columna D2 A D602, del mismo criterio de C2 A F602.
Gracias espero que haya sido más explicito.
Prueba con esto:
Function gsuma(criterio As Range)
'Funcion suma hojas
'Por.Dante Amor
For Each hoja In Worksheets
Select Case hoja.Name
Case "recibos"
Case Else
wsuma = wsuma + Application.SumIf(hoja.Range("C2:C602"), _
criterio, hoja.Range("F2:F602"))
wresta = wresta + Application.SumIf(hoja.Range("C2:C602"), _
criterio, hoja.Range("D2:D602"))
End Select
Next
gsuma = wsuma - wresta
End Function
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
