Abraham Valencia

[Hola Claro que se puede con Formato Condicional. Prueba en una celda así: - En Formato Condicional elige "Nueva regla...", ahí elige "Utilice una fórmula que determine las celdas para aplicar formato", en "Dar formato a los valores donde esta...

[Hola La verdad tu imagen y explicación no ayudan a ayudarte, quizá si colocas el archivo en algún Drive y envías por aquí el enlace, pues viendo el archivo sea más fácil ayudarte. 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 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