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