Muchas veces cuando capturamos datos en una hoja de cálculo, requerimos de una automatización, y la forma habitual sería crear un UserForm con TextBoxes insertados y de esa forma recopilar la información de una forma automatizada. Sin embargo, la creación de un UserForm nos podría llevar demasiado tiempo en implementar, por lo que en este post, les traigo una forma práctica para automatizar la captura de datos utilizando la función InputBox.
Lo único que tienes que hacer, es dirigirte al entorno VBA, insertar un nuevo módulo y pegar el siguiente código. Recuerda que lo puedes personalizar según tus necesidades.
Sub CapturarDatos() Dim f As Long Dim Entrada1 As String Dim Entrada2 As String Dim Entrada3 As String Do f = Cells(Rows.Count, 1).End(xlUp).Row + 1 Entrada1 = InputBox("Código:") If Entrada1 = Empty Then Exit Sub Entrada2 = InputBox("Descripción:") If Entrada2 = Empty Then Exit Sub Entrada3 = InputBox("Existencia:") If Entrada3 = Empty Then Exit Sub Cells(f, 1) = Entrada1 Cells(f, 2) = Entrada2 Cells(f, 3) = Entrada3 Hoja1.Range("A1").CurrentRegion.Sort Key1:=Hoja1.Range("A1"), Header:=xlYes Loop End Sub
Pera comprender mejor su funcionamiento, te invito a ver el vídeo completo en YouTube AQUÍ
Además puedes descargar el archivo base desde AQUÍ
Si el contenido te gustó, compártelo con tus amigos en las diferentes redes sociales.
Saludos cordiales!