Button with macro, based on input in dropdown

[Junior19]

I'm currently working on a schedule, with 52 weeks.
In order to make it easier to move around in the schedule I've tried different methods, one week on separate sheets, all weeks on same sheet below each other, and so on.

I've now figured that the best way would be to use a single sheet, with 52 weeks below eachother, and to freeze the top row, and put a validation drop-down menu in Cell B1 where I select the week I want to go to, and a command-button with a macro that jumps down to the week in question.

I've got the weeknumbers in column A. Column B and C are reserved for the name and position of the person, and column D-J holds the week-schedule.

I'm just about to tear out my eyes, because I know this should be dead easy. But I seem to have forgotten everything I've ever learned, because I can't see the code..

Anyone?

 

[VoG]

Try

Private Sub CommandButton1_Click()
Dim Found As Range
Set Found = Columns("A").Find(what:=Range("B1").Value, LookIn:=xlValues, lookat:=xlWhole)
If Found Is Nothing Then
    MsgBox "Not found", vbInformation
Else
    Found.Select
End If
End Sub

 

[Junior19]

This has done the trick.
Much appreciated.

Think I got stuck in thinking to much on hlookups and such.

Thanks a million!