samedi 28 février 2015
naar een cel springen dmv VBA
Posted on 12:04 by Unknown
Ik heb op de eerste rij datums staan in de op maak 28-02-2015.
Nu wil ik graag dat bij het open van het werkblad de cursor gewoon naar de cel springt met de huidige datum.
ik dacht aan de volgende formule, maar het lukt me niet
Private Sub Workbook_Open()
Dim vandaag As Date
Dim c As Range
Sheets("2015").Activate 'naam ev. aanpassen
vandaag = Date
For Each c In Range("A1").End(xlToRight).Select
If c.Value = vandaag Then
Application.GoTo c.Offset(0, 0), True
Exit For
End If
Next c
End Sub
wie heeft een goede code
Nu wil ik graag dat bij het open van het werkblad de cursor gewoon naar de cel springt met de huidige datum.
ik dacht aan de volgende formule, maar het lukt me niet
Private Sub Workbook_Open()
Dim vandaag As Date
Dim c As Range
Sheets("2015").Activate 'naam ev. aanpassen
vandaag = Date
For Each c In Range("A1").End(xlToRight).Select
If c.Value = vandaag Then
Application.GoTo c.Offset(0, 0), True
Exit For
End If
Next c
End Sub
wie heeft een goede code
naar een cel springen dmv VBA
Categories: naar een cel springen dmv VBA
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire