Foro Excel

Con esta macro puedo ingresar bastantes datos en forma continua, pero a veces quiero salir de la macro sin que me arroje error.
Lo intente con Do Until ... Loop pero no me resultó. Les agradeceré su ayuda.

Gracias
Ví­ctor Riquelme

Podrias poner lo siguiente
Do
Columns("C:C").Select
Selection.Find(what:=InputBox("Ingrese Codigo Producto", codigo), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
If what = "" Then GoTo 1
ActiveCell.Offset(0, 10).Select
Dim Direccion As String
ActiveCell.FormulaR1C1 = "1K8"
ActiveCell.Offset(0, -5).Select
Dim Cantidad As Integer
Cantidad = InputBox("ingrese Cantidad", Cantidad)
ActiveCell = Cantidad

Loop
1
End Sub
espero te sirva, saludos

Lamentablemente la ayuda de hansabel no me resultó. Si alguien pudiera ayudarme se lo agradecerí­a.

prueba la instruccion EXIT DO

saludos

Bueno entonces no entendi tu pregunta, porque con el codigo que puse cuando dejas en blanco al pedir Ingrese codigo producto se sale del macro sin ningun error, al menos en mi maquina funciona así­, tambien podrias poner if vbcancel then goto 1. Si no es eso podrias explicar un poco mejor el problema, saludos

Hola Victor,

Haber si esto es lo que buscas. Cambia lo que esta en color rojo por lo que esta en color azul.

Selection.Find(what:=InputBox("Ingrese Codigo Producto", codigo)

codigo = InputBox("Ingrese Codigo Producto", codigo)
If codigo = "" Then Exit Sub
Selection.Find(What:=codigo

Saludos

a ver checate este ejemplo:

para salir del bucle que muestra repetidas vece el inputbox de la "cantidad",debes darle el valor de cero[0] y asi podras concluir tu sesion para introducir o actualizar tu archivo con informacion.

la otra opcion es mi preferida...con un form que se abre y cierra con un metodo abreviado de teclado.
simplemente introduces tus datos y cuando termines cierras el form con Alt+c y listo.