bigpetroman

amigo @OCTVRM, revisa el anexo Comparador.xlsm

Yo no vi ningun problema, simplemente aplique el formato a toda la fila y listo, posiblemente estaba cambiando el formato solo a la celda, y como todo la fila de seguro lo tenia o otras celdas, pues parecia que no funcionaba

Saludos @alefm21 y @fazz016, realmente es complicado y yo diria que casi imposible, que otra persona pueda "solucionar" esos problemas ya que la causa de estos puede ser muy diversa, les comento algunas cosas que me han pasado en los años que llevo trabajando con Excel para ver si les puede ser útil. * En el caso de los archivos con macros que se autocierran, me sucedio en una ocacion en la empresa donde trabajo, me tenía loco porque no conseguía la forma de hacer funcionar los archivos, investigando consegui una información acerca de antivirus McAfee que tenía relación con eso, realizamos algunos cambios en las opciones (directivas del antivirus) y se logro solucionar ese problema; otra forma que conseguimos de solucionarlo fue desinstalando el SP3 de Windows XP, y dejando el SP2 creo o el 1, y asi también funciono; este problema tambien sucedia incluso con maquinas con windows 7, como les digo, es dificil saber exactamente que está ocacionando que eso suceda. * En otra ocacion tenía problemas con un archivo, unos días funcionaba bien, otros días cuando se ejecutaba una macro se paralizaba y se colgaba el Excel; pase muchos dias así hasta que logre detectar porque unos dias funcionaba bien y otros no; pues resulta que cuando tenia en ejecucion el programa JDownloader (un programa para descargar de internet), era cuando me fallaba ese archivo de Excel, asi que cada vez que lo iba a usar cerraba el JDownloader y listo. * En el caso del mensaje "Hemos encontrado un problema con ....." pues en todos mis años NUNCA he logrado recuperar un archivo de forma efectiva directamente, despues que sucede la primera vez es eterno con ese archivo, yo he logrado "SOLUCIONAR" el problema pasando TODO el archivo, macros, etc. a un nuevo archivo; NO hacer una copia del archivo, NO, es ir pasando todo a un archivo nuevo, copiando y pegando (claro, desde otra maquina donde puedas abrir el archivo), luego que está todo bien, pues el archivo me vuelve a funcionar el la maquina sin problemas. pues como ven, estos problemas no son fáciles de solucionar, es cuestion de ir probando y buscando alternativas en google. suerte

sube el archivo que ya "actualizaste"

Saludos @p.cabot@forcadell.com, mira, cambia esto en tu codigo 'Set a = Range("K1", Range("K1").End(xlDown)) 'Set b = Range("L1", Range("L1").End(xlDown)) 'Set c = Range("O1", Range("O1").End(xlDown)) 'Set d = Range("P1", Range("P1").End(xlDown)) 'Set e = Range("Q1", Range("Q1").End(xlDown)) 'Set f = Range("R1", Range("R1").End(xlDown)) 'Set g = Range("W1", Range("W1").End(xlDown)) 'Union(a, b, c, d, e, f, g).Select 'Selection.Copy por esto otro Set a = Range("CLIENTES[[#All],[id_client]:[CATEGORIA]]") Set b = Range("CLIENTES[[#All],[EMPRESA]:[Apellido]]") Set c = Range("CLIENTES[[#All],[Producto 3]]") Union(a, b, c).Copy suerte

Saludos @solmdq, revisa el anexo, espero que te sirva en la columna A colocas el nombre del archivo que contiene los links en la columna B el nombre del link original (direccion) en la columna C el nombre del nuevo link (direccion) Al presionar el botón EJECUTAR, la macro buscará entre todos los archivos abiertos, y si aparece alguno en la lista, cambiara el link, si el archivo destino NO está, saltara la ventana para que busques el archivo. Cambiar Links.xlsm

Saludos @OCTVRM, le realice unos ligeros cambios a tu archivo, revisa Comparador.xlsm

