Ayuda

¿Que tal, Carlos V?

me esta dando error en esto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 And Target.Column = 3 Then
-
'calculate criteria cell in case calculation mode is manual
Worksheets("ProductsList").Range("G2").Calculate
Worksheets("ProductsList").Range("Database") _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("ProductsList").Range("G1:G2"), _
CopyToRange:=Range("A6:D6"), Unique:=False
End If
End Sub

==> NO dices que error estas obteniendo :(( asi que, mejor "te explico" lo que "supone" el codigo :))
Utiliza Filtros Avanzados para extraer a una "Hoja2" (?) elementos de una base de datos en OTRA hoja ("ProductsList")
==> OJO: NO es codigo que "pueda estar" en un modulo "normal". <== POR LO TANTO ...
1.- El codigo "esta" en el modulo de eventos de "esa" Hoja2 (Click-derecho sobre el nombre de Hoja2 -> Ver codigo)
a) se activa (o "dispara") cuando cambias el contenido de la celda C3 y "lo que hace" es...
b) extrae (en el rango A6:D6) los elementos (de "ProductsList!Database") que coincidan (o difieran?) de "C3"
(Este metodo es una de las formas de usar Filtros Avanzados con datos "NO en la misma" hoja).
2.- Existe una hoja (en el libro) que se llama "ProductsList", en la cual...
a) hay una base de datos que se llama "Database" (p.e. "A1:D50") => Insertar -> Nombre -> Definir [...]
b) la primer fila contiene los "titulos" y a partir de la fila 2 ("A2:D50") estan los datos
c) el rango G1:G2 son el rango de "criterios" para el filtro avanzado
b.1) la celda G1 "toma" el dato de la celda C3 EN esa hoja "Hoja2"
b.2) la celda G2, es una formula que se evalua como Verdadero o Falso (quizas: ¢=$G$1 ???)

==> Si "cumpliendose" los "supuestos" del codigo continuara el error :(( ¿comentas?
_______
Saludos,
Héctor.
MS-MVP