Ayuda con formulario y macro para dante amor
Buenas tardes expertos soy nuevo en esto de las macros necesito ayuda con un código ya que elabore un formulario pero nome permite enviar la información a la hoja que necesito que e pegue la información es decir a la hoja de base de datos les dejo el código:
Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
End Sub
Private Sub CommandButton2_Click()
unloadme
End Sub
Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub
Private Sub CommandButton4_Click()
End
End Sub
Private Sub TextBox1_Change()
Range("A5").SelectActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B5").SelectActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C5").SelectActiveCell.FormulaR1C1 = TextBox
End Sub
Este código lo genere en la hoja 1 que es ahí en donde debe de aparecer el formulario pero los datos deben de cargarse en la hoja llamada base de datos espero haber sido claro
Saludos
1 respuesta
Buenas tardes maestro dante ya le envíe el archivo mi correo es [email protected] para que lo verifique y espero nuevamente su respuesta
Te envié el archivo con el código.
Private Sub CommandButton1_Click()
'Por.DAM
u = Hoja3.Range("A" & Rows.Count).End(xlUp).Row + 1
If TextBox1 = "" Then
MsgBox "Falta el No. de suscriptor"
TextBox1.SetFocus
Exit Sub
End If
Hoja3.Cells(u, "A") = TextBox1
Hoja3.Cells(u, "B") = TextBox2
Hoja3.Cells(u, "C") = TextBox3
MsgBox "Datos registrados"
CommandButton3_Click
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub
Private Sub CommandButton4_Click()
End
End Sub
