Abraham Valencia

Como te dije en una pregunta anterior igual, es imposible darte una ayuda concreta si no das detalles: ¿Son colores que provienen de formato condicional? ¿Son colores de formato "normal"? ¿En qué momento se "pierden"? ¿Será qué copias y pegas otras...

[Hola Descargué tu archivo para ver tu dilema, pero hay varios Userform, varias hojas, varios botones, etc. Sería bueno que especifiques en cuál y/o en dónde es el problema, lo otro es usar buscar objeto por objeto y usar un tiempo que los que...

[Hola No queda muy claro tu dilema pero una opción es usar la herramienta de "Libro compartido", la cuestión es que las macros en dichos libros tienen los mismos límites propios de la herramientas. Mira en este enlace las "características no...

[Hola La verdad sí puede hacerse con Excel, pero no con sus herramientas y/o funciones propias, necesariamente tendrías que usar programación (Macros - VBA). Ah, eso sí, lo que necesitas conlleva un desarrollo que involucra un tiempo que es...

[Hola No se entiende muy bien, por favor acláralo para poder estar seguros de tu dilema y poder ayudarte. Abraham Valencia PD: Son las 5:15 am, no sé que hago despierto jejeje

[Hola Estimado, como siempre te digo: Si vas a usar macros, lee sobre VBA. Aunque suene duro decirlo: Usar la grabadora es no saber nada de macros. Sobre tu dilema, esto es 15 veces más rápido: Application.ScreenUpdating = False TimeStart = Timer...

[Hola Pues si siempre es J, es 10, por tanto: Dim x As Integer x = Cells(4, Columns.Count).End(xlToLeft).Column Range(Columns(10), Columns(x)).Delete Shift:=xlToLeft Comentas Abraham Valencia

[Hola Las fórmulas se insertan usando otras propiedades, no Value. Mira por aquí: https://abrahamexcel.blogspot.com/2018/11/insertar-formulas-con-macros.html Al usar tablas, no te preocupes, es lo mismo pero sin usar las referencias RC que menciono...

[Hola No es tan complicado en realidad: Sub EliminarFilas() Dim UltimaFila As Long, x As Long Application.ScreenUpdating = False Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row For x = UltimaFila To 1 Step -1 If Range("A" & x).EntireRow.Hidden =...

[Hola Una alternativa: http://blogs.itpro.es/exceleinfo/2015/05/18/macro-para-copiar-celdas-de-selecciones-mltiples-en-otro-rango-en-excel/ Abraham Valencia