her hvad jeg har gøret
Sub Knap4_Klik()
'
Range("Q1").Value = Range("Q2").Value
'ActiveWorkbook.SaveAs Filename:="H:\Data\prøve"'_
ActiveWorkbook.SaveAs Filename:=Range("Q1").Value, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
' udskriv_af_proceskontrol_Palleter Makro
'
'
ActiveWindow.SmallScroll Down:=-9
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("f10:g10").Select
' knap5_klik Makro
'
'
Range("F10:G11,F10:G11,F13:G13,C21:F32,I21:V32").Select
Range("I21").Activate
Selection.ClearContents
Selection.ClearContents
Range("F10:G11").Select
End Sub