Re: filtrar y mantener total

Muchas gracias Hector Miguel, justamente era eso, pero ahora me surge otro problema, he buscado bastante dentro del foro y de una lista de excel y pienso que estoy cerca, quizas es algun error de sintaxis, me explico

Tengo una formula en los totales que toma el valor de la fila anterior EJ (columna C)

_________A B C
___je_____100 200 30
___jo_____200 200 10
TOTAL 300 400 10

Pero Por ejemplo al filtrar "je", no me toma como anterior 300, sino que me toma 100, ya que por lo que investigue, las filas solo se ocultan con los autofiltros

A mi se me ocurrio hacer alguna macro que cuente las ocultas y dado el total q se encuentra en la fila Nº "=FILA()" sacar la fila anterior , lo que encontre fue esto

Function Ocultas(rango
Application.Volatil
For Each celda In rang
If celda.EntireRow.Hidden Then
ocultas = ocultas +
Nex
End Functio

luego inserto en la celda del total el valor de la celda "C(=FILA()+fila comienzo - OCULTAS)"

puse esi la macro

Sub uhm(
Function Ocultas(rango
Application.Volatil
For Each celda In rang
If celda.EntireRow.Hidden The
Ocultas = Ocultas +
End I
Nex
End Functio
End Su

pero me dice "error de compilacion se esperaba un end sub " y no he pillado en que fallo(es primera ves que creo una macro) .. igual es medio complicado la solucion y lo mas seguro es que exista una mas facil .. ojala me ayuden

Gracias

lg

Ver este tema: http://www.softwaremix.net/viewtopic-476097.htm

Enviado desde http://www.softwaremix.net