Jump to content

Nombres Rango en Add-in


Recommended Posts

Posted

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

Posted
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

Archived

This topic is now archived and is closed to further replies.

  • 108 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      184
    • Comments
      96
    • Reviews
      28

    More information about "Un juego solitario en Excel"
    Latest File
    By pegones1

    4    0

  • Crear macros Excel

  • Posts

    • Hola buenas tardes tengo un archivo en excel que copia varias tablas y las importa a word de manera automatica. Este selecciona las tablas en base a las filas con datos de mi columna C. pueden ser  diferentes rango de tablas. (Pero siempre mi rango es de celdas continuas y con valores continuas) Funciona muy bien. El problema que ahora tengo es que muchos archivos con tablas  tienen las celdas combinadas ya sea horizontalmento o vertical. Aqui es donde empieza mi problema ya que son formatos de origen no puedo modificarlas. Quisiera ajustar mi macro en la parte de seleccion de rango de tablas y que pueda considerar la celdas combinadas y pegarlos en word sin problema. Ya que actualmente no me pone algunas tablas o rangos, o me repite las tablas y no considera las demas. Todo esto a que en algunas no hay valores o las celdas estan combinadas.   Muchas gracias Seleccion automatica de celdas combis.xlsx
    • por si te sirve: la primera matriz (pivotarpor) al inicio los que no tienen profesor asignado (orden ascendente por omision) la segunda (2 matrices y solo unicos) en el orden de aparicion (no asignados al final) la tercera (2 matrices) omite los no asignados (tambien por orden de aparicion) unicos y suma (ayudaExcel).xlsx
    • No se si este tema va aquí, si no es así, pido disculpas. Llevo varios días dando vueltas a un fallo que me sale al exportar una tabla a xml y que no consigo resolver. El fallo que me da es que no las asignaciones no son exportables y al comprobar la asignación me dice datos no normalizados.     Libro1.xlsx
    • Buenas tardes estimado JSDJSD, muchas gracias por responder. En efecto esta parte quedo perfecta. Pero me falto indicar que la macro se ejecute dependiendo de la celda L1 ( Caliza o Mezcla). Entonces si dice Caliza aplica la macro que me enviaste, pero si dice Mezcla que haga lo siguiente: Busque el  ultimo dato de la columna K de la hoja Mezcla Adición del libro Base de datos Cementos producido 2024, con la condición de que la columna B debe ser igual a 4 y el dato lo coloque en la celda N1 de la hoja Cemento del libro Cemento. Te comento que el libro Prehomo y Base de datos Cementos producidos 2024 están en carpetas diferentes ya que estos los maneja otra área, como se enmendaría este caso por el comentarios que me enviaste de la ruta. Saludos y un fuerte abrazo   Cemento-2.xlsm
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy