Capturar Datos mediante la función InputBox

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!