Sub gegevens_verwerken()
'
' gegevens_verwerken Macro
'
'
Sheets("Afkeur aantallen").Select
Cells.Select
Selection.ClearContents
Workbooks.Open Filename:= _
"afkeur aantallen.xls"
Cells.Select
Selection.Copy
Windows("Afkeuranalyse.xlsm").Activate
ActiveSheet.Paste
Columns("B:B").Select
Selection.Replace What:="gietmachine", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("C:C").Select
Selection.Replace What:=".01", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A2").Select
Sheets("Productie_aantallen").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Workbooks.Open Filename:= _
"netto aantallen.xls"
Cells.Select
Range("B1").Activate
Selection.Copy
Windows("Afkeuranalyse.xlsm").Activate
ActiveSheet.Paste
Columns("B:B").Select
Selection.Replace What:="ffs", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("B5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Gietcel"
Range("B1").Select
Windows("afkeur aantallen.xls").Activate
ActiveWindow.Close
Windows("netto aantallen.xls").Activate
ActiveWindow.Close
Sheets("Geselecteerde_gegevens").Select
Range("P12").Select
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Sheets("Afkeur aantallen").Select
Range("B7:E1000").AdvancedFilter xlFilterCopy, [RekenbladGrafiek!I10:K11], [Geselecteerde_gegevens!a65536].End(xlUp).Offset(1), False
Sheets("Productie_aantallen").Select
Range("B5:D100").AdvancedFilter xlFilterCopy, [RekenbladGrafiek!I10:K11], [Geselecteerde_gegevens!f65536].End(xlUp).Offset(1), False
Sheets("Grafiek").Select
End Sub