Screenupdating excel false

Posted by / 22-Dec-2019 06:20

Activate nomhoja2 = "MODELO_" & cantidad & "-HOJA" Sheets(nomhoja2).

Hence I created this generic wrapper to lock the window updates.The routine also illustrates the use of the Screen Updating property (code listed above).' --------------------------------------------------------------------------------Sub Open PPSFor Edit() On Error Go To Err Handle Dim p Show As Presentation ' Lock the window to prevent refreshing ' See above article example for the code Screen Updating = False 'Open the show, however use additional flag - With Window set to FALSE Set p Show = Presentations. Activate If cantidad = 1 Then nombrebase3 = nombrebase2 & "! Run nombrebase3 REORDENAR_HOJAS Sheets(nombrehojanueva). Screen Updating = True End Sub También acepto sugerencias sobre como optimizar la macro. Sugerencia 1: El Screen Updating ponlo después de haber recibido la respuesta del Msg Box. Activate Msg Box "Ya puede comenzar a cargar los datos." Else If cantidad = 2 Then nombrebase3 = nombrebase2 & "! Run nombrebase3 REORDENAR_HOJAS Sheets(nombrehojanueva). Saveaño = 0mes = 0fechaini = 0fechafin = 0cantidad = 0rectificacion = 0empresa = 0provincia = 0direccion = 0codigo = 0base = 0ruta = 0nombrebase = 0Exit Sub1000: Exit Sub Application.

screenupdating excel false-45screenupdating excel false-34screenupdating excel false-85

Activate Msg Box "Ya puede comenzar a cargar los datos." Else nombrebase4 = "'" & nombrebase2 & "'! Run nombrebase4 REORDENAR_HOJAS Sheets(nombrehojanueva). Protect Drawing Objects:=True, Contents:=True, Scenarios:=True Active Workbook.

One thought on “screenupdating excel false”