Imprimir a través de un filtro

Con los datos que aportas, no es fácil ofrecerte una solución efectiva.
Suponiendo que el 'Código de empleado' lo pones en la celda D4 de la Hoja1,
y que la Hoja2 tiene los títulos en la fila 1 y los datos a partir de A2,
Copia/Pega en un módulo ordinario...

Sub Prueba()
Dim Dep As Integer
Dim fila As Integer
Dep = InputBox("¿ Departamento ?", " IMPRIMIR")
For fila = 2 To Sheets(2).Cells(65536, 1).End(xlUp).Row
If Sheets(2).Cells(fila, 4).Value = Dep Then
Sheets(1).Cells(2, 4).Value = Sheets(2).Cells(fila, 1).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next fila
End Sub

... y ejecútalo desde un botón en la Hoja1.

Saludos desde Tenerife (España).
*******************************************************
"news.microsoft.com" escribió en el mensaje
news:OWY%

Buenas tardes

Mi solicitud de ayuda, según el asunto, es la siguiente:

En Hoja1 tengo un recibo del cual relleno los datos con un Buscarv de
Hoja2 del mismo libro que es una base de datos que tengo aprox 6 campos;

Columna A: CodigoEmpleado
Columna B: Nombre
Columna C: Fecha
Columna D: Departamento
Columna C: Nota

En el recibo (Hoja1) con buscarv, con el criterio del Codigo de empleado
mando a traer el resto de los datos (Nombre, fecha, dpto, nota), es una
lista de aproximadamente 200 empleados de diferentes departamentos, en eso
no tengo problema, lo que necesito es que se impriman por medio de ese
recibo, todos los empleados de X Departamento. de momento tengo que ir
digitando cada codigo de empleado e imprimo 1 a 1.

ESpero me ayuden... muchas gracias..

Roberto Miranda
Nicaragua

Muchas gracias An San Val

Me daba el error #13, no coinciden los tipos..

Solamente cambié que la variable dep fuera String...

y listo como por arte de Visual... digo... de majia

Saludos y muchas gracias...

"AnSanVal" escribió en el mensaje
news:

Con los datos que aportas, no es fácil ofrecerte una solución efectiva.
Suponiendo que el 'Código de empleado' lo pones en la celda D4 de la
Hoja1, y que la Hoja2 tiene los títulos en la fila 1 y los datos a partir
de A2, Copia/Pega en un módulo ordinario...

Sub Prueba()
Dim Dep As Integer
Dim fila As Integer
Dep = InputBox("¿ Departamento ?", " IMPRIMIR")
For fila = 2 To Sheets(2).Cells(65536, 1).End(xlUp).Row
If Sheets(2).Cells(fila, 4).Value = Dep Then
Sheets(1).Cells(2, 4).Value = Sheets(2).Cells(fila, 1).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next fila
End Sub

... y ejecútalo desde un botón en la Hoja1.

Saludos desde Tenerife (España).
*******************************************************
"news.microsoft.com" escribió en el mensaje
news:OWY%

Buenas tardes

Mi solicitud de ayuda, según el asunto, es la siguiente:

En Hoja1 tengo un recibo del cual relleno los datos con un Buscarv de
Hoja2 del mismo libro que es una base de datos que tengo aprox 6 campos;

Columna A: CodigoEmpleado
Columna B: Nombre
Columna C: Fecha
Columna D: Departamento
Columna C: Nota

En el recibo (Hoja1) con buscarv, con el criterio del Codigo de empleado
mando a traer el resto de los datos (Nombre, fecha, dpto, nota), es una
lista de aproximadamente 200 empleados de diferentes departamentos, en
eso no tengo problema, lo que necesito es que se impriman por medio de
ese recibo, todos los empleados de X Departamento. de momento tengo que
ir digitando cada codigo de empleado e imprimo 1 a 1.

ESpero me ayuden... muchas gracias..

Roberto Miranda
Nicaragua