Acelerar macro que da formato a un rango

Buenas tardes
Tengo el siguiente macro, que da formato a un rango variable el problema es cuando este se vuelve muy grande. Como hacer para que se ejecute más rapido. De antemano gracias.
Sub mensajes()
Set hoja = Worksheets("avance")
                hoja.Unprotect
                hoja.Range("d7:ds306").Validation.Delete
                hoja.Range("d7:ds306").FormatConditions.Delete
                total_col = hoja.Range("dv1")
                total_fil = hoja.Range("du1")
                Application.Calculation = xlManual
                For fil_1 = 7 To 7 + total_fil - 1
                    manzana = hoja.Cells(fil_1, 1).Value
                    etapa = hoja.Cells(fil_1, 2).Value
                    lote = hoja.Cells(fil_1, 3).Value
                    For col_1 = 4 To 4 + total_col - 1
                        concepto = hoja.Cells(5, col_1).Value
                        With hoja.Cells(fil_1, col_1)
                        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""a"""
                        .FormatConditions(1).Font.ColorIndex = 44
                        .FormatConditions(1).Interior.ColorIndex = 44
                        End With
                        With hoja.Cells(fil_1, col_1).Validation
                            .Delete
                            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator _
                            :=xlBetween, Formula1:="x"
                            .IgnoreBlank = True
                            .InCellDropdown = False
                            .InputTitle = ""
                            .ErrorTitle = "Error"
                            .InputMessage = concepto & Chr(10) & "mna - " & manzana & Chr(10) & "etapa - " & etapa & Chr(10) & "lote - " & lote
                            .ErrorMessage = "Solo marcar con ""x"" minuscula"
                            .ShowInput = True
                            .ShowError = True
                        End With
                    Next col_1
                Next fil_1
                Application.Calculation = xlAutomatic
                hoja.Protect
End Sub

1 Respuesta

Respuesta
1
Al principio de tu macro pon esto:
Application.ScreenUpdating = False
y al final lo pones en True

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formato condicional con función de excel

Expertos, como puedo resaltar una celdas con formato condicional en base a una función lógica en Excel Mis criterios es que de lunes a vieres la hora laboradas son 8.5 y sábado 5.5 A partir de la columna D5 se colocan las fechas y en la columna G a...
4 respuestas

Rellenar celdas vacías en rangos múltiples

En una hoja de Excel tengo una base de datos extensa, en un rango de A5:D1500, en el orden de las columnas contiene los siguientes datos: "A" Departamento, "B" Nombre, "C" Cargo, "D" Monto a pagar. La cantidad de empleados en cada departamento es...
5 respuestas

Como hacer Formato personalizado de celda

Deseo saber si me pueden ayudar con para obtener este formato personalizado de celda. Escribir esto en una celda 624662678 / 944642829 Ver esto 624 66 26 78 / 944 64 28 29 A la espera de su ayuda, me despido.
3 respuestas

Mostrar en listbox solo las filas con dato, a partir de la columna 1 de la tabla.

Tengo una tabla con datos, la primera columna (A) es un ID, cuando se completa información en mi base de datos, el número del ID lo elimino, quedando vacío. Entonces cuando vuelvo a cargar el listbox, no quiero que las filas con ID vacío se muestren...
4 respuestas

Cómo recoger datos concretos de acciones específicas de una web en excel

Tengo un Excel con una columna con los nombres de unas acciones que cotizan en diferentes mercados mundiales. Quisiera saber si, desde una web especializada en bolsa, se puede recoger un dato concreto de cada una de esas acciones que tengo, y...
3 respuestas

Necesito una fórmula que me busque el nombre de una persona y que me sume los ingresos de esa persona en diferentes hojas

En un libro de excel en la hoja 1 tengo mi base de datos con los diferentes nombres de los colaboradores de la empresa, en las siguiente hojas tengo los ingresos que devengaron mensualmente, enero-Agosto, lo que necesito es que me busque el nombre de...
3 respuestas

¿Se puede enviar información de mi Excel a google sheets y viceversa?

Todo expertos: He creado y compartido una hoja de google sheets para el trabajo colaborativo, por medio de la opción obtener datos a través de la web importo los datos a un excel normal para trabajarlo, ya que las hojas de google sheets tienen muchas...
1 respuesta

¿Cómo cancelar opciones de la barra de menús en google sheets?

He creado y compartido una hoja de google sheets para trabajo colaborativo entre varios usuarios, todos están como "editores" pero sólo pueden editar rangos específicos que les he asignado a cada uno, también he desactivado en configuración las...
2 respuestas

Cambio de color en varias celdas excel

Me preguntaba si habrá algún código que cambie el color de varias celdas en un libro Tengo demasiadas celdas en color amarillo y la idea es reemplazar esas celdas con color rojo
2 respuestas

Condicion If, ElseIF con expresiones de ,+==

Tengo una cosulta, sucede que quiero establer unos parametros en subformulario, tengo una tabla de comisiones_tabulador cuyos campos son: Escala1, Escala2, Escala3, cada escala cuenta cuenta tambien con un tipo de producto, y según el monto facturado...
2 respuestas