Macro uitvoeren bij bepaalde waarde in cel

[erka]

Hallo,

ik zou graag een macro automatisch laten uitvoeren als de waarde in cel A1 "ja" is.

Ik ben al zover dat macro1 wordt uitgevoerd als de waarde in cel a1 wijzigt, maar ik zou willen dat deze macro alleen wordt uitgevoerd als de waarde "ja" handmatig wordt ingevoerd door de gebruiker van het bestand.

ik hoop dat het testbestandje meer duidelijkheid verschaft. Ik heb in de programmacode van het werkblad bepaald dat macro1 wordt aangeroepen als er een bepaalde waarde in cel A1 staat. De macro drukt het bestand daarna 1x af en slaat het op. Als iemand ook nog kan helpen om vervolgens Excel af te sluiten zou dat helemaal super zijn...

Alvast bedankt!

 

[Joske2000]

Goedemiddag,

Hierbij :

Sub Macro1()
If Cells(1, 1).Value = "ja" Then
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Rutger\Documents\testbestand.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
End Sub

Gr,

Joske

 

[erka]

Hoi Joske,

dit werkt super! Hoe kan ik in dezelfde macro bepalen dat Excel na het opslaan automatisch wordt afgesloten?

 

[Joske2000]

Voeg onderaan het volgende toe :

ActiveWorkbook.Close

Gr,

Joske

 

[erka]

Hallo Joske, dank voor de reactie!

daarmee sluit het bestand wel af, maar het programma Excel niet? Is het mogelijk om Excel helemaal af te sluiten?

 

[edmoor]

Deze wel:
Application.Quit

 

[erka]

Super, dankjewel.