Guardar información de un formulario a libro excel
Buenas tardes,
Tengo un formulario con varios combobox, necesito que al dar clic en un botón (Guardar) se salve la información en una hoja de excel. Acto seguido en el formulario se borren lo datos y quede libre para capturar más información y se guarde en la misma hoja acomodada en el siguiente renglón.
Pls me pueden ayudar =0)
Tengo un formulario con varios combobox, necesito que al dar clic en un botón (Guardar) se salve la información en una hoja de excel. Acto seguido en el formulario se borren lo datos y quede libre para capturar más información y se guarde en la misma hoja acomodada en el siguiente renglón.
Pls me pueden ayudar =0)
1 Respuesta
Respuesta de calvuch
1
Acá te dejo un ejemplo para el botón guardar
Guarda los datos en la hoja 4 si deseas que se en otra hoja solo cambia el numero que esta entre paréntesis (4)
Private Sub CommandButton1_Click()
'guardar en hoja 4
Dim fila As Long
If TextBox1 = "" Or TextBox2 = "" Then Exit Sub ' si ambas cajas estan vacias no guarda nada
fila = Application.WorksheetFunction.CountA(Sheets(4).Range("A:A")) + 1 ' esta linea cuenta cuantas registros ya _
existen en la columna A, para que el proximo registro se pegue en la fila siguiente
Sheets(4).Range("A" & fila) = TextBox1 'pasa el dato del text1 a la celda A + la fila sgte en blanco
Sheets(4).Range("B" & fila) = TextBox2
' limpia los text
TextBox1 = ""
TextBox2 = ""
End Sub
Si te sirve CIERRA la pregunta
Guarda los datos en la hoja 4 si deseas que se en otra hoja solo cambia el numero que esta entre paréntesis (4)
Private Sub CommandButton1_Click()
'guardar en hoja 4
Dim fila As Long
If TextBox1 = "" Or TextBox2 = "" Then Exit Sub ' si ambas cajas estan vacias no guarda nada
fila = Application.WorksheetFunction.CountA(Sheets(4).Range("A:A")) + 1 ' esta linea cuenta cuantas registros ya _
existen en la columna A, para que el proximo registro se pegue en la fila siguiente
Sheets(4).Range("A" & fila) = TextBox1 'pasa el dato del text1 a la celda A + la fila sgte en blanco
Sheets(4).Range("B" & fila) = TextBox2
' limpia los text
TextBox1 = ""
TextBox2 = ""
End Sub
Si te sirve CIERRA la pregunta
