Automatisch cel selecteren bij openen werkblad

[ThatsMeTo]

Beste Helpers,

Ik dacht even een makkelijk een VBA scriptje te maken, valt dat toch flink tegen als ik er al even geen tijd meer in heb gestoken.

Ik wil bij het tabblad Case kosten dat bij het openen/wisselen naar dat tabblad, het tabblad de cel met de datum van vandaag selecteert (zodat dit deel zichtbaar wordt).
Ik heb geprobeerd een macro op te nemen als voorbeeld alleen dan moet ik met een button gaan werken, en posts met het openen van een workbook kan ik vinden, maar niet met het openen van een werkblad.

Wie kan mij helpen met een volgens mij kort stukje VBA?


Alvast bedankt voor de moeite.

 

[Haije]

rechtsklik op de tabnaam en kies voor Programmacode weergeven
klik op het pijltje naast (Algemeen) en kies voor Worksheet
klik op het pijltje naast SelectionChange en kies voor Activate.

De code die je nu in de VBE zet wordt geactiveerd als het tabblad gekozen wordt

 

[ThatsMeTo]

Super bedankt, dit helpt al het eerste stuk, nu even op zoek naar een code voor het selecteren van de datum.

 

[edmoor]

Met dit achter dat werkblad:

Private Sub Worksheet_Activate()
    For Each cl In Range("F4:AFI4")
        If cl.Value = Date Then
            Application.Goto cl, True
            Exit For
        End If
    Next cl
End Sub

Tevens je document opgeschoond zodat deze veel sneller opent:
Bekijk bijlage VBA kopppeling Helpmij.xlsm

 

[ThatsMeTo]

Gaaf, dat werkt geweldig.

Ik had nog even doorgezocht maar de VBA codes die ik tegen kwam waren net te ingewikkeld om door mij aan te passen/in te vullen.

Bedankt weer!

 

[VenA]

Tevens je document opgeschoond zodat deze veel sneller opent:

Scheelt een stuk.:thumb:

Iets sneller code

Private Sub Worksheet_Activate()
  t = Application.Match(CDbl(Date), Rows(4), 0)
  If IsNumeric(t) Then Application.Goto Cells(4, Application.Match(CDbl(Date), Rows(4), 0)), True
End Sub

 

[HSV]

 If IsNumeric(t) Then Application.Goto Cells(4, t), True