En esta ocasión veremos como traspasar los datos que escribamos en nuestro textbox, directamente a una celda.
ANTES: Nuestro libro de excel debe estar habilitada para ejecutar macros, es decir, con la extención .xlsm y nuestra pestaña de programador debe estar en modo diseño para que podamos escribir código y editar los objetos que vamos a utilizar.
PASO 1: Creamos un botón de comando (commandbutton) en una de nuestras hojas, y también creamos un formulario.
PASO 2: Hacemos doble clic sobre el botón de comando y escribimos lo siguiente:
Private Sub CommandButton1_Click()
UserForm1.Show
End SubCon esto mostraremos el formulario al hacer clic en el botón de comando.
PASO 3: Para este ejemplo, en el formulario creamos varios cuadros de texto (textbox). Creamos también etiquetas (label) para describir qué datos nos mostrará el textbox y -en este caso- hacia donde van. Finalmente creamos un commandbutton que será el encargado de enviar nuestros datos a las celdas cuando hagamos clic en él.
PASO 4: Hacemos doble clic en el commandbutton "ENVIAR" y escribimos lo siguiente:
Private Sub CommandButton2_Click()Worksheets("Hoja1").Range("B6").Value = TextBox1.ValueWorksheets("Hoja1").Range("B7").Value = TextBox2.ValueWorksheets("Hoja2").Range("B2").Value = TextBox3.ValueWorksheets("Hoja2").Range("B3").Value = TextBox4.Value
End Sub
Con esto enviamos los datos que escribamos en el TextBox1 y TextBox2, a la celda B6 Y B7 de la Hoja1, respectivamente. De la misma forma, TextBox3 y TextBox4 van a la celda B2 y B3 de la Hoja2.
PASO 5: Ejecutar
Ingresamos datos en los textbox y presionamos "ENVIAR" |
Datos de TextBox1 y TextBox2 en Hoja1 |
Datos de TextBox3 y TextBox4 en Hoja2 |
LINK DE DESCARGA
No hay comentarios.:
Publicar un comentario