Como imprimir solo los datos filtrados

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:

hola, 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 ?

> 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.

hola, Tomas !

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 __
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...

Hola Hector Miguel,
Esto ha funcionado genial, un visto y no visto, el miercoles cuando
vaya a trabajar lo probaré, solo me queda la duda de imprimir en la
misma macro lo que he copiado en la hoja permisos,

muchas gracias por todo,

tomas
On 28 abr, 07:24, "Héctor Miguel"
wrote:

hola, Tomas !

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 __
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...