BVA verdwenen

[bikkel009]

beste leden

ik was bezig met het maken van een formulier wat automatisch de datums invoert van vandaag als je in cel B5 wat invoert (dit gebeurt bij het opslaan)
als je hem morgen dan weer opstart moet de datum van gisteren behouden blijven
was al zover dat de het met het opslaan lukt
en was aan het bedenken hoe ik het behouden voor elkaar kon krijgen
maar na het opslaan en weer open zie ik in VBA mijn code niet meer
hij werkt nog wel
iemand een idee hoe dit komt en misschien een oplossing voor het behouden van de datum

groeten Bikkel009

 

[edmoor]

Je code zit er gewoon in hoor. Je moet alleen even dubbelklikken op de ThisWorkbook module.

 

[bikkel009]

beste edmoor

bedankt voor je snelle reactie
kan helaas ThisWorkbook module. niet vinden in de VBA
zie printscreen
denk dat er door een toetsencombinatie iets is mis gegaan

 

[edmoor]

Klik daar op Beeld en dan op Project verkenner.

 

[VenA]

Mijn idee zou zijn dat je je eerst eens verdiept in het gebruik van Modules in VBA.

Vanuit ThisWorkbook voor elke tab

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Vanuit de bladmodule van een blad

Private Sub Worksheet_Activate()

 

[bikkel009]

Hoi Edmooor

top hij is weer zichtbaar
berdankt

 

[bikkel009]

Beste Vena

Zo kan je natuurlijk elke vraag beantwoorden

Met vriendelijke groeten
Bikkel009

 

[snb]

Doet er niet aan af dat V&A in dit geval meer dan 100% gelijk heeft. Je antwoord bevestigt dat.

 

[VenA]

Ik kan nog veel meer vragen beantwoorden en mijn reactie is inhoudelijk correct omdat je de code op verkeerde plaatsen gebruikt. Normaal gesproken wordt jouw probleempje opgelost in de sheet zelf.
Dus in de bladmodule

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B5:B28")) Is Nothing And Target.Count = 1 Then Target.Offset(, 1) = IIf(Target = "", "", Date)
End Sub

Als je geen change_events in Blad1 hebt staan dan kan je het ook in een Before_Close of Before_save gebruiken. Lusjes zijn vaak onnodig.
In de module van ThisWortkbook zet je dan

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
  Blad1.Columns(2).SpecialCells(2).Offset(, 1).SpecialCells(4) = Date
End Sub

 

[bikkel009]

Top VenA

ga kijken of ik hem kan uitbreiden

met vriendelijke groeten

Bikkel009