anton44
Verenigingslid
- Lid geworden
- 20 mei 2005
- Berichten
- 1.597
Als vervolg op een eerder geplaatst topic http://www.helpmij.nl/forum/showthread.php/937137-Macro-s-in-Excel-2010-vs-Excel-2016 vermoedt ik dat de volgende code geoptimaliseerd kan worden om snelheidswinst te behalen.
("Select" zou vermeden moeten worden)
("Select" zou vermeden moeten worden)
Code:
Sub Macro_R()
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveWorkbook.Worksheets("ToekBet").Select
Range("T10:U40").Select
Selection.ClearContents
Range("R" & Range("R6").Value & ":R" & Range("R7").Value).Select
Selection.Copy
Range("T" & Range("R6").Value & ":T" & Range("R7").Value).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If Range("R8") < 32 Then
Else
GoTo Alleen_R
End If
Range("S" & Range("S6").Value & ":S" & Range("S7").Value).Select
Selection.Copy
Range("U" & Range("S6").Value & ":U" & Range("S7").Value).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Alleen_R:
Range("R" & Range("R7").Value & ":R" & Range("R7").Value).Select
Selection.Copy
Range("U" & Range("R7").Value & ":U" & Range("R7").Value).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Goto Range("B4")
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub