Goedemiddag,

Onderstaand een macro die ik vandaag heb gemaakt via Extra, Macro's, nieuwe macro opnemen, en wat kopieer en plakwerk.

Sub Sommige_formules_absoluut_maken()
Application.ScreenUpdating = False
ActiveSheet.ShowAllData
 Application.Goto Reference:="R7C2"
    Range(Selection, Selection.End(xlDown)).Select
    Range("B7:B5000").Copy
    Range("B7:B5000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 Application.Goto Reference:="R7C7"
    Range(Selection, Selection.End(xlDown)).Select
    Range("g7:g5000").Copy
    Range("g7:g5000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 Application.Goto Reference:="R7C8"
    Range(Selection, Selection.End(xlDown)).Select
    Range("h7:h5000").Copy
    Range("h7:h5000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 Application.Goto Reference:="R7C22"
    Range(Selection, Selection.End(xlDown)).Select
    Range("v7:v5000").Copy
    Range("v7:v5000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 Application.Goto Reference:="R7C25"
    Range(Selection, Selection.End(xlDown)).Select
    Range("y7:y5000").Copy
    Range("y7:y5000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 Application.Goto Reference:="R7C26"
    Range(Selection, Selection.End(xlDown)).Select
    Range("z7:z5000").Copy
    Range("z7:z5000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 Application.Goto Reference:="R7C27"
    Range(Selection, Selection.End(xlDown)).Select
    Range("aa7:aa5000").Copy
    Range("aa7:aa5000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Application.Goto Reference:="R6C15"
    Selection.AutoFilter Field:=15, Criteria1:="="
Range("d7").Select
Application.ScreenUpdating = True
End Sub

Ik heb geen inhoudelijke vraag over de macro, maar wel zou ik graag weten of deze macro ingekort kan worden, want hij is wel erg lang geworden.

Wel een klein vraagje nog over de macro: regelmatig komt het getal 5000 terug, bv. B5000, G5000, H5000 enz.
Dit zijn willekeurig gekozen rijnummers in de kolommen om er zeker van te zijn dat de hele inhoud van die kolom wordt meegenomen. Mooier zou het zijn als de range er alsvolgt uit zou zien: (bv voor kolom Z):

Range("z7:laatste cel in kolom Z met inhoud").Copy
    Range("z7:laatste cel in kolom Z met inhoud").Select


Als u verder nog andere suggesties hebt dan hoor ik ze graag !

Bedankt voor alle moeite.

Groeten,
Eric