Macro para userform proceso de inventario
----
Buena tarde
Solicito su ayuda
Tengo un archivo para inventario
Y con el un userform
El inventario consta de 10 hojas
Conforme vaya extrayendo la informacion de cada hoja
En el userform vaya apareciendo el nombre y luego el check
Yo lo hice asi pero no me funciona
El siguiente codigo es la parte que me interesa
Y esta en el commandbutton1
Call encabezados With UserForm2 .lbl1.Visible = True End With Call medicamentos With UserForm2 .lblc1.Visible = True .lbl2.Visible = True End With Call planificacion With UserForm2 .lblc2.Visible = True .lbl3.Visible = True End With Call quirurgico With UserForm2 .lblc3.Visible = True .lbl4.Visible = True End With Call tb With UserForm2 .lblc4.Visible = True .lbl5.Visible = True End With Call vectores With UserForm2 .lblc5.Visible = True .lbl6.Visible = True End With Call biologico With UserForm2 .lblc6.Visible = True .lbl7.Visible = True End With Call laboratorio With UserForm2 .lblc7.Visible = True .Label12.Visible = True End With Call saneamiento With UserForm2 .Label13.Visible = True .Label14.Visible = True End With Call oficina With UserForm2 .Label15.Visible = True .Label16.Visible = True End With Call limpieza With UserForm2 .Label17.Visible = True End With
conforme se vaya ejecutando cada una de las llamadas (Call) que vaya apareciendo los labels como aparece en el codigo
Espoero se pueda
Adjunto el link del archivo
https://docs.google.com/spreadsheets/d/10J9TJfuFhtgjru25F1fQ-4I4aaHRJT_K/edit?usp=share_link&ouid=110685551786251976099&rtpof=true&sd=true
Gracias
----------------
-------------
1 respuesta
el archivo tiene extension .xlsm
cuando se descarga aparece como Inventario.xlsm.xlsx
yo lo que hago es que borro el .xlsx y lo dejo como
Inventario.xlsm
y me funciona
Ya por fin pude abrir el archivo.
Reemplaza tu código por esto:
With UserForm2 Call encabezados .lbl1.Visible = True DoEvents Call medicamentos .lblc1.Visible = True .lbl2.Visible = True DoEvents Call planificacion .lblc2.Visible = True .lbl3.Visible = True DoEvents Call quirurgico .lblc3.Visible = True .lbl4.Visible = True DoEvents Call tb .lblc4.Visible = True .lbl5.Visible = True DoEvents Call vectores .lblc5.Visible = True .lbl6.Visible = True DoEvents Call biologico .lblc6.Visible = True .lbl7.Visible = True DoEvents Call laboratorio .lblc7.Visible = True .Label12.Visible = True DoEvents Call saneamiento .Label13.Visible = True .Label14.Visible = True DoEvents Call oficina .Label15.Visible = True .Label16.Visible = True DoEvents Call limpieza .Label17.Visible = True DoEvents End With
Pero te recomiendo estudiar con calma mis vídeos:
- Consejos para empezar a programar.
- Cómo declarar variables y objetos
Curso de macros. Consejos para empezar a programar. - YouTube
Curso de macros. Declarar variables en vba excel. - YouTube
-------------------------
Utiliza las mejores prácticas para programar, de esa manera tus códigos serán más rápidos y eficientes.
No es necesario que reconstruyas la hoja "InvenTri" cada vez que inicias el formulario.
Puedes tener una hoja "formato" con todo el formato que necesitas, bordes, tamaño de filas, de columnas, celdas combinadas, font, tamaño de letra, etc, etc. Y cuando inicies el formulario, simplementes copias la hoja "formato" a la hoja "InvenTri"
Entonces en el procedimiento "encabezados" solamente borras la hoja "InvenTri", copias la hoja "formato" y la renombras como "InvenTri".
Con la práctica y la experiencia podrás mejorar tus códigos.
Sal u dos Dante Amor
