Anónimo
Crear programa en VB y almacene la info en excel
Estimado amigo.
Necesito tu apoyo para crear un programita en el visual basic de excel, que me permita llenar varios campos y al hacer click en un botón me guarde la información en una hoja excel.
No conozco mucho de visual basic pero si tuvieses una plantilla me ayudaría bastante.
Si tuvieses manual o mejor aun un ejemplo hecho en el excel (plantilla) te lo agradeceré bastante que me lo pasaras.
Saludos.
Necesito tu apoyo para crear un programita en el visual basic de excel, que me permita llenar varios campos y al hacer click en un botón me guarde la información en una hoja excel.
No conozco mucho de visual basic pero si tuvieses una plantilla me ayudaría bastante.
Si tuvieses manual o mejor aun un ejemplo hecho en el excel (plantilla) te lo agradeceré bastante que me lo pasaras.
Saludos.
1 Respuesta
Respuesta de Luis_P
1
Agrega un formulario a tu hoja, el formulario debe tener 2 texbox y un botón ( no les cambies el nombre a los controles, solo agregalos)
Luego pega este código en el formulario:
Option Explicit
Private Sub CommandButton1_Click()
Dim fila As Long
'4c7569735f50
fila = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Range("A" & fila) = Trim(TextBox1)
Range("b" & fila) = Trim(TextBox2)
TextBox1 = ""
TextBox2 = ""
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set UserForm3 = Nothing
End Sub
Este ejemplo agrega los datos de los textbox a la hoja activa en forma secuencial a las columnas a y b respectivamente.
Para saber en que fila debe agregar los datos se sirve la función contara, la cual cuenta elementos de la columna A, ( importante no tener filas vacías entre datos o la función contara solo hasta la primera fila vacía).
Respecto a manuales... utiliza el mejor ( la tecla F1).
Luego pega este código en el formulario:
Option Explicit
Private Sub CommandButton1_Click()
Dim fila As Long
'4c7569735f50
fila = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Range("A" & fila) = Trim(TextBox1)
Range("b" & fila) = Trim(TextBox2)
TextBox1 = ""
TextBox2 = ""
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set UserForm3 = Nothing
End Sub
Este ejemplo agrega los datos de los textbox a la hoja activa en forma secuencial a las columnas a y b respectivamente.
Para saber en que fila debe agregar los datos se sirve la función contara, la cual cuenta elementos de la columna A, ( importante no tener filas vacías entre datos o la función contara solo hasta la primera fila vacía).
Respecto a manuales... utiliza el mejor ( la tecla F1).