Het Visuele uit mijn macro halen

[NogGeenGuru]

Beste Excel Guru's,

Ik heb een macro opgenomen (omdat ik zelf geen verstand van VBA heb en dus niet weet hoe ik hem zelf maak).
maar als ik op de knop druk dan krijg ik alles te zien dat mijn macro doet.
maar ik wil dit tabblad uiteindelijk graag verbergen en werken met een invulblad.

ik denk zelf dat het aan het stukje "ActiveCell" ligt, maar ik heb verder geen idee van VBA dus ik zou er compleet naast kunnen zitten.

weet iemand hoe ik ervoor kan zorgen dat ik niet te zien krijg wat mijn macro doet?

de macro is erg lang dus ik zal een kleine uitleg geven van wat hij doet.

hij zet eerst 60 cellen op 0.
de som van deze cellen is het kolomindexgetal van een vert.zoeken formule.

een paar andere formules gaan nu rekenen en daar komen 4 waardes uit.
d.m.v. speciaal plakken plak ik deze waarde in 4 cellen.
de cel daarachter (die eerst op 0 gezet is) wordt nu veranderd naar een 1.
hierdoor veranderd de som en dus het kolom index getal. de formules gaan opnieuw rekenen en de uitkomsten worden in de 4 cellen onder de vorige waardes gelakt.
ook de cel daarachter wordt veranderd in 1. het kolom indexgetal veranderd, de formules gaan rekenen enz.

dit riedeltje herhaald zich 60x

dit is de macro in kwestie:

Range("BO528").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO529").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO530").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO531").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO532").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO533").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO534").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO535").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO536").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO537").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO538").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO539").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO540").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO541").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO542").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO543").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO544").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO545").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO546").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO547").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO549").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO550").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO551").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO552").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO553").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO554").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO555").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO556").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO557").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO558").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO559").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO560").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO561").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO562").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO563").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO564").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO565").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO566").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO567").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO568").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO570").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO571").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO572").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO573").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO574").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO575").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO576").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO577").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO578").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO579").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO580").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO581").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO582").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO583").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO584").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO585").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO586").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO587").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO588").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO589").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("BO590").Select
    ActiveWindow.SmallScroll Down:=-15
    
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI528").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO528").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI529").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO529").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI530").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO530").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI531").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO531").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI532").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO532").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI533").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO533").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI534").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO534").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI535").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO535").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI536").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO536").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI537").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO537").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI538").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO538").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI539").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO539").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI540").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO540").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI541").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO541").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI542").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO542").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI543").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO543").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI544").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO544").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI545").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO545").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI546").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO546").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI547").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO547").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("BO548").Select
    
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI549").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO549").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI550").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO550").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI551").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO551").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI552").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO552").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI553").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO553").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI554").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO554").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI555").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO555").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI556").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO556").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI557").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO557").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI558").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO558").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI559").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO559").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI560").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO560").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI561").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO561").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI562").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO562").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI563").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO563").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI564").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO564").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI565").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO565").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI566").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO566").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI567").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO567").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI568").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO568").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("BO548").Select
    
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI570").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO570").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI571").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO571").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI572").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO572").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI573").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO573").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI574").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO574").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI575").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO575").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI576").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO576").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI577").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO577").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI578").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO578").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI579").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO579").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI580").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO580").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI581").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO581").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI582").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO582").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI583").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO583").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI584").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO584").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI585").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO585").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI586").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO586").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI587").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO587").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI588").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO588").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("AS519:AV519").Select
    Selection.Copy
    Range("BI589").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BO589").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("BO548").Select
End Sub

 

[alphamax]

Gebruik code-tags op het forum, zie http://www.helpmij.nl/forum/showthread.php/870315-Handleiding-Code-tags-gebruiken-Manual-Code-tags-usage
Met een voorbeeldbestandje wordt je sneller en beter geholpen.

 

[edmoor]

Voorbeeldje voor het op "0" zetten van al die cellen:

Range("BO528:BO590") = "0"

Dat is dus 1 regel i.p.v. de 128 die je er nu voor gebruikt.
En dan heb ik het nog niet eens over het verschil in snelheid.

Al die andere dingen kan je zo doen:

For i = 528 To 589
    Range("BI" & i).Resize(, 4).Value = Range("AS519").Resize(, 4).Value
Next i
Range("BO528:BO589") = "1"

Nu kan je dus m'n eerste voorbeeld al weg laten omdat je in het tweede diezelfde cellen weer vult.
Al die Selects, Copy, Paste, CutCopyMode en herhalingen e.d. zijn dus niet nodig.
Het totaal kan dus in 4 regeltjes i.p.v. 600

Nu wacht ik op SNB die de loop in 1 regel propt

 

[NogGeenGuru]

van 600 regels naar 4 is idd een heel verschil. misschien moet ik toch eens een cursus vba gaan zoeken. dat biedt weer hele nieuwe mogelijkheden in het maken van die handige tooltjes:d

kun je mij misschien ook vertellen wat die regels van jou nou precies doen? wat betekenen de woorden?
dan kan ik het de volgende keer zelf toepassen, wordt ik steeds meer guru

 

[edmoor]

De loop zal je wel begrijpen neem ik aan. De Resize property staat hier uitgelegd:
https://msdn.microsoft.com/en-us/library/office/ff193274.aspx

 

[VenA]

@edmoor,

Als een bepaalde range de waarde krijg uit vaststaande range is er geen lusje nodig.

Sub VenA()
[F1:I5] = [A1:D1].Value
End Sub

of

Sub VenA1()
[F1].Resize(5, 4) = [A1].Resize(, 4).Value
End Sub

De code van de TS heb ik niet nagelopen. Vandaar maar even linksboven in het blad begonnen:d

 

[mastermindzh]

Beste NogGeenGuru,

Ik heb uw macro even tussen code tags gezet.
Hoe u dit zelf kunt doen kunt u lezen in de handleiding van de enige echte alphamax (2de reactie): http://www.helpmij.nl/forum/showthr...-Manual-Code-tags-usage?p=5595087#post5595087

Mogen u na het lezen van de handleiding weer een stapje dichter bij dat doel van Guru zitten
En natuurlijk een prettig pinksteren!

 

[NogGeenGuru]

Heren en (mogelijk) Dames,

Ik dan u zeer voor deze hulp. Ik moet nog even werken aan het gebruik van VBA, het is een hele nieuwe taal voor me.
Maar ik heb engels kunnen leren dus dit moet mij toch ook lukken

Dat guru schap moet denk ik nog even wachten, kleine stapjes maar ik ben al een heel eind gekomen:d

Ik wens jullie allemaal een prettig pinksteren en ik sluit hierbij ook deze vraag.
door jullie jaren lange ervaring en intersief speurwerk is ook deze zaak weer tot een goed einde gebracht