Como reducir tiempo ejecución de macro

Hola:
Tengo una macro que inserta una fórmula en una serie de celdas; la cantidad de celdas en la que se inserta esta fórmula viene a ser de 400, todas en la misma hoja el código que he diseñado es el siguiente:
Dim i As Variant
For i = 5 To 65
 Sheets("Planificación").Cells(i, "N").FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE)),"""", IF(R[-1]C<>"""", VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE),""""))"
 Sheets("Planificación").Cells(i, "AG").FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE)),"""", IF(R[-1]C<>"""", VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE),""""))"
 Sheets("Planificación").Cells(i, "AZ").FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE)),"""", IF(R[-1]C<>"""", VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE),""""))"
 Sheets("Planificación").Cells(i, "BS").FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE)),"""", IF(R[-1]C<>"""", VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE),""""))"
 Sheets("Planificación").Cells(i, "CL").FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE)),"""", IF(R[-1]C<>"""", VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE),""""))"
 Sheets("Planificación").Cells(i, "DE").FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE)),"""", IF(R[-1]C<>"""", VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE),""""))"
 Sheets("Planificación").Cells(i, "DX").FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE)),"""", IF(R[-1]C<>"""", VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE),""""))"
 Sheets("Planificación").Cells(i, "EQ").FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE)),"""", IF(R[-1]C<>"""", VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE),""""))"
 Sheets("Planificación").Cells(i, "FJ").FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE)),"""", IF(R[-1]C<>"""", VLOOKUP(CONCATENATE(R[-1]C, R[-1]C[-2]), Turnos, 2, FALSE),""""))"
 Sheets("Planificación").Cells(i, "P").FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(CONCATENATE(R[-1]C[-2], R[-1]C[-4]), Turnos, 3, FALSE)),"""", IF(R[-1]C[-2]<>"""", VLOOKUP(CONCATENATE(R[-1]C[-2], R[-1]C[-4]), Turnos, 3, FALSE),""""))"
i = i + 1
Next
End If
End Sub
¿Se puede acortar el tiempo de ejecución de esta macro y simplificar el código? Ya que el tiempo que tarda en ejecutar la macro sobrepasa los dos minutos.
Lo que quiero es insertar la fóomula en las celdas 5,7,9,11,13... Hasta la 65 de la columna N lo mismo en la columna AG, columna AZ... Y así hasta un total de 12 columnas.
Gracias
Respuesta
1
Te propongo 2 cambios:
For i = 5 to 65 Step 2  y le quitás la línea al final de las fórmulas que dice: i=i+1
Además incluir una instrucción al inicio para pasar a modo de cálculo manual, y recién al finalizar el bucle lo pasás a automático, para que no te recalcule cada vez que grabás una fórmula.
Entonces antes del For:
Application.Calculation = xlManual
y antes del End Sub:
Application.Calculation = xlAutomatic
Nota: verificá el End If que aparece antes del End Sub y no se vé de donde viene
Muchísimas gracias.
Como siempre tu respuesta me ha sido de gran utilidad, ahora la macro se ejecuta con muchísima rapidez (ni un segundo).
La instrucción end if corresponde a una línea en la que se establece una condición y que, en el copia pega que te envié, no aparece ésta
Gracias.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Comparar 2 hojas y sacar una tercera

DAN tengo el siguiente caso: En un mismo archivo 3 hojas: Inventario, toma-física, sobrantes-faltante. Debo comparar la columna A de inventario con la columna A de toma-física y colocar lo que este en Inventario que no este en toma-física en la...
2 respuestas

Celda Activa, presionar enter para disparar Macro

Quiero hacer una macro que al dar ENTER en una celda dispare una macro, en la hoja "AL 1-MAR-08" en la columna A escribo un código, lo que hace la macro es buscar ese código en otra hoja "CATALOGO PROD", al encontrarlo, brinca 1 columna y el valor de...
1 respuesta

¿Cómo programar vlookup en una macro?

Necesito pls que me ayuden a programar una macro para que en una columna de la hoja1 ponga el resultado de un vlookup, la lista llega a las cinco mil filas. Entonces la base de datos donde necesito que el buscarv haga la búsqueda esta en la hoja2,...
1 respuesta

Ordenar columnas en base a otra columna

Tengo 4 columnas, una columna con código y la otra con un valor. Me gustaría saber alguna forma para ordenar los códigos de la 3era columna en la misma posición que los de la primera. Ya que tengo que hacer una resta para aquellos que difieran y...
1 respuesta

Concatenar varias celdas con macro

Quisiera concatenar varias celdas en una, el punto es que la columna que tengo va desde F45 y es variable hasta donde termina como puede terminar en F46, puede terminar en F70. Estaba haciendo esto, pero aquí solo concatena 3 celdas m = 45 Range("F"...
1 respuesta