zoekoptie en dan naar juist cell

[ramses111]

goedendag,

Ik ben bezig met een jaar planning per week en per dag
en aangezien we 52 weken hebben is dit een lang excel bestand en ik zou hier dan een zoekfunctie
in willen maken waar ik dan de week kan selecteren en dan naar de juist de week spring
iemand die mij op weg kan helpen hoe ik dit kan doen ?

merci

 

[wino1]

Naar weeknr springen

In de bijlage een voorbeeldje

Gr WinoBekijk bijlage naar weeknummer.xls

 

[Biereco]

Hallo Wino,

Ben naar iets vergelijkbaars opzoek, maar dan natuurlijk net weer anders

Ik zou graag als ik bv de cell A3 klink naar de actuele datum willen springen, zie bijlage voor een voorbeeld.

Alvast bedankt.Bekijk bijlage Jaarplanning.xlsx

 

[HSV]

Hallo,

Onderstaande code in moduleblad, en bestand opslaan als macro werkboek.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
If Target.Address(0, 0) = "A3" Then
 Set c = Rows(1).Find(Date, , , xlWhole)
   If Not c Is Nothing Then
      Application.Goto c, True
    Else
      MsgBox "Datum van vandaag staat niet in rij 1."
   End If
 Cancel = True
End If
End Sub