Codificacion: SUMAR.SI
Publicado por Dario (92 intervenciones) el 30/03/2014 19:44:30
La siguiente codificación realiza la misma función que la sentencia SUBTOTALES.
-------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------
Quisiera saber si a la codificación que acabo de pasar se le puede agregar algun renglon para que de este modo cumpla la funsión de que además de sumar solo las celdas visibles, sume dependiendo de otra condisión, por ejemplo: tengo en la columna "A" Apellidos y en la columna "B" Importes. Ncesitaria que luego de filtrar datos sume todas las celdas visibles y por un determinado apellido.
-------------------------------------------------------------------------------------------------------------------------
1
2
3
4
5
6
7
8
9
Function SUMARCELDASVISIBLES(CeldaReferencia As Range, RangoSeleccion As Range) As Currency
Dim CeldaSeleccionada As Range
For Each CeldaSeleccionada In RangoSeleccion
If CeldaSeleccionada.EntireRow.Hidden = CeldaReferencia.EntireRow.Hidden Then
SUMARCELDASVISIBLES = SUMARCELDASVISIBLES + CeldaSeleccionada.Value
End If
Next
End Function
Quisiera saber si a la codificación que acabo de pasar se le puede agregar algun renglon para que de este modo cumpla la funsión de que además de sumar solo las celdas visibles, sume dependiendo de otra condisión, por ejemplo: tengo en la columna "A" Apellidos y en la columna "B" Importes. Ncesitaria que luego de filtrar datos sume todas las celdas visibles y por un determinado apellido.
Valora esta pregunta
0