Uso de Solver en Macros

hola, Juan Carlos !

Necesito usar Solver en una macro de una planilla que utilizaran muchos usarios
algunos con conocimientos muy limitados de Excel (version 2003)
Hay forma de incluir en una macro que se instale Solver como complemento
y como referencia en Visual Basic (o verifique que ya esta instalado)?

- si todos los equipos utilzan excel 2003 solo necesitas comprobar si el complemento esta en el sistema -?-
(se supone/asume/espera/... que el proyecto vba de tu libro ya tiene establecida la referencia al complemento no ?)
si esto es asi, prueba con alguna rutina +/- como la siguiente:

Sub Agregar_Solver()
Dim Ruta As String, Complemento As String, Aviso As String
Ruta = Application.LibraryPath & "\solver\"
Complemento = "solver.xla"
Aviso = "El complemento " & Complemento & vbCr
If Dir(Ruta & Complemento) <> "" Then
AddIns.Add FileName:=Ruta & Complemento
AddIns("Solver").Installed = True
MsgBox Aviso & "ha sido activado en este sistema."
Else
MsgBox Aviso & "no se encuentra en este sistema !!!"
End If
End Sub

- agregarlo a las referencias del proyecto de macros de tu libro requeriria de otro tipo de consideraciones
que (probablemente) tus usuarios con menores conocimiento no sabrian como responder -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

On 29 mar, 01:18, "Héctor Miguel"
wrote:

hola, Juan Carlos !

> Necesito usar Solver en una macro de una planilla que utilizaran muchos usarios
> algunos con conocimientos muy limitados de Excel (version 2003)
> Hay forma de incluir en una macro que se instale Solver como complemento
> y como referencia en Visual Basic (o verifique que ya esta instalado)?

- si todos los equipos utilzan excel 2003 solo necesitas comprobar si el complemento esta en el sistema -?-
  (se supone/asume/espera/... que el proyecto vba de tu libro ya tiene establecida la referencia al complemento no ?)
  si esto es asi, prueba con alguna rutina +/- como la siguiente:

Sub Agregar_Solver()
  Dim Ruta As String, Complemento As String, Aviso As String
  Ruta = Application.LibraryPath & "\solver\"
  Complemento = "solver.xla"
  Aviso = "El complemento " & Complemento & vbCr
  If Dir(Ruta & Complemento) <> "" Then
    AddIns.Add FileName:=Ruta & Complemento
    AddIns("Solver").Installed = True
    MsgBox Aviso & "ha sido activado en este sistema."
  Else
    MsgBox Aviso & "no se encuentra en este sistema !!!"
  End If
End Sub

- agregarlo a las referencias del proyecto de macros de tu libro requeriria de otro tipo de consideraciones
  que (probablemente) tus usuarios con menores conocimiento no sabrian como responder    -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Hola Héctor, muchas gracias por tu respuesta tán rápida Lo probaré
Saludos
Juan Carlos