Guardar datos de un TextBox en dos hojas

Tengo un userForm donde registro los usuarios, su cédula, su nombre y su edad, el userform lo tengo indicado en la Hoja1 y lo registra bien en la Hoja1, pero yo quiero que cuando registre un usuario, éste usuario se guarde tanto en la Hoja1 como en la Hoja2 a la vez, Espero haberme explicado bien.

Este es el código:

Private Sub Nombre_Change()
Range("B2").Select
ActiveCell.FormulaR1C1 = Nombre
End Sub

Private Sub Cédula_Change()
Range("A2").Select
ActiveCell.FormulaR1C1 = Cédula
End Sub

Private Sub Edad_Change()
Range("C2").Select
ActiveCell.FormulaR1C1 = Edad
End Sub

Private Sub Guardar_Click()
Selection.EntireRow.Insert
txtCédula = Empty
txtNombre = Empty
txtEdad = Empty
End Sub

Cualquier ayuda será agradecida.

1

1 respuesta

Respuesta
3

Te presento otra forma de agregar registros

Cambia todo tu código por el siguiente:

Private Sub Guardar_Click()
'Por Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    '
    If txtCédula = "" Then
        MsgBox "Ingresa la cédula"
        txtCédula.SetFocus
        Exit Sub
    End If
    If txtNombre = "" Then
        MsgBox "Ingresa el nombre"
        txtNombre.SetFocus
        Exit Sub
    End If
    '
    'obtienen la siguiente fila vacía de la columna A
    u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
    'agrega el registro
    h1.Range("A" & u1).Value = txtCédula
    h1.Range("B" & u1).Value = txtNombre
    h1.Range("C" & u1).Value = txtEdad
    '
    u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
    h2.Range("A" & u2).Value = txtCédula
    h2.Range("B" & u2).Value = txtNombre
    h2.Range("C" & u2).Value = txtEdad
    '
    MsgBox "Registro agregado en las 2 hojas"
    txtCédula = Empty
    txtNombre = Empty
    txtEdad = Empty
End Sub


'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

muchas gracias, el código funciona muy bien, que Dios te de más.

Al final de a respuesta hay un botón para valorar la respuesta: "Votar" y "Excelente", no olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas