MACRO lenta como volver más rápido
Tengo 2 macros que alentan un poco el proceso espero ayuden a volverla un poco más efectiva
La primera es esta
Sub OCULTAR_TARDE()
'
' OCULTAR_2 Macro
'
Application.ScreenUpdating = False
'OCULTA 1ER TARDE
Range("P1:AA3").EntireColumn.Hidden = True 'OCULTA
'OCULTA 2 TARDE
Range("AN1:AY3").EntireColumn.Hidden = True 'OCULTA
'OCULTA 3ER TARDE
Range("BL1:BW3").EntireColumn.Hidden = True 'OCULTA
'OCULTA 4 TARDE
Range("CJ1:CV3").EntireColumn.Hidden = True 'OCULTA
'OCULTA 5 TARDE
Range("DH1:DS3").EntireColumn.Hidden = True 'OCULTA
'OCULTA 6 TARDE
Range("EF1:EQ3").EntireColumn.Hidden = True 'OCULTA
'OCULTA 7 TARDE
Range("FD1:FO3").EntireColumn.Hidden = True 'OCULTA
'OCULTA PARA MERMAS
Range("FR1").EntireColumn.Hidden = True 'OCULTA
Range("FT1").EntireColumn.Hidden = True 'OCULTA
Range("FV1").EntireColumn.Hidden = True 'OCULTA
Range("FX1").EntireColumn.Hidden = True 'OCULTA
Range("FZ1").EntireColumn.Hidden = True 'OCULTA
Range("GB1").EntireColumn.Hidden = True 'OCULTA
Range("GD1").EntireColumn.Hidden = True 'OCULTA
FORMULAS
End Sub
la cual me oculta las columnas que ahi se indica...
y la segunda que es esta
Sub FORMULAS()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range("Y7:Y920").FormulaLocal = "=P7:P920" 'CON FORMULA
Range("AW7:AW920").FormulaLocal = "=AN7:AN920" 'CON FORMULA
Range("BU7:BU920").FormulaLocal = "=BL7:BL920" 'CON FORMULA
Range("CS7:CS920").FormulaLocal = "=CJ7:CJ920" 'CON FORMULA
Range("DQ7:DQ920").FormulaLocal = "=DH7:DH920" 'CON FORMULA
Range("EO7:EO920").FormulaLocal = "=EF7:EF920" 'CON FORMULA
Range("FM7:FM920").FormulaLocal = "=FD7:FD920" 'CON FORMULAActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
End Sub
La cual solo pone la fórmula de =(IGUAL) donde se indica...
