Mario Rodríguez

. :) Hola! Edgar Nada has comentado respecto del valor de la celda EC15. Por ello sólo puedo ayudarte respecto a esta parte: h1.[EC48] = h1.[EC45] - h1.[EC41] En este caso sólo necesitas un "pequeño" retoque: h1.[EC48] = h1.[EC45] - h1.[EC41] -...

:) :) Por ejemplo así: =REDONDEAR(A1 - 0.0001, 3)

. . Efectivamente, Julio: el filtro avanzado con la opción "copiar" a otra parte del libro no solo no te copia los hipervínculos: ¡Tampoco te copia las fórmulas (si existen)! La opción sería: - Autofiltro (o filtro avanzado sin copiar los datos a...

. :) - Pon la siguiente macro en cualquier libro: Sub Macro458() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets With ws.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious) ws.Range(.Offset(1),...

. . Intenta con: [q8].CurrentRegion.Delete xlShiftUp Range("c8", [c8].End(xlDown)).AdvancedFilter 2, "", [q8], True [q8].CurrentRegion.Sort [q8], 1, Header:=1 . .

. Mmmmmm... Antes de utilizar esa macro y cuando estás en etapa de utilizar el Autofiltro, selecciona todo menos DESACTIVO en la columna correspondiente. . .

:) Así -con lo que muestras y describes- es bastante lógico lo que te ocurre, Juan: ¿A ver si adviertes el "por qué" intentando con lo que sigue?... Dim fecha1 As Date fecha1 = Range("E31").Value Application.EnableEvents = False If fecha1 >= Date...

:) Hola! Wil. Intenta con: txt_totalventas = Format([C63], "#,##0.00") y con: txt_totalventas = Format([G63], "#,##0.00") Saludos, Mario R. :) .

:) Intenta con este otro enlace: Si éste te funciona es que aquél: a) O no es el enlace correcto, b) O -simplemente- no te lo permite el servidor. Saludos, Mario R. :) .

:) Hola! Carlos Aunque no lo comentaste imagino que debes estar aplicando el Autofiltro para luego copiar los datos resultantes como "valores". Es mejor para tus necesidades (y más eficiente) que apliques el Filtro avanzado. :) .