Error: Procedure too large, como podria volverlo mas corto
Solicito su ayuda debido a que tengo un código demasiado largo pero no tengo las habilidades ni los conocimientos para volverlo más corto, ¿me pordrian ayudar por favor?
De antemano muchas gracias.
https://www.dropbox.com/s/ousv9rtv8lk6ikj/Procedure%20too%20Large.txt?dl=0
1 Respuesta
H o l a:
Todo el código se puede reducir a esto:
If ComboBox2 = "January" And ComboBox1.Value = "Juan Pablo Mesa" Then
TextBox11.Value = Worksheets("Presupuesto").Range("E8").Value
TextBox12.Value = Worksheets("Presupuesto").Range("E9").Value
TextBox13.Value = Worksheets("Presupuesto").Range("E10").Value
TextBox14.Value = Worksheets("Presupuesto").Range("E11").Value
TextBox15.Value = Worksheets("Presupuesto").Range("F8").Value
TextBox16.Value = Worksheets("Presupuesto").Range("F9").Value
TextBox17.Value = Worksheets("Presupuesto").Range("F10").Value
TextBox18.Value = Worksheets("Presupuesto").Range("F11").Value
TextBox23.Value = Worksheets("Presupuesto").Range("I8").Value
End If
Solamente se tiene que encontrar el mes y nombre, para encontrar la fila y la columna.
Pero para realizar la búsqueda de la fila y la columna, tengo que ver cómo están tus datos, podrías enviarme tu archivo con la hoja "Presupuesto", es necesario que en la hoja "Presupuesto" tengas identificado el mes y el nombre.
Por ejemplo, para el caso de Juan Pablo Mesa, en alguna parte de la fila 8 tienes que poner "Juan Pablo Mesa"; y en la columna "E" poner el mes "January" y con esos datos podemos reducir el código.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Jhonatan Gonzalez” y el título de esta pregunta.
H o la :
Si ya no tienes más dudas, podrías valorar la respuesta. G r a c i a s
¡Gracias!
Disculpa estaba de viaje y no había podido ingresar, lo que hice fue acomodar el código en módulos separados, llamado posteriormente en el procedimiento y todo funciono, muchas gracias.
