Creo que estoy ciego...

hola, Roberto !

...porque no encuentro el error.
... 'ceguera de taller', o sea que de tanto estar en esto no veo lo que los demas, con una mente fresca si podran...
... que error tengo que no consigo hacer que esto funcione? [...]

sin profundizar lo suficiente al respecto de lo que pudieran ser tus 'reales intenciones' :))
[probablemente] podrias empezar por modificar la instruccion previa a la impresion...
de -> For Each c In ActiveSheet.Range(seleccion.Address)
a -> For Each c In seleccion

comentas ?
saludos,
hector.

Saludos Maestro.
Sabés que pasa que el código me lo proporcionaste alguna vez para hacer
una especie de impresión 'automatizada' ; en una hoja del libro tengo un
formato y en otra una tabla, lo que el código hace es recorrer la
selección enviando el valor de la celda a un campo del formato, lo que
hace que todos los datos del formato cambien, en un for - next.
En otros libros funciona perfecto, pero en este no consigo hacerlo.

seleccion siempre es nothing!!!!

Gracias por tu apoyo.

Héctor Miguel wrote:

hola, Roberto !

> ...porque no encuentro el error.
> ... 'ceguera de taller', o sea que de tanto estar en esto no veo lo que

los demas, con una mente fresca si podran...

> ... que error tengo que no consigo hacer que esto funcione? [...]

sin profundizar lo suficiente al respecto de lo que pudieran ser tus 'reales

intenciones' :))

[probablemente] podrias empezar por modificar la instruccion previa a la

impresion...

de -> For Each c In ActiveSheet.Range(seleccion.Address)
a -> For Each c In seleccion

comentas ?
saludos,
hector.

hola, Roberto !

... el codigo... para hacer una especie de impresión 'automatizada'
en una hoja del libro tengo un formato y en otra una tabla
lo que el codigo hace es recorrer la seleccion enviando el valor de la celda a un campo del formato
lo que hace que todos los datos del formato cambien, en un for - next.
En otros libros funciona perfecto, pero en este no consigo hacerlo.
seleccion siempre es nothing!!!!

para poder 'empezar a detectar' lo que pudiera ser la causa 'real' del problema [en el caso 'atipico' que comentas]...
-> quita la linea del On Error Resume Next [o marcala como comentario] ;)
ejecuta la macro y revisa/identifica/comenta/... el error y la linea que lo causa ;)
[no olvides tomar nota de la situacion 'especial' -si alguna- en la que ocurren los errores]

saludos,
hector.

Hector,

El error es el 424: "Se requiere un objeto"

Declaro seleccion as Range pero creo que no le gusta.

El código está en un módulo normal, y el rango pues desde luego que en una
hoja llamada Noviembre...

Solicito de tu auxilio...!

Sub imprimir_seleccionando()
Dim seleccion As Range
'On Error Resume Next
Worksheets("Noviembre").Select
Application.ScreenUpdating = True
Set seleccion = Application.InputBox( _ '< Aquí se detiene
Prompt:="Seleccione los empleados", _
Title:="Remisiones a imprimir", _
Default:=("$B$7"), _
Type:=8)
If seleccion Is Nothing Or seleccion .Columns.Count > 1 Then
MsgBox "No fonuncia"
Exit Sub
Else
MsgBox "Si fonuncia"
Worksheets("imprimir").Select '<- Esta es la hoja donde esta el formato
For Each c In seleccion
Range("$B$8").Value = c.Value '< B8 'refresca' muchos BuscarV
'ActiveSheet.PrintOut
Next c
MsgBox "Done"
End If
End Sub

hola, Roberto !

... error es el 424: "Se requiere un objeto"
Declaro seleccion as Range pero creo que no le gusta.
El codigo esta en un modulo normal, y el rango pues desde luego que en una hoja llamada Noviembre [...]

a) en tu primer mensaje preguntas... 'que error tengo que no consigo hacer que esto funcione?'
[pero no comentas por que es que 'no funciona'] :))
b) en tu segundo mensaje afirmas que... 'seleccion siempre es nothing!'
[y comentas que en otros libros funciona PERO en 'este' no]

1) si seleccion es siempre 'nothing'... significa que el usuario pulsa {esc} o el boton de 'cancelar' [en el inputbox]
2) el error 424... lo esta 'confirmando' [o al menos, asi lo parece]
3) la linea 'On Error Resume Next'... previene [si fuera el caso] el que el usuario cancele la seleccion del rango :))
por lo que el error 'vuelve' o surge, despues de haber seguido mi sugerencia de 'comentar' esa linea :))

-> si el 'porque no funciona'... es solo el hecho de que 'seleccion' esta devolviendo siempre 'nothing'...
podrias confirmar que -tambien- sucede cuando SI se pulsa {enter} [o el boton de aceptar] en el inputbox ?
[obviamente que habiendose seleccionado un rango previamente... o 'aceptar' el que se muestra por 'Default'] ;)

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.