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 Respuesta
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.