Saludos @OCTVRM, ya tienes casi listo, lo unico que debes hacer es usar la variable a la que le asignaste el libro que acabas de abrir, mira, cambie un poquito tu macro buscarArchivoA(), despues que seteas Set LibroA = ActiveWorkbook, puedes usar LibroA como la referencia a tu archivo, en vez de usar txtHojasA = ActiveWorkbook.Sheets.Count usas txtHojasA = LibroA.Sheets.Count y asi no tendras problemas 'Buscar primer libro Sub buscarArchivoA() Application.ScreenUpdating = False txtArchivoA.Caption = "" Archivo = Application.GetOpenFilename("Excel (*.xl*), *.xl*") If Archivo <> False Then txtArchivoA.Caption = Archivo txtArchivoA.ControlTipText = Archivo Workbooks.Open Archivo 'seleccionamos este libro como activo para poder obtener los datos de hojas 'DESPUES DE SETEAR LA VARIABLE LIBROA, la puedes usar en vez de activeworkbook, y siempre hara referencia al libro que abriste Set LibroA = ActiveWorkbook txtHojasA = LibroA.Sheets.Count libroAbiertoA = LibroA.Name hojasA.Clear 'Asignamos nombre de hojas al combobox For Each hoja In LibroA.Sheets: hojasA.AddItem hoja.Name: Next hojasA.ListIndex = 0 End If ThisWorkbook.Activate Sheets(1).Select End Sub suerte

Saludos @ArmandoR, te dejo estas dos macros, espero te sean de utilidad Sub mostrar() MsgBox Resultado("Crevillente", "FRUTAS") End Sub Function Resultado(ByVal sTienda As String, ByVal sGrupoD As String) As Double Dim vValor As Variant Resultado = 0 vValor = Application.Evaluate( _ "=SUMPRODUCT(([BD.xlsb]BD!A2:A2321=" & Chr(34) & sTienda & Chr(34) & ")*([BD.xlsb]BD!D2:D2321=" & Chr(34) & sGrupoD & Chr(34) & "),[BD.xlsb]BD!F2:F2321)") If IsError(vValor) = False Then Resultado = CDbl(vValor) End If End Function suerte

Saludos @francisco ahv, usa ActiveWorkbook.Close SaveChages:=False en vez de ActiveWindow.Close savechanges:=False y nos cuentas, suerte

@Perssefones saludos, muchas veces las personas dejan muchas filas vacias en tablas, dejan miles de filas vacias en una tabla y solo usan unas pocas o algunos cientos de filas, eso repercute bastante en el tamaño del archivo. otra cosa, es que muchas veces se copian y pegan filas que tienen algun objeto "invisible" u oculto, y de tanto copiar y pegar se crean cientos o miles de esos objetos y hacen que los archivos tengan mucho peso innecesario, una forma de ver esto es en la ficha Inicio, al final buscar y seleccionar alli puedes ver todos esos objetos, si tienes muchos (que no deberían estar) eso puede estar afectando suerte

Amigo @Mario Villoria usa esta solución. Sub bloquearHojas() Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets ws.Protect Password:="test", UserInterfaceOnly:=True Next ws End Sub llamas esa macro al abrir tu archivo Private Sub Workbook_Open() Call bloquearHojas frmMenu.Show End Sub con esta forma de bloquear las hojas NO ES NECESARIO desbloquearlas para trabajar con ellas, todos los cambios que realices mediante las macros se van a guardar sin problemas, intentalo

@Mario Villoria, en tu formulario, al cargar cada vez, desbloqueas todas las hojas, eso es lo que hace lento el proceso, prueba eliminado o comentando esta parte For Each sht In ActiveWorkbook.Sheets sht.Unprotect Password:="test" Next sht y carga rápido

saludos @JSDJSD, no se si sea esto, no entendi lo de directo, sin hoja de apoyo Prueb leer infor formularios.xlsm

hola @manzano, revisa el adjunto suerte fichero.xlsm