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 Respuesta

Respuesta
1

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

Macro para pegar información de un libro a otro

Esta pregunta la hice hace poco pero buscando y buscando vi que respondes bien a este tipo de preguntas (espero que me puedas ayudar). Yo conseguí el siguiente código, pero no hace lo que necesito: Sub Guardar() Application.ScreenUpdating = False...
1 respuesta

Capturar información de varias hojas en una nueva

Estoy tratando de automatizar la captura de información a partir de varias hojas de un mismo libro de excel, una vez grabada la macro esta solo me efectúa el proceso hasta la hoja 4 del libro y en total son 287 hojas. Que sentencia debo incluir al...
1 respuesta

Macro para copiar datos de una hoja a otra

Bueno este es el macro que hice, me copia los datos de la "hoja factura" pero me los manda mal a la "hoja acumulador" me los pone mezclados: Sub asi() Application.ScreenUpdating = False Worksheets("FACTURA").Range("F3").Copy...
1 respuesta

Error 9 subíndice fuera del intervalo

En el siguiente código se realiza correctamente excepto para la valorización del if donde C5= 2012 .(exactamente donde subraye y puse negrita) Y me indica que " Se produce error 9 en tiempo de ejecución" que el subíndice esta fuera del intervalo....
1 respuesta

Ayuda con macro, copiar y pegar datos.

Agradecería que me echaran una mano con está macro que intento desarrollar; En la hoja 1, tengo 4 columnas que copio y pego (pegado especial sólo valores) a 4 columnas a la hoja 2 (columnas C, D, E, F). Teniendo en cuenta que me pega en la primera...
1 respuesta