Optimizar copy
Publicado por Javier (28 intervenciones) el 21/04/2018 19:56:03
Buenas tardes a todos :
Quisiera optimizar este pequeño código pero no se como alguien que me ayude por favor, parpadea mucho la pantalla aun y le pongo el Aplication.screenupdating = false
alguien me sugirió que optimizara esto, son varias las celdas que copio así pero no supe como
Gracias por la orientación, Saludos
JAG
Quisiera optimizar este pequeño código pero no se como alguien que me ayude por favor, parpadea mucho la pantalla aun y le pongo el Aplication.screenupdating = false
alguien me sugirió que optimizara esto, son varias las celdas que copio así pero no supe como
1
2
3
4
5
6
7
Windows("Seguros.xlsm").Activate
Range("C" & desdedonde).Select
Application.CutCopyMode = False
Selection.CopyWindows("Folio_" & TEXTOFOLIO.Value & ".xlsm").Activate
Range("D" & hastadonde).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Gracias por la orientación, Saludos
JAG
Valora esta pregunta
0