Foro Excel

HOLA BUEN DIA A TODOS
DEBO DECIR QUE TODO LO QUE HE APRENDIDO HASTA EL MOMENTO HACERCA DE MACROS HA SIDO GRACIAS A SUS APORTES, POR ESO TRATO SIEMPRE DE APLICAR CADA UNO DE SUS APORTES, PERO IGUALMENTE LO QUE SE ES MUY POCO COMPARADO CON TODO LO QUE SE PUEDE HACER.
ESTOY CREANDO UN ARCHIVO PARA EL INGRESO DE ALGUNOS DATOS, Y AUN NO ME FUNCIONA COMO NECESITO, QUIERO UTILIZAR TODAS LAS OPCIONES POSIBLES QUE BRINDA VBA POR EJEMPLO PARA CALCULAR LA SEMANA EN EXCEL LO HAGO CON LA FUNCION NUM.DE.SEMANA, QUE POR CIERTO NO ESTA INSTALADA Y HAY QUE INSTALARLA DESDE HERRAMIENTAS/COMPLEMENTOS.
LO QUE TRATO DE DICIR ES QUE QUIERO HACER LO MISMO PERO DESDE VBA, H E INTENTA PERO AUN NO ME SALE, ALGUNAS FUNCIONES YA LAS HE PODIDO RESOLVER OTRAS NO, LO QUE QUIERO ES OPTIMIZAR EL ARCHIVO.
ESO POR UN LADO, POR OTRA PARTE ESTE ARCHIVO FUNCIONA BIEN EN MI EQUIPO YA QUE AHI FUE DONDE LO HICE, "TENGO EXCEL 97" PERO CUANDO LO LLEVO A OTRO EQUIPO NO FUNCIONA BIEN, COMIENZAN A SALIR ERRORES, UNO ES POR LOS COMPLEMENTOS QEU NO ESTAN INSTALADOS, Y EL OTRO ES QUE ALGUNAS FUNCIONES DE MACROS NO LAS RECIBE, O ALGUNAS HERRAMIENTAS COMO EL CALENDARIO, ME IMAGINO QUE ES POR LA VERSION.
LA PREGUNTA ES COMO PUEDO CREAR UN ARCHIVO QUE LO PUEDA UTULIZAR EN CUAL QUIER PARTE Y NO GENERE ESTOS PROBLEMAS, O QUE ME INSTALE LOS COMPLEMENTOS QUE LE FALTAN PARA QEU FUNCIONE BIEN.
SI TIENE SOLUCION MI ULTIMA PREGUNTA GRACIAS SI NO TAMBIEN GRACIAS POR SU ATENCION

Buenos dí­as Cesar, la siguiente macro tal vez pueda ayudarte, lo que hace es verificar si una lista de componentes se encuentran instalados, cuando encuentra uno de los componentes de la lista que no está instalado le pregunta al usuario si desea instalarlo, y si el usuario acepta lo instala.

Código: Seleccionar todo

Sub GL_S_CompInst()
    Dim comp As addin
    For i = 1 To Application.AddIns.Count
        Set comp = AddIns(i)
        Select Case comp.Name
            Case "LOOKUP.XLA", "SUMIF.XLA", "analys32.xll", "atpvbaen.XLA", "SOLVER.XLA"
            If comp.Installed = False Then
                inst = MsgBox("El complemento " & comp.Name & " es requerido pero no se encuentra instalado." & Chr(13) & "¿Desea instalarlo ahora?", vbYesNo)
                If inst = 6 Then
                    comp.Installed = True
                End If
            End If
        End Select
    Next
End Sub