Foro Excel

Hola a todos
Necesitaba saber cual era el total de una columna despues de aplicar un
filtro a una lista con VBA. Buscando por la red he visto varias formas de
conseguirlo, a mi se me ocurre esta otra que es muy sencilla.

Me sirvo de la propiedad ShowTotals, de la lista, la activo = True (así
tengo la ultima fila de la lista)

Busco esa fila (pongo esta ora funcion, tambien muy sencilla de enteneder)

En mi caso quiero el total de la columna 9 "I" y con formato

Este es el truco

ActiveSheet.ListObjects("Lista1").ShowTotals = True

Dim Totaldelacolumna9 As Double

Totaldelacolumna9 = Format(Cells(UltimaFila, 9).Value, "##,##0.00")

Function UltimaFila()
Dim ultima As Integer
UltimaFila = Columns("b:b").Range("A65536").End(xlUp).Row

End Function

Espero que le sirva a alguien
Un saludo

Hola, no entiendo mucho el objetivo, pero puedo acotar que en lugar de usar:
"A65536" se ponga "A" & Rows.Count y puede aplicarse a todas las versiones.

Hola Adrian
El objetivo es que cuando tienes una lista (xl2003) y la filtras por una columna, no puedes aplicar formulas, como por ejemplo =Suma(columna) ya que te suma toda la columan como si no la hubieses filtrado.
Un saludo
Ppri

Con la función subtotales se consigue lo mismo sin macros
SUBTOTALES(núm_función;ref1;[ref2];...])
Núm_función Obligatorio. Un número de 1 a 11 (incluye los valores ocultos) o de 101 a 111 (pasa por alto valores ocultos) que indica qué función debe usarse para calcular los subtotales dentro de una lista.
Núm_función
(incluye valores ocultos) Núm_función
1 PROMEDIO
2 CONTAR
3 CONTARA
4 MAX
5 MIN
6 PRODUCTO
7 DESVEST
8 DESVESTP
9 SUMA
10 VAR
11 VARP
(pasa por alto valores ocultos) Función
101 PROMEDIO
102 CONTAR
103 CONTARA
104 MAX
105 MIN
106 PRODUCTO
107 DESVEST
108 DESVESTP
109 SUMA
110 VAR
111 VARP