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

Respuesta
1

No puedo descargar el archivo con excel habilitado para macros.

Puedes guardar el archivo como excel habilitado para macros y compartir el archivo en google drive, comparte el archivo para cualquiera que tenga el enlace, copia el enlace y lo pegas aquí.

https://docs.google.com/spreadsheets/d/1Icv3LekDVqJdVr2FmBebhzwtm-1vsgDv/edit?usp=sharing&ouid=110685551786251976099&rtpof=true&sd=true 

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas