Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Como imprimir solo los datos filtrados

682 views
Skip to first unread message

tomaste

unread,
Apr 25, 2007, 12:42:45 PM4/25/07
to
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,

muchas gracias

tomas

Héctor Miguel

unread,
Apr 25, 2007, 11:25:50 PM4/25/07
to
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 ?

saludos,
hector.


victor...@mixmail.com

unread,
Apr 26, 2007, 3:17:14 AM4/26/07
to
No entiendo bien qué quieres decir, pero cualquier rango que
selecciones (con o sin datos filtrados), se va a imprimir tal como
aparezca en la pantalla.

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.

¿?

tomaste

unread,
Apr 26, 2007, 9:21:56 AM4/26/07
to

Héctor Miguel ha escrit:

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

tomaste

unread,
Apr 26, 2007, 9:23:54 AM4/26/07
to
Hola, no es asi si selecciono los datos filtrados y los quiero
imprimir me va a imprimir todas las hojas ya que los datos filtrados
son datos de 13 pàginas.

tomas
victor...@mixmail.com ha escrit:

Héctor Miguel

unread,
Apr 26, 2007, 1:15:06 PM4/26/07
to
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.


tomaste

unread,
Apr 27, 2007, 11:49:41 AM4/27/07
to

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:

Héctor Miguel

unread,
Apr 28, 2007, 1:24:33 AM4/28/07
to
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 __

tomaste

unread,
Apr 29, 2007, 6:56:41 AM4/29/07
to
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" <NOhemiordiS...@PLShotmail.com>
wrote:

0 new messages