Un telbox para ingresarlos en las celdas
Saludos primeramente a todos, el motivo de esta es que quisiera que me
Ayudaran con un problema de excel, es que necesito el procedimiento de
Un telbox para ingresarlos en las celdas (B4 asta B38; y después D4 asta D38 y luego F4 asta F35
Y finalizase lo que escribo en el telbox y quede en la celda
seleccionada que lo haga una celda a la vez hasta que termine en la celda
F35 Espero puedan ayudarme.
Saludos. Gracias de ante mano
Ayudaran con un problema de excel, es que necesito el procedimiento de
Un telbox para ingresarlos en las celdas (B4 asta B38; y después D4 asta D38 y luego F4 asta F35
Y finalizase lo que escribo en el telbox y quede en la celda
seleccionada que lo haga una celda a la vez hasta que termine en la celda
F35 Espero puedan ayudarme.
Saludos. Gracias de ante mano
Respuesta de Juan Carlos González Chavarría
1
Saludos primeramente a todos, el motivo de esta es que quisiera que me
ayudaran con un problema de excel, es que necesito el procedimiento de
un telbox para ingresarlos de celdas en celda (B4 asta B38; y después D4 asta D38 y luego F4 asta F35 ycunado llegue a f35 ternime lo que escribo en el telbox y quede en la celda seleccionada cada vez hasta que termine en la celda F35 y que el cursor quede en la celda b4 Espero puedan ayudarme.
Saludos. Gracias de ante mano
ayudaran con un problema de excel, es que necesito el procedimiento de
un telbox para ingresarlos de celdas en celda (B4 asta B38; y después D4 asta D38 y luego F4 asta F35 ycunado llegue a f35 ternime lo que escribo en el telbox y quede en la celda seleccionada cada vez hasta que termine en la celda F35 y que el cursor quede en la celda b4 Espero puedan ayudarme.
Saludos. Gracias de ante mano
Range("B4").Select
If ActiveCell.Value = "" Then ActiveCell.Offset(1,0).Select
ActiveCell.Value = TextBox1.Text
Igual haces con los otros rangos.
If ActiveCell.Value = "" Then ActiveCell.Offset(1,0).Select
ActiveCell.Value = TextBox1.Text
Igual haces con los otros rangos.
Range("B4").Select
If ActiveCell.Value = "" Then ActiveCell.Offset(1,0).Select
ActiveCell.Value = TextBox1.Text
Igual haces con los otros rangos.
Gracia pero esto no se agrega alguna otra función o solo se aplica por cada celda verdad mmmuchisima gracias
If ActiveCell.Value = "" Then ActiveCell.Offset(1,0).Select
ActiveCell.Value = TextBox1.Text
Igual haces con los otros rangos.
Gracia pero esto no se agrega alguna otra función o solo se aplica por cada celda verdad mmmuchisima gracias
