Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Autofiltro "dinámico"

10/05/2004 - 12:39 por Raimon | Informe spam
Ayuda Hacer una pregunta
Hola al grupo:
He preparado una hoja de consulta de datos (ODBC) sobre el fichero de
diario de contabilidad. En esta consulta me interesaría hacer que al
establecer el autofiltro éste filtrase directamente según el valor de una
celda de otra hoja que contiene la cuenta contable que hay que controlar en
cada momento, y obviamente modificar el filtro al modificar el valor de esta
cuenta.
Alguien sabe si es posible establecer este autofiltro "dinámico"?
O quizás una solución alternativa?
Muchas gracias

Raimon
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
12/05/2004 - 05:41 | Informe spam
hola, Raimon !

... que ... el autofiltro ... filtrase ... segun el valor de una celda de otra hoja [...]



suponiendo que...
- la hoja [p.e. 'Hoja1'] ya tiene 'establecido' el autofiltro
- la celda de 'la otra' hoja es 'B2'
- el filtro que se requiere 'actualizar' es el primero [del rango 'filtrado']
=> pega las siguientes lineas de codigo en el modulo de 'la otra hoja'
______
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Dim RangoFiltro As String
With Worksheets("Hoja1")
If Not .AutoFilterMode Then Exit Sub
RangoFiltrado = .AutoFilter.Range.Address
.Range(RangoFiltrado).AutoFilter Field:=1, Criteria1:=Target
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

p.d. probablemente se requieran algunos 'ajustes' pero... ¿comentas detalles adicionales?

Preguntas similares

 

Busqueda sugerida :