Beste Excellers,
In bijgaand macro werkt de <Selection.AutoFill Destination:=Range("AG7:AO100")> niet zoals gewenst.
Cel AG7:AO7 dient naar onder te worden gekopieerd tot de laatste gevulde cel in kolom AF.
Nu gaat het door tot rij 100 maar het aantal rijen is altijd variabel.
Na het converteren wil ik alleen het tabblad uren opslaan als .xlsx bestand maar nu gaat ook
het tabblad Conversie mee.
Kan iemand mij helpen met deze macro om deze 2 foutjes eruit te halen?
Bij voorbaat dank.
In bijgaand macro werkt de <Selection.AutoFill Destination:=Range("AG7:AO100")> niet zoals gewenst.
Cel AG7:AO7 dient naar onder te worden gekopieerd tot de laatste gevulde cel in kolom AF.
Nu gaat het door tot rij 100 maar het aantal rijen is altijd variabel.
Na het converteren wil ik alleen het tabblad uren opslaan als .xlsx bestand maar nu gaat ook
het tabblad Conversie mee.
Kan iemand mij helpen met deze macro om deze 2 foutjes eruit te halen?
Bij voorbaat dank.
HTML:
Sub Conversie()
'
' Conversie Macro
'
' Sneltoets: Ctrl+m
'
ActiveWindow.SmallScroll ToRight:=15
Range("AG5:AO7").Select
Selection.Copy
Range("A8").Select
Sheets("Uren").Select
Range("AG5").Select
ActiveSheet.Paste
Range("AG7:AO7").Select
Selection.AutoFill Destination:=Range("AG7:AO100")
Range("AG7:AO100").Select
Range("AG6").Select
Columns("AG:AO").EntireColumn.AutoFit
With Sheets("Uren")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\temp\" & "Test " & .Range("AG5"), 51
Application.DisplayAlerts = True
End With
End Sub