Ik heb een macro gemaakt, maar hij doet het nu alleen in dit geval voor file Windows("5100340135 - RS013610000243.xlsx").Activate. de macro zou het dus moeten doen op om het even welke excell file dat ik open.
Hoe pas ik dat aan?
hieronder de volledige code van mijn macro
Hoe pas ik dat aan?
hieronder de volledige code van mijn macro
Code:
Sub TEST()
'
' TEST Macro
'
'
Sheets.Add After:=ActiveSheet
Workbooks.Open Filename:= _
"R:\master.xls"
Cells.Select
Selection.Copy
Windows("5100340135 - RS013610000243.xlsx").Activate
ActiveSheet.Paste
Range("A:A,C:C").Select
Range("C1").Activate
Application.CutCopyMode = False
Columns("A:A").Select
Selection.Cut
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Columns("B:B").Select
Selection.Cut
Columns("F:F").Select
Application.CutCopyMode = False
Selection.Cut
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Cut
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Sheets("Sheet1").Select
Range("J2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!C[-7]:C[-6],2,FALSE)"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J8")
Range("J2:J500").Select
Range("K2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!C[-7]:C[-6],2,FALSE)"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K8")
Range("K2:K500").Select
Columns("J:K").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$W$500").AutoFilter Field:=11, Criteria1:="NOTE"
Sheets("Sheet2").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub
Laatst bewerkt door een moderator: