waarde in cel terugzetten

[krkl]

Door middel van valideren kan ik kiezen uit 2 waardes, ik wil nu dat bij afsluiten de cel wordt terug gezet wordt naar een van die waardes.
Ik kan dit niets over vinden maar het lijkt mij dat dit mogelijk moet zijn met VBA.

Groeten,

Klaas

 

[Ad Becude]

Volgens mij als je wijzigingen opslaat, blijft de laatst gekozen waarde toch staan?
Als je iets anders bedoeld, moet je iets duidelijker zijn.

 

[krkl]

Ad,

Wat ik bedoel is dat als excel wordt geopend er voor "ja" moet worden gekozen zodat er een aantal bladen worden geopend. Als dit programma wordt gesloten sluiten deze bladen door middel van VBA, maar de waarde in de cel blijft "ja" dit moet dan "nee" worden.

Groeten,

Klaas

 

[Ad Becude]

Zonder je code verder te weten.....
Range ("jou cel").Value="nee"

 

[krkl]

Ad

Deze gebruik ik om alle bladen te sluiten bij afsluiten excel:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = (ws.Name = "Startblad")
Next ws
End Sub

En deze gebruik ik om bladen of te sluiten door ja of nee te kiezen:
Private Sub Workbook_Open()
Sheets("Startblad").Activate
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Sheets(Target.Offset(, 1).Value).Visible = IIf(Target.Value = "Nee", False, True)
End If
End Sub

Kun je mij zeggen waar ik de regel moet plaatsen die je hebt gegeven.

Groeten,

Klaas

 

[Ad Becude]

Nou is VBA niet zo mijn ding, maar ik denk hier


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = (ws.Name = "Startblad")
Range ("jou cel").Value="nee"
Next ws
End Sub

 

[krkl]

Ad,

De regel moest ik op een andere plaats zetten maar dan lukt het zo te zien wel.
bedankt voor het helpen.

Groeten,

Klaas