Salir de un InputBox con cancelar

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

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

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

Hola Jordi.

Debes hacer un control de error. A continuación te adjunto
una pequeña macro que permite captar dicho error.

Sub controlcanceleninputbox()

Dim r As Range
On Error Resume Next
Set r = Application.InputBox("Seleciona la celda a
cambiar ", Type:=8)
On Error GoTo 0
If r Is Nothing Then
MsgBox "Has apretado false"
ElseIf (r.Column = 3) And (r.Count = 1) Then
MsgBox "$C$1"
Else
MsgBox "NO $C$1, SINO " & r.Address
End If
End Sub

Saludos,

Benito Merino
Barcelona

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


.

Hola Jordi:
Creo que deberias hacer esto:

Sub nnn()
Dim r As Variant
r = Application.InputBox("Seleciona la celda a cambiar ",
Type:=8)
if r=vbCancel then exit sub
If (r.Column = 3) And (r.Count = 1) Then Range
("A1").Select
End Sub
-

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


.