Creo que estoy ciego...

17/11/2005 - 01:36 por Hernandez, Roberto | Informe spam

...porque no encuentro el error.

Dice mi jefe que sufro de 'ceguera de taller', o sea que de tanto estar en
esto no veo lo que los demás, con una mente fresca si podrán...

Muchachos, ¿qué error tengo que no consigo hacer que esto funcione??????

'**********************************************************
Sub imprimir_seleccionando()
Dim seleccion As Range

On Error Resume Next
Worksheets("Noviembre").Select

Application.ScreenUpdating = True
Set seleccion = Application.InputBox( _
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
For Each c In ActiveSheet.Range(seleccion.Address)
Range("$B$8").Value = c.Value
'ActiveSheet.PrintOut
Next c
MsgBox "Done"
End If

End Sub
'*****************************************************
Gracias a todos!!!!

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Hernandez, Roberto

18/11/2005 - 17:08 | Informe spam

Hextor:

Tienes razón al decir que he sido un tanto 'ambiguo' en mis posts, lo que
pasa es que ando desesperado.
En mi primer post decia que no conseguía que funcionara: lo que trataba de
decir es que no sabía cual era
el error ni sospechaba de qué se trataba.
En mis segundo Post decía que seleccion siempre era nothing, porque al
trazar el código y pasar por la
línea donde se pregunta si seleccion es nothing, veía que efectivamente así
era.
En mi tercer post [después de haber inhabilitado la línea 'On error resume
next] expongo que el error es
'Se requiere un objeto'

Al final del día, el problema es que específicamente en este libro el código
no funciona. De algun modo la declaracion
Dim seleccion as Range
al parecer tiene algún problema porque la linea Set seleccion =
Application.Inputbox.. manda un error porque dice que se requiere un
objeto...

Si copio el código tal cual en otro libro, Funciona!!!

Pienso en la posibilidad de dar 'Cancelar', pero no es así porque yo mismo
clickeo en 'Aceptar' y ahí se me detiene el compilador.
Lo que he hecho para que funcione es fijar el rango 'a mano' y luego ya lo
recorro, aunque esto le quita la enorme ventaja de poder
manejar rangos dinámicos.

Será algúna validación, algún formato condicional, será

Gracias Hec.

"Héctor Miguel" escribió en el mensaje
news:%

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.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida