Excel - error ejecucion

hola Expertos buenas noches, ojala puedan ayudarme

tengo un archivo el cual quiero automatizar para ello estoy desarrollando un progrma en codigo en VBA, el archivo abre y me muestra el userform1, del cual cuando le doy click en R para que abra el userform2 y pueda introducir datos que van del textbox1 al textbox5 pero no abre me dice que el programa no responde. (antes si lo abria sin ningun problema pero cuando escribi el siguiente código para el TextBox1 del userform2 se cierra el programa y dice problemas de ejecución:




En el TextBox1 del userform2, me escribia la fecha inicial automaticamente 2017_1 y después llenaba los siguientes textbox 2,3,4,5 ; y se registraba en la hoja 3 "DeclaraciónRiesgos".

Sin embargo al meter la variable
Dim i As Integer
For i = 1 To 9
me marca error de ejecución .

lo que deseo es que se ejecute el código y despues de cada registro me incremente el número automaticamente ejemplo: 2017_1 ; 2017_2; 2017_3 ; 2017_4 ......Etc. y lo registré en la hoja 3 "DeclaraciónRiesgos".

De antemano muchas gracias. quedo atento a sus respuestas.
Saludos


Nota no permite adjuntar archivo

disculpa pero no tengo como enviar el archivo. pero si algun experto me dice como o si gusta se lo envio a su correo.


Gracias. Saludos

Puedes adjuntar el archivo en un nuevo mensaje con el botón "Adjuntar Archivos"... que problema te da?

creo que el error está claro, dentro del evento TextBox1_change() estás modificando el valor
del mismo textbox: TextBox1.Value = Format(Date, "yyyy_" & i + 1)
se hace un ciclo infinito, por eso no responde...

por otra parte el bucle
no tiene sentido, basta con poner

pero no te olvides de quitarlo del evento onchange o poner alguna variable global que impida
el ciclo infinito...

Juan C gracias por contestar, te comento que ya hice desde userform2 del textbox1 los cambios

TextBox1.Value = Format(Date, "yyyy_10")
TextBox1.SetFocus

pero el resultado que da es 2017_10 y de ahi no sale.

por lo que nuevamente trate de combiar el bucle, pero con este cambio ..... Format(Date, "yyyy_1"), quedando así:


y en el userform lo deje de esta manera


ya no indica error de ejcucion que ya es un paso, pero no ejecuta la operación que deseo.

saludos

nuevamente quiero adjuntar el archivo pero no el botón no responde por lo que no me acceso para subir el archivo.

no responde al cliclk el boton "adjuntar archivo"

TextBox1.Value = Format(Date, "yyyy_") & i

Pedro buenas noche.

cambie el código de acuerdo a tu sugerencia pero no funciona. se queda pasmada la PC y luego se cierra

Saludos

Buenas noches Miguel

solo te di al respuesta de como seria el código para que el textbox pusiera lo que quieres.
el problema en si, tal y como lo comenta el amigo JuanC, es la utilización del evento change del textbox. el código se ejecuta cada vez que cambie algo en el textbox, y pues se vuelve infinito, de antemano ni siquiera termina el ciclo FOR por que al ejecutar la primera vuelta, hace un cambio en el textbox y vuelve a iniciar.

si gustas puedes comprobarlo ejecutando el código paso por paso con la tecla F8. la presionas y ejecuta una linea de código y así sigues presionando la tecla F8. codigo en un textbox

por otro lado me llama a atencion que quieras poner esto en un textbox, ya que esto se ejecutaria automaticamente y ni siquiera verias los cambios del textbox, a menos que haya una pausa en tu codigo a lo mejor con un msgbox.

checa esto


lo puse en un commandButtom y el msgbox es solo para que puedas apreciar los cambios del textbox.

por ultimo creo que para subir un archivo lo tienes que comprimir antes de subirlo

Saludos

Gracias Juan y Pedro por sus respuestas, y el tiempo dedicado.
Haré los cambios sugeridos.
Cierro el tema.
Saludos cordiales