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.

Preguntas similare

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.
Respuesta 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.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida