Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Código Mais Rápido
 
Notifications
Clear all

Código Mais Rápido

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
774 Visualizações
RSS
 vpeglow
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

Bom dia a todos

estou usando o código abaixo para executar uma tarefa de copiar e colar, entretanto quando ele é executado, demora alguns segundos para finalizar... tem algum modo de deixá-lo mais rápido?

Obrigado

Sub NOvo_2()

    Selection.Copy
    Range("BK8:BX8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KH8:KU8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BK8:BX8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KH10:KZ10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BK10:CC10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KH12:KZ12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BK12:CC12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KH14:MW14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BK14:DZ14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KH16:KZ16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BK16:CC16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KH20:KZ20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BK20:CC20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KH24:KZ24").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BK24:CC24").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KH26:KZ26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BK26:CC26").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("ME8:NG8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("DH8:EJ8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("ME10:MW10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("DH10:DZ10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("ME12:MW12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("DH12:DZ12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("LT16:ML16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("CW16:DO16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("LT24:NB24").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("CW24:EE24").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("LT26:ML26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("CW26:DO26").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=6
    Range("IU32:JM32").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("X32:AP32").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("IU34:JM34").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("X34:AP34").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("IU36:JM36").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("X36:AP36").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("IU38:JM38").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("X38:AP38").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("IU40:JM40").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("X40:AP40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("IU42:JM42").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("X42:AP42").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("MR32:NJ32").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("DU32:EM32").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("OO32:PG32").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("FR32:GJ32").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("MR34:PG34").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("DU34:GJ34").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("MR36:NJ36").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("DU36:EM36").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 31
    Range("KO48:LG48").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR48:CJ48").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO50:LG50").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR50:CJ50").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO52:LG52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR52:CJ52").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO54:LG54").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR54:CJ54").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO56:LG56").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR56:CJ56").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO58:LG58").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR58:CJ58").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO60:LG60").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR60:CJ60").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO62:LG62").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR62:CJ62").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO64:LG64").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR64:CJ64").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO66:LG66").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR66:CJ66").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO68:LG68").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR68:CJ68").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO70:LG70").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR70:CJ70").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO72:LG72").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR72:CJ72").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO74:LG74").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR74:CJ74").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO76:LG76").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR76:CJ76").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO78:LG78").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR78:CJ78").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KO80:LG80").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BR80:CJ80").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 63
    Range("JK90:KC90").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AN90:BF90").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("JK92:KC92").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AN92:BF92").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("JK94:KC94").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AN94:BF94").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("JK96:KC96").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AN96:BF96").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("JK98:KC98").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AN98:BF98").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KN90:LF90").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BQ90:CI90").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("LQ90:MI90").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("CT90:DL90").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("MT90:NL90").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("DW90:EO90").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("KN108:LF108").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BQ108:CI108").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 96
    Range("JN115:NU120").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AQ115:EX120").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("JN124:NU129").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AQ124:EX129").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("JN133:NU138").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AQ133:EX138").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("JN142:NU147").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AQ142:EX147").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("BK8:BX8").Select
End Sub
 
Postado : 18/05/2015 7:43 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Evite usar o selection exageradamente.

Sub AleVBA_15846()
'Para uma guia diferente
    Range("A1", Range("A" & Rows.Count).End(xlUp)).Copy Plan2.Range("A65536").End(xlUp)(2)
'Para a mesma guia com range diferente
    Range("A1:G10").Copy Range("F2")
    
End Sub

Leia:
http://www.globaliconnect.com/excel/ind ... Itemid=475

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/05/2015 12:13 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico