Excel - Codificacion: SUMAR.SI

   
Vista:

Codificacion: SUMAR.SI

Publicado por Dario (88 intervenciones) el 30/03/2014 19:44:30
La siguiente codificación realiza la misma función que la sentencia SUBTOTALES.

-------------------------------------------------------------------------------------------------------------------------
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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder