Boton guardar datos en excel utilizando usefrom
Ocupo que me ayuden, esta es la programacion que tengo en el boton guardar de un useform en excel
Lo que quero es que me ayuden, por que el boton no me guarda.
Private Sub Cmdguardar_Click()
Sheets("DATOS").Activate
Range("B8:P8").Select
If ActiveCell.Offset(1, 0).Value = "" Then
Exit Sub
End If
Selection.End(xlDown).Activate
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = Txtidentidad
ActiveCell.Offset(1, 2).Value = Txtcaso.Text
ActiveCell.Offset(2, 4).Value = Cbotienda.Text
ActiveCell.Offset(3, 5).Value = Val(Txtidasesor.Text)
ActiveCell.Offset(4, 7).Value = Val(Txtfechasolicitud.Text)
ActiveCell.Offset(5, 8).Value = Cbotipificacion.Text
ActiveCell.Offset(6, 9).Value = Cbosubtipificacion.Text
ActiveCell.Offset(7, 10).Value = Cbodetalle.Text
1 Respuesta
[Hola
Va la macro
Private Sub Cmdguardar_Click()
Set h2 = Sheets("DATOS")
'
'REGISTRO
u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
If u < 8 Then u = 8
'
h2.Cells(u, "B") = Txtidentidad
h2.Cells(u, "C") = Txtcaso.Text
h2.Cells(u, "D") = Cbotienda.Text
h2.Cells(u, "E") = Val(Txtidasesor.Text)
h2.Cells(u, "F") = Val(Txtfechasolicitud.Text)
h2.Cells(u, "G") = Cbotipificacion.Text
h2.Cells(u, "H") = Cbosubtipificacion.Text
h2.Cells(u, "I") = Cbodetalle.Text
'
MsgBox "Registro guardado con exito", vbInformation
End Sub
MUCHAS GRACIAS ADRIEL.
Una pregunta lo que estaba viendo que hay algunos textbox que inician con Val(textbox.text) y quiero saber si todos los textbox tienen que iniciar con val.
Porque me tira error aquí.
h2.Cells(u, "B") = Txtidentidad
¨[hola
¿Qué error te sale?
Si ingresas números pon así
H2.Cells(u, "B") = val(Txtidentidad.text)
si es texto
h2.Cells(u, "B") = Txtidentidad.text
El error que me sale es el siguiente:
Rum-time error '424':
object requered
Y siempre me devuelve a la misma línea de código que te envíe
Ah entonces el objeto Txtidentidad no existe, fíjate en el nombre del objeto tendrá un nombre distinto. También puedes eliminar el objeto y crear de nuevo
'
Valora la respuesta para finalizar saludos!
¡Gracias!
Adriel Ortiz me fue de mucga ayuda tu macros mil GRACIAS
Para finalizar hay dos opciones bueno y excelente que está en la parte inferior
