Saber que filtro cambio y su valor

23/10/2008 - 15:47 por juanma.marti | Informe spam
Hola a todos,

Necesito crear una macro donde según el el filtro y el valor elegido
realizare una suma por estos valores.

Es decir la hoja tiene 16 columnas y me interesan especificamente las
columnas 1 y 8. Si se filtran por otras columnas no me importa. Lo que
necesito es obtener el valor del filtro de esas columnas cuando lo
cambien y realizar la suma de la columna 7 automaticamente. La suma ya
la tengo pero no se como obtener los valores del autofiltro y hacer
correr la macro sola cuando lo cambien.

La suma de la col 7 sería:

Do While Cells(lRow, 1).Value <> Empty

If Cells(lRow, 3) = Cells(3, 3) And Cells(lRow, 8) Sector And Cells(lRow, 1) = Carrier Then

TotalBI = TotalBI + Cells(lRow, 7)

Worksheets("Sum_Up_Costs").Cells(CarrierRow, SectorCol) TotalBI

End If

Como verán, las variables son sector (col 8) y carrier (col 1)


Muchas Gracias!!
 

Leer las respuestas

#1 Héctor Miguel
23/10/2008 - 20:25 | Informe spam
hola, !

Necesito crear una macro donde según el el filtro y el valor elegido realizare una suma por estos valores.
Es decir la hoja tiene 16 columnas y me interesan especificamente las columnas 1 y 8.
Si se filtran por otras columnas no me importa.
Lo que necesito es obtener el valor del filtro de esas columnas cuando lo cambien y realizar la suma de la columna 7 automaticamente.
La suma ya la tengo pero no se como obtener los valores del autofiltro y hacer correr la macro sola cuando lo cambien.



no se si te seria valido el uso de la funcion =subtotales(9,<valores en rango con autifiltros>)

saludos,
ector.

__ resto de la consulta __
La suma de la col 7 sería:

Do While Cells(lRow, 1).Value <> Empty

If Cells(lRow, 3) = Cells(3, 3) And Cells(lRow, 8) = Sector And Cells(lRow, 1) = Carrier Then

TotalBI = TotalBI + Cells(lRow, 7)

Worksheets("Sum_Up_Costs").Cells(CarrierRow, SectorCol) = TotalBI

End If

Como verán, las variables son sector (col 8) y carrier (col 1)

Preguntas similares