Problemas con Macros en Excel

Tengo el siguiente código, que copia datos de un rango a otro de una hoja determinada, cuando el Macro se corre se logra aprecias varios parpadeo en la pantalla de excel debido al Macro.

Como hago para que esto no ocurra

Adjunto el código

Sheets("Gas").Range("f6:h16,f5,p6:p16,h26:h36,j26:l36,j25,n26:p36,n25,q41:q42,i41,i45,e41:e44,q21,m21"). ClearContents
Sheets("Inyección"). Range("i22"). ClearContents
Sheets("TK"). Range("c13:f13"). Copy
Sheets("TK"). Range("c10:f10"). PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("TK"). Range("c17:f17"). Copy
Sheets("TK"). Range("c14:f14"). PasteSpecial xlPasteValues
Application.CutCopyMode = False

Sheets("TK"). Range("c25:f25"). Copy
Sheets("TK"). Range("c22:f22"). PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("TK"). Range("M13:O13"). Copy
Sheets("TK"). Range("M10:O10"). PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("TK"). Range("M17:O17"). Copy
Sheets("TK"). Range("M14:O14"). PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("TK"). Range("M25:O25"). Copy
Sheets("TK"). Range("M22:O22"). PasteSpecial xlPasteValues
Application.CutCopyMode = False

1

1 Respuesta

27.375 pts.

Insertando las dos lineas en negro... ya no parpadea quedando así tu codigo


Application.ScreenUpdating = False

Sheets("Gas").Range("f6:h16,f5,p6:p16,h26:h36,j26:l36,j25,n26:p36,n25,q41:q42,i41,i45,e41:e44,q21,m21"). ClearContents
Sheets("Inyección"). Range("i22"). ClearContents
Sheets("TK"). Range("c13:f13"). Copy
Sheets("TK"). Range("c10:f10"). PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("TK"). Range("c17:f17"). Copy
Sheets("TK"). Range("c14:f14"). PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("TK"). Range("c25:f25"). Copy
Sheets("TK"). Range("c22:f22"). PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("TK"). Range("M13:O13"). Copy
Sheets("TK"). Range("M10:O10"). PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("TK"). Range("M17:O17"). Copy
Sheets("TK"). Range("M14:O14"). PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("TK"). Range("M25:O25"). Copy
Sheets("TK"). Range("M22:O22"). PasteSpecial xlPasteValues
Application.CutCopyMode = False

Application.ScreenUpdating = true


Añade tu respuesta

Haz clic para o

Más respuestas relacionadas