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

1 respuesta

Respuesta
1

[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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas