Que la macro me pida que seleccione con el raton un rango

04/05/2004 - 04:25 por Luis Menéndez | Informe spam

Estimados todos me gustaría que alguien me diese un trocito de codigo para
que una macro que se dedica a dar un formato a un texto volcado con datos se
pare a pedirme, no el rango de filas con una pregunta en un inputbox , si no
que yo seleccione el rango para luego seguir la macro con su trabajo. Es
decir que la macro tiene que pararse y dejarme moverme con el curso a ver
dónde quiero que continue los comandos.

Muchas Gracias A Todos.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

macro me pida el nombre del archivo

Leer las respuestas

#1 Héctor Miguel

04/05/2004 - 04:41 | Informe spam

hola, Luis !

... que una macro que ... se pare a pedirme ... que yo seleccione el rango para luego seguir [...]

usa el 'inputbox' =>del objeto 'application'<= [que NO es lo mismo que un 'inputbox' de vba] [p.e.]
[... otras lineas de tu codigo ...]
Dim NuevaCelda As Range
On Error Resume Next ' por si las dudas '
Application.ScreenUpdating = True ' el 'refresco' de la pantalla debe estar 'activo' '
Set NuevaCelda = Application.InputBox( _
Prompt:="Selecciona la celda de salida...", _
Title:="Nueva celda", _
Default:=ActiveCell.Address, _
Type:=8) ' Type:=8 'significa' que 'se espera' un objeto rango seleccionado =>por el usuario<= '
If NuevaCelda Is Nothing Then
Exit Sub ' u otras instrucciones '
Else
NuevaCelda.Cells(1, 1) = "Aprobado"
End If

[... otras lineas de tu codigo ...]

saludos,
hector.

Responder a este mensaje

#2 Luis Menéndez

04/05/2004 - 14:52 | Informe spam

Muchas Gracias Héctor lo probaré cuando tenga un momento.
"Héctor Miguel" escribió en el mensaje
news:uaq#

hola, Luis !

> ... que una macro que ... se pare a pedirme ... que yo seleccione el

rango para luego seguir [...]

usa el 'inputbox' =>del objeto 'application'<= [que NO es lo mismo que un

'inputbox' de vba] [p.e.]

[... otras lineas de tu codigo ...]
Dim NuevaCelda As Range
On Error Resume Next ' por si las dudas '
Application.ScreenUpdating = True ' el 'refresco' de la pantalla debe

estar 'activo' '

Set NuevaCelda = Application.InputBox( _
Prompt:="Selecciona la celda de salida...", _
Title:="Nueva celda", _
Default:=ActiveCell.Address, _
Type:=8) ' Type:=8 'significa' que 'se espera' un objeto rango

seleccionado =>por el usuario<= '

If NuevaCelda Is Nothing Then
Exit Sub ' u otras instrucciones '
Else
NuevaCelda.Cells(1, 1) = "Aprobado"
End If

[... otras lineas de tu codigo ...]

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida