muchas gracias
tomas
> Como imprimir solo los datos filtrados
> en el caso de trasladar los datos filtrados a una hoja nueva
> como hacer para que la hoja filtrada vuelva a quedar con todos los datos
si ya filtraste los datos y los trasladaste a una hoja nueva...
-> podrias comentar 'que te impide' quitar los filtros a la hoja filtrada ?
saludos,
hector.
Si quieres que en cualquier tabla con filtros vuelvan a aparecer todos
los datos, basta con que anules el autofiltro, o en el mismo filtro,
selecciones '(Todas)' pata que todos los registros queden visibles.
Se sabe que en una tabla tienes filtros activados cuando el
triangulito inverso aparece en color azul; si está de color negro, es
que toda la base de datos está visible.
¿?
La question es que tengo 8 hojas, al pegar los datos filtrados en una
hoja, como puedo hacer para volver a la hoja filtrada y quitar el
fitro ya que al salir de la hoja filtrada esta puede ser qualquiera de
las 8 hojas,
gracias y hasta pronto
tomas
tomas
victor...@mixmail.com ha escrit:
>>> Como imprimir solo los datos filtrados
>>> en el caso de trasladar los datos filtrados a una hoja nueva
>>> como hacer para que la hoja filtrada vuelva a quedar con todos los datos
>>
>> si ya filtraste los datos y los trasladaste a una hoja nueva...
>> -> podrias comentar 'que te impide' quitar los filtros a la hoja filtrada ?
> La question es que tengo 8 hojas, al pegar los datos filtrados en una hoja
> como puedo hacer para volver a la hoja filtrada y quitar el fitro
> ya que al salir de la hoja filtrada esta puede ser qualquiera de las 8 hojas
[generalmente] no es necesario hacer una 'danza' entre libros, hojas y rangos para administrar sus propiedades [p.e.]:
activesheet.<aqui tu rango filtrado>.copy destination:=worksheets("otra hoja").range("esta celda")
' como sigues en la hoja con los filtros... puedes quitarlos, modificarlos, etc. ;)
si expones el codigo que estas usando actualmente.. ;)
saludos,
hector.
este es el codigo que utilizo
Range("D13").Select
ActiveSheet.Unprotect
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="=p*", Operator:=xlAnd
Range("A13").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("permisos").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
como veras me quedo en la hoja permisos y la hoja que he hecho el
filtro me quedan las celdas seleccionadas i el filtro...
hasta pronto
tomas
Héctor Miguel ha escrit:
prueba con algo +/- como lo siguiente:
Application.ScreenUpdating = False
With ActiveSheet
.Unprotect
.Range("a13").Autofilter Field:=4, Criteria1:="=p*"
With .AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible) _
.Copy Worksheets("permisos").Range("a1")
End With
.AutoFilterMode = False
.Protect
End With
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
__ la consulta original __
muchas gracias por todo,
tomas
On 28 abr, 07:24, "Héctor Miguel" <NOhemiordiS...@PLShotmail.com>
wrote: