Subtotal en Columnas

[UliCs]

Hola amigos.
necesito de su ayuda nuevamente.
como puedo usar la formula de subtotales en columnas. es decir cuando pongo la formula en con referencia a un rango de filas al ocultar algunas filas me da el valor de las filas visibles, pero en columnas no puedo hacer eso. Existe alguna otra forma de hacerlo.

Ayudenme.
<div_prefs id="div_prefs"></div_prefs>

 

[galileogali]

con macros unicamente. creando una UDF

 

[galileogali]

Function SumVisibles(rng As Range) As Double
Dim celRng As Range
Dim suma As Double

'Application.Volatile Resulta ineficaz, ya que ocultar o Mostrar no desencadenan Calculation
For Each celRng In rng.Cells
If Not (celRng.EntireColumn.Hidden) Then suma = suma + Val(celRng)

Next celRng
SumVisibles = suma
End Function

algo basico y sin testeo

 

[UliCs]

Muchas Gracias.
me salvaste. Thks again

 

[UliCs]

Gali.
una pregunta mas.
ahora como puedo hacer que esta formula este calculando en el momemto. sin tener que calcular manual para que de el valor.

Saludos!

 

[galileogali]

La aclaracion sobre la Imposibilidad ya la hice cuando escribi la Macro....

 

[UliCs]

Disculpas no lo comprendi en primera instansia.

Saludos y Muchas Gracias

 

[Greg Truby]

Mientras lo que dice Gali es 100 por ciento cierto, uno podría hacer unas cosillas creativas como enganchar el evento de cambio de selección para ver si alguna visibidad ha cambiado y correr el método de calcular si sí algo cambió. Mientras no está ocultando columnas por medio de VBA, debe de funcionar bastante bien, me imagino.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Static s_strColVisibilities As String
 
    Dim rngCell As Excel.Range, strColVisibilities As String
 
    For Each rngCell In Me.UsedRange.Rows(1).Cells
        Let strColVisibilities = strColVisibilities & CStr(rngCell.EntireColumn.Hidden)
    Next rngCell
 
    If strColVisibilities <> s_strColVisibilities Then
        Me.Calculate
        Let s_strColVisibilities = strColVisibilities
    End If
 
End Sub

Note Bien: tendrá que cambiar la función de sumar visibles para que sea VOLATILE.

 

[galileogali]

Buena Idea Greg!!

 

[UliCs]

Muchas pero muchas Gracias Greg.
Funciono a la perfeccion!!!

Gali de igual manera gracias.

-saludos y felices fiestas