Bij een bepaalde waarde of woord in cel, Excel afsluiten

[Schipperjte]

Hoi,

Hoe kan ik Excel via VBA afsluiten als er een bepaald woord in een cel komt.

Iets in de geest van als in A1 dag komt , dan Excel afsluiten




Bas

 

[ExcelAmateur]

Schipperjte,

Zo iets, in die richting?
De code moet achter het Blad.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("A1") = "dag" Then Active Workbook.Close
End Sub

 

[Warme bakkertje]

Wil je XL volledig sluiten

Application.Quit

 

[Schipperjte]

Hoi,
Had dit gevonden

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target < 1 Then
Macro1
Else
Macro2
End If
End Sub

Bij macro 2 laat ik hem afsluiten , macro 1 print wat uit.

Alleen moet ik de waarde meer dan 1 laten zien anders macro 2 niet





Heb de 1e oplossing geprobeerd maar dan krijg ik een foutmelding op Workbook.Close

de 2e sluit inderdaad alles van Excel


Bas

 

[ExcelAmateur]

If Target < 2 Then

Zo wel dan?
Ik had mijn macro niet getest, Warme bakkertje is hier specialist in.

 

[Roncancio]

Heb de 1e oplossing geprobeerd maar dan krijg ik een foutmelding op Workbook.Close

ActiveWorkbook hoort aan elkaar.
Bovendien is het handig om SaveChanges te gebruiken zodat je niet de melding krijgt of het bestand moet worden opgeslagen.
Let op: als je SaveChanges:=False gebruikt, wordt het bestand afgesloten zonder dat de wijzigingen worden bewaard!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Range("A1").Value = "dag" Then ActiveWorkbook.Close SaveChanges:=True
End Sub

Met vriendelijke groet,


Roncancio

 

[Schipperjte]

Hoi,

het werkt , Bedankt allemaal :thumb:






Bas