Input box para ingresar datos
Tengo este código
Sub Recuento ()
Dim CODIGO As String
CODIGO = Inputbox ("Codigo Articulo: ", "Recuento")
Range ("A5") = CODIGO
Dim UNIDADES As String
UNIDADES = Inputbox("Unidades : ", "Recuento")
Range ("B5") = UNIDADES
Mi pregunta es como seria el código para que luego de ingresar ambos datos, sin salir del inputbox (con solo darle enter) se posicione en la fila siguiente hacia abajo.
También que línea es necesaria para en algún momento cerrar el inputbox. por ejemplo (/enter)
1 respuesta
Lo que quieres es capturar el código y las unidades en la fila 6 y luego que se capturen en la fila 7, y así, ¿cada vez que ejecutes la macro se almacene el código y las unidades en la siguiente fila disponible?
Si eso es lo que necesitas, te recomiendo que crees un userform con 2 textbox y un botón. Si optas por el userform te ayudo a crearlo y también te envío el código para almacenar en la hoja. Ejemplo:
Si no quieres el userform, entonces quieres que al dar enter se almacene, ¿y qué nuevamente te aparezca el inputbox del código?
Exacto sin formulario. Ingreso ambos datos y al darle enter al ultimo se almacene y se pueda seguir ingresando en la fila de abajo y al no ingresar más poder cerrar el inputbox
Te anexo la macro
Sub Recuento()
'Act.Por.Dante Amor
Do While True
CODIGO = InputBox("codigo Articulo: ", "Recuento")
If CODIGO = "" Then Exit Do
UNIDADES = InputBox("unidades : ", "Recuento")
If UNIDADES = "" Then Exit Do
'
u = Range("A" & Rows.Count).End(xlUp).Row + 1
If u < 5 Then u = 5
Cells(u, "A") = CODIGO
Cells(u, "B") = UNIDADES
Loop
End SubS a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
Excelente. Es lo que estaba buscando. Una ultima pregunta adicional. . ¿Para diferenciar el inicio hay manera de cambiar el color de fondo del inputbox primero (CÓDIGO)?
Desafortunadamente no puedes cambiar los colores.
Recuerda valorar la respuesta.
