lundi 23 février 2015
Datum vandaag
Posted on 03:19 by Unknown
Ik heb een macro om de datum van vandaag te selecteren.
Private Sub Vandaag_Click()
On Error Resume Next
For i = 1 To Sheets.Count
With Sheets(i)
Set kolom = .Rows("13:13").Find(Date)
If Not kolom Is Nothing Then
.Activate
.Cells(13, kolom.Column).Cells.Select
Else
MsgBox "Datum vandaag niet gevonden", , "Vakantieplanning 2015"
Exit For
End If
End With
Next
End Sub
De datum staat in row 13 maar hij wordt niet gevonden. Enig idee wat er mis is?
Private Sub Vandaag_Click()
On Error Resume Next
For i = 1 To Sheets.Count
With Sheets(i)
Set kolom = .Rows("13:13").Find(Date)
If Not kolom Is Nothing Then
.Activate
.Cells(13, kolom.Column).Cells.Select
Else
MsgBox "Datum vandaag niet gevonden", , "Vakantieplanning 2015"
Exit For
End If
End With
Next
End Sub
De datum staat in row 13 maar hij wordt niet gevonden. Enig idee wat er mis is?
Datum vandaag
Categories: Datum vandaag
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire