Imprimer Memory: objetos visuales (1º - Bachillerato - tecnologías de la información y comunicación

Private Sub CommandButton1_Click() UserForm1.Show End Sub

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

Private Sub CommandButton2_Click() Unload Me End Sub

Private Sub CommandButton1_Click() UserForm1.Show End Sub

Private Sub CommandButton2_Click() Unload Me End Sub

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