Ingreso de datos con formulario

Tengo 3 txtbox para 3 celdas en excel, quiero que al digitar el primer txbox1 guarde el dato en la celda

Y el cursor salte a la línea siguiente ejemplo de A1 a B1 y en el tercer TXTBOX3 guarde el dato también

Y cierreel formulario... Sin usar botón de comando

1 respuesta

Respuesta
1

Debes usar el evento change del botón para que haga eso

Mira estos ejemplos

https://youtu.be/0UuR_zRQCB4

https://youtu.be/smL4A-aRjCM 

https://youtu.be/gqZzSfikEYY

Estos ejemplos son más cortos y muestran con usan el evento change del textbox para realizar el procedimiento sin apretar un solo botón

https://youtu.be/fi_qZOQL62A

https://youtu.be/q4apNBwTMrg

https://youtu.be/ZcjuU3av0-U

https://youtu.be/5IagqWxjLmk

Gracias Macrodos¡

Pero ya lo intente y no permite, ingresa el dato en la celda, pero cuando salto al texbox2

El cursor no salta al texbox 2 ; ayúdame... no soy programador solo alguien empírico que le

Gusta estas cosas ¡

Private Sub TextBox1_Change()

ActiveCell.FormulaR1C1 = TextBox1

ActiveCell.Offset(0, 1).Select

End Sub

Te falta una línea

Textbox2. Setfocus

visita https://programarexcel.com descarga gratis ejemplos de macros 

suscribe https://youtube.com/programarexcel

en la celda carga la primera letra y automáticamente salta de celda en celda partiendo

la palabra en estas.lo

que quiero es que me ingrese los datos del txtbox1 y cuando tabule

al txtbox2 el cursor salte a la Celda siguiente y así sucesivamente.lo hic

te envió imagen¡

Bien detecta cual es la última celda con datos primero y en esa celda copia los datos del textbox

Así

uf = Sheets("Mihoja").Range("A" & Rows.Count).End(xlUp).Row

Donde dice "A" pon la columna donde quieres que se copien los datos

Entoces quedaría asi

uf = Sheets("Mihoja").Range("A" & Rows.Count).End(xlUp).Row

cells(uf+1,"A")=textbox2

Fíjate en ele ejemplo 151 como se ingresan datos con el formulario, ¿es esto lo que necesitas?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas