Salir de un InputBox con cancelar

02/01/2004 - 18:12 por Jordi | Informe spam

Alguien sabe como se puede proteger por si alguien seleciona el boton de
cancelar cuando se esta ejecutando la instrución de InputBox.
Al ser del tipo 8 espera que alguien le seleccione una celda, pero si le dan
a Cancelar o a la X peta.
código:

Dim r as Range
Set r = Application.InputBox("Seleciona la celda a cambiar ", Type:=8)
If (r.Column = 3) And (r.Count = 1) Then
If (r.Value <> "") Then
.

Gracias
Jordi

Siga el debate

5 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Ignacio Pérez

02/01/2004 - 20:35 | Informe spam

Hola Jordi:
Se me ocurre esta solución. Quizás alguien tenga alguna otra
idea..

Sub nnn()
On Error GoTo ControlErrores
Dim r As Range
r = Application.InputBox("Seleciona la celda a cambiar ", Type:=8)
If (r.Column = 3) And (r.Count = 1) Then Range("A1").Select

ControlErrores:
If errornumber = 91 Then Exit Sub
End Sub

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :