Formulario de captura de datos en excel

Esta macro nos facilita el ingreso de datos hacia el Excel de una forma práctica y sencilla, como llevar datos a excel desde un formulario.

Primero creamos un formulario como se muestra a continuación.

A los cuadros de texto les ponemos los siguientes nombres (Name) en sus respectivas propiedades.

(Name)=TXTCODIGO

(Name)=TXTDESCRIPCION

(Name)=TXTSOTCK

(Name)=TXTPRECIO

Lo mismo para los botones cambiamos la propiedad (Name).

(Name)=CMDGRABAR

(Name)=CMDSALIR

El nombre del formulario también es muy importante.

(Name)=frminicio

No se olviden que desde la propiedad caption podemos poner  el nombre que se va a mostrar al usuario en dicho elemento.

¡Listo!, una vez hecho eso le damos doble clic al botón GRABAR para ir a visual basic y comenzar la programación de dicho botón, que es la siguiente.

Private Sub CMDGRABAR_Click()

Sheets("ARTICULOS").Select

NR = Application.WorksheetFunction.CountA(Range("A:A"))

If TXTCODIGO = "" Then

    MsgBox "INGRESE CODIGO"

    TXTCODIGO.SetFocus

        Exit Sub

End If

If TXTDESCRIPCION = "" Then

    MsgBox "INGRESE DESCRIPCION"

    TXTDESCRIPCION.SetFocus

    Exit Sub

End If

If TXTSTOCK = "" Then

    MsgBox "INGRESE STOCK"

    TXTSTOCK.SetFocus

    Exit Sub

    Else

    If Not (IsNumeric(TXTSTOCK)) Then

    MsgBox "EL STOCK DEBE SER NUMEROS"

    TXTSTOCK = ""

    TXTSTOCK.SetFocus

    Exit Sub

    End If

   End If

If TXTPRECIO = "" Then

    MsgBox "INGRESE PRECIO"

    TXTPRECIO.SetFocus

    Exit Sub

    Else

    If Not (IsNumeric(TXTPRECIO)) Then

    MsgBox "EL PRECIO DEBE SER NUMEROS"

    TXTPRECIO = ""

    TXTPRECIO.SetFocus

    Exit Sub

    End If

End If

Cells(NR + 1, 1) = TXTCODIGO

Cells(NR + 1, 2) = TXTDESCRIPCION

Cells(NR + 1, 3) = Val(TXTSTOCK)

Cells(NR + 1, 4) = Val(TXTPRECIO)

TXTCODIGO = ""

TXTDESCRIPCION = ""

TXTSTOCK = ""

TXTPRECIO = ""

TXTCODIGO.SetFocus

End Sub

Ahora vamos al Excel y desde la ficha programador vamos a insertar un botón de comando, también añadimos texto como se muestra en la siguiente imagen.

El nombre de la hoja le ponemos ARTÍCULOS, como se muestra en la imagen.

Ahora damos doble clic a nuestro botón para ir a visual basic donde aremos lo siguiente.

Su código es el siguiente:

Private Sub CMDINICIO_Click()

frminicio.Show   

End Sub

Del código tenemos lo siguiente:

NR = Application.WorksheetFunction.CountA(Range("A:A")), con este código lo que hacemos es decirle al visual basic que llame una función del excel que en este caso es la función contara, esta función cuenta los datos ingresados en la columna (A:A),siempre que llamemos a una función de Excel debemos colocarla en inglés.

TXTCODIGO.SetFocus, lo que hace este código es llevar el cursor de escritura a dicho cuadro de texto, If TXTCODIGO = "" Then, con este código le decimos si el cuadro de texto está vacío entonces, si se cumple la condición nos mandara un error, de lo contrario el programa continuara a la siguiente condición, nos obliga a escribir un dato en el cuadro de texto, también tenemos lo siguiente, If Not (IsNumeric(TXTPRECIO)) Then, con este código condicionamos a solo ingresar datos numéricos, de lo contrario mandara error, Cells(NR + 1, 1) = TXTCODIGO, con este código identificamos la celda donde se ubicara la información escrita en los cuadros de texto correspondientes.

frminicio.Show, abre el formulario para poder ingresar los datos.