Varios datos de vuelta!

hola, Pilar !

una "pega"... si la hoja1 la tenemos con filtros a la hora de aplicar el código en la hoja2...
los quita :-(
Naturalmente que lo que se quiere conseguir se puede hallar con dichos filtros pero le había
visto la utilidad
y "me lo había apropiado" para un libro de PAGARES: mucho mejor (mas rapido) que tener que andar
modificando los tipos de filtro.
Dicho libro, en su hoja de datos (hoja1) esta filtrado para ver solo los que faltan de pagar
(columna D "estado" = vacias).
Pero me he encontrado con ese inconveniente: hay que volver a Datos - Filtro en la hoja1 y
especificarlos (se acabo la rapidez)
Hay solucion para poder conservar los filtros?

siguiendo con los datos del supuesto para OP, para "reponer" (si existen) los autofiltros en la
hoja1...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DejarAutoFiltros As Boolean
If Target.Address <> "$A$2" Then Exit Sub
With Worksheets("hoja1").Range("a1")
DejarAutoFiltros = .Parent.AutoFilterMode
.CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("a1:a2"), _
CopyToRange:=Range("a4:g4"), _
Unique:=False
If DejarAutoFiltros Then .AutoFilter
End With
End Sub

saludos,
hector.

algo se mejora puesto que deja los filtros (flechas) :-) pero sin filtrar :-(
Hay que volver a seleccionar qué tipo de filtros se necesitan.
De todas formas, muy agradecida por el intento.
En el trabajo que requiero con ese libro-hoja la mayor rapidez para la consulta es el-los filtro-s.
Aunque no me extrañaría que volvieras con otra modificación del código que hiciera "lo impensable" ;-)

Buena noche (por este lado)

siguiendo con los datos del supuesto para OP, para "reponer" (si existen) los autofiltros en la hoja1...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DejarAutoFiltros As Boolean
If Target.Address <> "$A$2" Then Exit Sub
With Worksheets("hoja1").Range("a1")
DejarAutoFiltros = .Parent.AutoFilterMode
.CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("a1:a2"), _
CopyToRange:=Range("a4:g4"), _
Unique:=False
If DejarAutoFiltros Then .AutoFilter
End With
End Sub

hola, Pilar !
(perdon)... quise "dejarte de tarea" completar la instruccion de .Autofilter

suponiendo que siempre tendrias aplicados autorfiltros a la cuarta columna (D partiendo de A) con
las vacias ("")
solo complementa la linea:
de: -> If DejarAutoFiltros Then .AutoFilter
a: -> If DejarAutoFiltros Then .AutoFilter Field:=4, Criteria1:=""

saludos,
hector.

Funciona... gracias.