![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCa36lah-e6F_L70T1jZ2I0X3t-Ca2I9M2p1JDrT3d8b6PV_vuR3U3WspqUPiAD2rLyfCbAf2KdAR3UpfCq61YzlD9XwY1U7zULmnGscIXbpSkYnJsSUVQLk1Nt5CgtdzKxo8bRtapI1a1/s640/agenda1.jpg)
En la hoja Excel se habilitan los macros cambando las opciones de seguridad si es necesario y se ingresa al entorno de programación con Herramientas, Macros, Editor de Visual Basic
Una vez allí se escoge Insertar, Userform y usando la caja de herramientas se colocan los textbox y el command button
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj_2m_ZheorhjxYB9hSYsBkRVtgWWFG9xbvvlY6bqEENHG8vLWDMEAPMd4KHOaVCJj1kWyuOrME10horLL4Ze2QWZ9XGCNDt9dbc2MRQeWlu_hiCs09GImQWtYhuzQIaqa1jqOKuYmq3B3x/s640/agenda2.jpg)
Private Sub CommandButton1_Click()
indice = Hoja1.Cells(1, 1)
If indice = "" Then
indice = 1
Hoja1.Cells(1, 1) = indice
End If
indice = indice + 1
Hoja1.Cells(1, 1) = indice
Hoja1.Cells(indice, 1) = TextBox1.Text
Hoja1.Cells(indice, 2) = TextBox2.Text
Hoja1.Cells(indice, 3) = TextBox3.Text
Hoja1.Cells(indice, 4) = TextBox4.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.SetFocus
End Sub
Listo, eso es todo
No hay comentarios:
Publicar un comentario