Verschillende taken met macro

[jagert]

Hallo,

Ik ben een absolute beginner op het gebied van Excel macro's.
Ik heb een vraag over het maken van een macro in Excel 2003 (NL).
Ik wil met deze macro het volgende bereiken in een geopend en bestaand werkblad:
- starten met Ctrl-q
- hele werkblad selecteren
- hele werkblad in Arial-8 zetten.
- alle rijen autofit
- alle kolommen autofit
- opslaan onder dezelfde naam (gewoon save dus)
- Excel afsluiten.

Met name die laatste twee stappen loop ik in vast, want in de opnamestand kan ik Excel niet afsluiten, want dan is mijn opname weg.

Het volgende heb ik inmiddels opgenomen, maar verder kom ik niet.
Wie weet hoe ik deze macro af kan maken, zodat hij het gewenste uitvoert?
Bij voorbaat dank.

'

' Macro1 Macro
' De macro is opgenomen op 05-10-2009 door A. de Jager.
'
' Sneltoets: CTRL+q
'
    Cells.Select
    With Selection.Font
        .Name = "Arial"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    Selection.Rows.AutoFit
    Selection.Columns.AutoFit
    Range("A1").Select
End Sub

 

[Hoornvan]

jagert,

Zet onderstaande code in This workbook en hij slaat alles op.
Bedoel je dit?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
        ActiveWorkbook.Save
End Sub

 

[Joske2000]

Iets korter,

zonder select

Sub macro1()
' Macro1 Macro
' De macro is opgenomen op 05-10-2009 door A. de Jager.
'
' Sneltoets: CTRL+q
'
Cells.Font.Name = "arial"
Cells.Font.Size = 8
Cells.Rows.AutoFit
Cells.Columns.AutoFit
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Joske

 

[jagert]

Reactie:

Bedankt voor het meedenken.
De laatste versie gaat niet helemaal goed, want het levert de volgende melding op:

Fout 1004 tijdens uitvoering:
Methode Save van object _Workbook is mislukt.

Het betreft steeds data die is geëxporteerd uit een database.
Ik denk dat dat er iets mee te maken heeft.
Als ik 'Opslaan als' doe in zo'n werkblad, dan komt hij standaard met het formaat 'Microsoft Excel 5.0/95-werkmap'.
Dus i.p.v. de Save-functie moet de macro bij nader inzien eigenlijk doen:
Opslaan als: Microsoft Office Excel-werkmap (de bovenste optie)
En dan pas opslaan.
Kan dat ook in de macro?

 

[jagert]

Nog geen oplossing...

Helaas loop ik nog steeds vast in deze macro.
Iemand nog een goed idee?
Alvast bedankt.

 

[huijb]

@jagert Probeer de volgende keer een goede topictitel te verzinnen, "macro" zegt niets over je probleem. Ook de VBA code dient tussen de codetags te staan.