RELLENAR TEXTBOX CON BUCLE FOR

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
pablotxas
Miembro Frecuente
Miembro Frecuente
Mensajes: 36
Registrado: 09 Feb 2018 05:04

RELLENAR TEXTBOX CON BUCLE FOR

Mensaje por pablotxas » 03 Oct 2018 04:25

Buenos días,

Estoy intentando rellenar un conjunto de varios Textbox (TextBox1, TextBox2, TextBox3, ...) mediante un bucle For, para introducir el contenido de algunas celdas.

Estos TextBox se encuentran incrustados en una de las hojas del Excel, pero no consigo de ninguna de las maneras poner algo del estilo:

For i = 1 To 6
ActiveSheet.Controls("TextBox" & i).Text = "prueba " & i
Next

y que funcione.....

He buscado alternativas y algunas hacen referencia a la función Me y otras cosas que no me permite ejecutar VBA...

¿Alguna sugerencia, amigos?

Un saludo y feliz día.

Pablo



Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
Mensajes: 5986
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: RELLENAR TEXTBOX CON BUCLE FOR

Mensaje por Antoni » 03 Oct 2018 05:40

Código: Seleccionar todo

For i = 1 To 6
   ActiveSheet.OLEObjects("TextBox" & i).Object.Value = "Prueba " & i
Next



pablotxas
Miembro Frecuente
Miembro Frecuente
Mensajes: 36
Registrado: 09 Feb 2018 05:04

Re: RELLENAR TEXTBOX CON BUCLE FOR

Mensaje por pablotxas » 03 Oct 2018 13:33

¡Perfecto!

Muchas gracias Antoni, ha funcionado a la perfección. Lo había probado de unas cuantas formas pero no había dado con la solución.

Un saludo hasta Galicia.

Hasta pronto!

Pablo



Responder