UserForm excel

boton cancelar

Private Sub CommandButton2_Click()

Unload Me

End Sub

boton aceptar

Private Sub CommandButton1_Click()

Worksheets("Hoja1").Range("A1").Value = Me.TextBox1.Value

Worksheets("Hoja1").Range("B1").Value = Me.TextBox2.Value

Worksheets("Hoja1").Range("C1").Value = Me.TextBox3.Value

End Sub

boton abrir formulario

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub