............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

FILTRAR DATOS Y LUEGO IMPRIMIR

Ver el tema anterior Ver el tema siguiente Ir abajo

FILTRAR DATOS Y LUEGO IMPRIMIR

Mensaje por pol el Lun Ago 27, 2012 10:58 pm

ESTIMADO EXPERTO.

POR FAVOR, TENGO UN LISTA DE DATOS QUE ESTAN SEPARADOS COMO CELDA UNICA EL CON EL NOMBRE "DNI", Y LUEGO TENGOS MUCHAS CELDAS MAS, PERO LO QUE NECESITO ES COMO TENER UN EJEMPLO DE MACRO QUE FILTRE LOS DATOS DE CELDA "DNI" Y LUEGO IMPRIMIRLO.

MUCHAS GRACIAS.

POL

pol

Cantidad de envíos : 10
Fecha de inscripción : 17/04/2008

Volver arriba Ir abajo

Re: FILTRAR DATOS Y LUEGO IMPRIMIR

Mensaje por Toldeman el Miér Ago 29, 2012 2:11 pm

Hola.

Si subes un ejemplo la ayuda podra ser mas efectiva.

Un saludo.

edito: evita el uso de mayusculas

Toldeman
Moderador
Moderador

Masculino Cantidad de envíos : 60
Edad : 52
Ciudad - Pais : España
Version de Excel : 2007
Fecha de inscripción : 05/04/2009

Volver arriba Ir abajo

FILTRAR DATOS Y LUEGO IMPRIMIR

Mensaje por pol el Miér Ago 29, 2012 11:02 pm

muchas gracias, le mando el ejemplo, para poder filtrar y luego imprimir automaticamente.

saludos

Pol.

pol

Cantidad de envíos : 10
Fecha de inscripción : 17/04/2008

Volver arriba Ir abajo

Re: FILTRAR DATOS Y LUEGO IMPRIMIR

Mensaje por pol el Miér Ago 29, 2012 11:12 pm

perdon le mando el ejemplo que indica toldeman, muchas gracias por la ayuda
Archivos
filtrar y luego imprimir.xlsx FILTRAR E IMPRIMIR AUTOMATICAMENTENo tienes los permisos para descargar los archivos.(10 KB) Descargado 43 veces

pol

Cantidad de envíos : 10
Fecha de inscripción : 17/04/2008

Volver arriba Ir abajo

Re: FILTRAR DATOS Y LUEGO IMPRIMIR

Mensaje por moises melgar el Vie Sep 07, 2012 1:54 pm

Buenos dias Sr pol me gustaria que explicase el Procedimeto Exacto a desarrollar
por ejemplo:
Pasos:
1. Filtrar por el rango de datos de la hoja1 (el numero de filas a usar es variable o fijo)
2. Cual es mi criterio para filtar ????, una celda un valor, o imprimir por cada tipo de valor existente.

Ejemplo:
1.Rango de datos variable
2.Existira una impresion por cada valor de filtro disponible para la columna DNI

Código:
Sub imprimir_por_valor_unico_DNI()
'Primero Obtengo los valores unicos (macro publicada en Excelforo)
'y la adpto a mis propositos
Dim celda As Object
Dim i As Integer
Dim datos
fila = Range("A" & Rows.Count).End(xlUp).Row
    'generamos la coleccion
Set unicos = New Collection
    'loop en todas las celdas y agregarlas a la coleccion
For Each celda In Range("A2:A" & fila)
    'cuando encuentre un item repetido, daría un error 
    'que salvamos con la instrucción On Error Resume Next
On Error Resume Next
    'por tanto, nuestra coleccion solo agrega elementos no repetidos 
    'objeto.Add item, key, before, after 
    'ocurre un error si una key especificada duplica la key de un miembro
    'existente de la colección 
unicos.Add celda.Value, CStr(celda.Value)
On Error GoTo 0
Next celda
  'Para este momento unicos(i) contiene los valores no repetitivos los cuales
  'seran los criterios del filtro.
Range("A1:E1").AutoFilter 'filtro el rango
For i = 1 To unicos.Count
' arriba bucle que pasa de valor en valor de la coleccion "unicos"
ActiveSheet.Range("$A$1:$E$" & fila).AutoFilter Field:=1, Criteria1:=unicos(i)
'arriba Field es la colum del rango a filtrar y criteria1 =unicos(i)
'representa el criterio afiltrar "valor unico" (recordemos que estando dentro de
'un bucle este valor cambiara de valor en valor)
ActiveSheet.PrintOut 'imprimir en la impresora predeterminada
Next i
Range("A1:E1").AutoFilter ' se elimina el filtro
End Sub
Archivos
filtrar y luego imprimir.xlsm No tienes los permisos para descargar los archivos.(17 KB) Descargado 70 veces
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 526
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: FILTRAR DATOS Y LUEGO IMPRIMIR

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.