Nombres Rango en Add-in

[Stack A Brown]

Buenos Dias,

Comentandoles, que tengo un archivo con Macros el cual lo pase como Complemento Add-In  que contiene 2 procedimientos este disponible en cualquier Excel que se abra, esto es, porque para el procedimiento 1 que es la conversion de Listas de Materiales (BOM) sea mas sencilla para el usuario y que no este teniendo que abrir el archivo de macros para ejecutar la conversion, pero porque?

Bueno, el BOM se genera desde un ERP Epicor en un archivo de Excel simple, pero no esta formateado, la macro lo que hace es, crear una nueva hoja en ese libro con la informacion del BOM, y complementa las descripciones de los productos que quedaron truncadas en el reporte, abriendo automaticamente un archivo que contiene el Maestro de Partes, hasta aqui no hay problema, el Complemento funciona perfecto!

El procedimiento 2 consta de 3 funciones, la primera es, cuando capturan un nuevo numero de parte en la nueva hoja, al presionar un atajo, lanza una busqueda de este numero de parte en el Master de Partes y trae la descripcion y unidad de medida, esto para evitar el error al teclear la descripcion y ahorrar tiempo.

La segunda funcion es, si colocan un signo ? en el numero de parte (Ejem. PTCN-?), se lanzara un formulario de busqueda y en el muestra todos los numeros de parte que coincidan con el codigo a buscar, donde seleccionaran el deseado y regresara la informacion a la hoja, tambien aqui funciona perfecto.

El problema viene cuando el numero de parte capturado, No Existe en el Maestro de Partes, aqui se lanza de igual forma un formulario tipo configurador, donde el formulario contiene listas de validacion que se utilizan en combos dentro del formulario, esta informacion esta en la hoja1 que esta dentro del complemento, ya que tanto el archivo del BOM como el Maestro de Partes, no contienen macros y no pueden tener dichas listas ya que, estos archivos se generan desde el ERP y es pura informacion plana, ademas que se puede actualizar en cualquier momento y habria que estar pasando tooodas las listas de nuevo.

El producto se compone de esta forma (PTCN-0000) donde PT es la familia y el combo se llena de una lista de familias, CN es el Grupo, de igual manera, esta se llena de acuerdo a un filtro de los grupos que pertenecen a dicha familia, 0000 es un consecutivo para esa familia-grupo, el cual lo trae de un filtro que se realiza en el Maestro de Partes y nos trae el ultimo numero de parte y le agrega un 1 para que nos de el siguiente, todo bien hasta aqui, el problema viene cuando ya se va a capturar los demas campos del producto que contienen combos como lo son, Clase ID, Unidad Medida, Clase de Parte, etc. estos combos me aparecen vacios y no se llenan.

Utilizo ThisWorkbook.activate para activar la hoja dentro del complemento y en Hoja1 es donde estan todas las listas , pero solo me aparecen los datos de Familia y Grupo, las demas aparecen en blanco.

Private Sub UserForm_Initialize()
Dim xArc As String
ThisWorkbook.Activate
Hoja1.Range("A2:B132").Name = "Familia"
Hoja1.Range("$BS$2:$BT$4").Name = "TProd"
Hoja1.Range("$S$2:$T$5").Name = "uNegocio"
Hoja1.Range("$AA$2:$AB$108").Name = "ProdClas"
Hoja1.Range("$AJ$2:$AO$3").Name = "uomArea"
Hoja1.Range("$AE$2:$AH$6").Name = "uomClass"
Hoja1.Range("$AQ$2:$AV$4").Name = "uomLongitud"
Hoja1.Range("$AX$2:$BC$3").Name = "uomPeso"
Hoja1.Range("$BE$2:$BJ$5").Name = "uomUnidad"
Hoja1.Range("$BL$2:$BQ$5").Name = "uomVolumen"
Hoja1.Range("$W$2:$X$180").Name = "ClaseID"
'ThisWorkbook.Sheets("Hoja1").Range("A2:B132").Name = "Familias"
Me.cboFamilia.RowSource = "Familia"
xPth = "\\epicor\genpart\"
xFil = "PartesEpicor.xlsx"
xArc = xPth & xFil
If IsFileOpen(xArc) Then
Else
    Workbooks.Open xArc
    'Windows("Configurador Partes Epicor.xlsm").Activate
End If
Windows(xFil).Activate
PEp = "Sheet1" 'ActiveSheet.Name
crh = CrearHoja("FiltroPartes")
If crh = True Then
    ' Existe
Else
    ' No Existe
    Nombres ("FiltroPartes")
End If
nmhFP = "FiltroPartes"
Sheets(PEp).Activate
Application.ScreenUpdating = False
Me.ListBox1.RowSource = "" 'Familia
'Grupo
End Sub

En esta parte vuelvo a llenar el de Unidad de Medida, pero no me trae nada

Private Sub cmbUOMClass_Change()
xUOM = Me.cmbUOMClass.Value
yUOM = "uom" & xUOM
If xUOM = "" Then
    Me.cmbVentas.RowSource = ""
    Me.cmbInventario.RowSource = ""
    Me.cmbCompras.RowSource = ""
    Me.cmbVentas.Value = ""
    Me.cmbInventario.Value = ""
    Me.cmbCompras.Value = ""
Else
    Me.cmbVentas.Value = ""
    Me.cmbInventario.Value = ""
    Me.cmbCompras.Value = ""
    ThisWorkbook.Activate
    Hoja1.Range("$BE$2:$BJ$5").Name = "uomUnidad"
    Me.cmbVentas.RowSource = yUOM
    Me.cmbVentas.Value = Me.cmbUOMClass.Column(3)
    Me.cmbInventario.RowSource = yUOM
    Me.cmbInventario.Value = Me.cmbUOMClass.Column(3)
    Me.cmbCompras.RowSource = yUOM
    Me.cmbCompras.Value = Me.cmbUOMClass.Column(3)
End If
End Sub

Desgraciadamente no he encontrado mucha informacion para trabajar con complementos y aqui es donde estoy atorado.

Si alguien conoce algo respecto, y pudiera ayudarme, se los agradeceria.

Saludos,

Jose Segundo

[rolano]

Me.cboFamilia.RowSource = Names("Familia").RefersTo

Me.cmbVentas.RowSource = Names("yUOM").RefersTo

Me.cmbInventario.RowSource = Names("yUOM").RefersTo

Me.cmbCompras.RowSource = Names("yUOM").RefersTo

Hola José,  los combobox llenalos según el código adjunto

[Stack A Brown]

Muy bien, gracias, lo voy a probar y te comento.

Saludos!