Connecting dropdown list to a search button that jumps to a cell

[kyceeq]

Hello everyone. I am a newbie with Excel VBA and I am having trouble connecting my dropdown list to a search button. This is how i want it to work. I have a couple of options in my dropdown list and I want the user to be able to select any of the options and click the search button. This button then jumps to the part of the same worksheet where the information is display. There are three sections for that information. I want the other unwanted sections to hide automatically and only displays the information needed.

please hoe do I go about this. I have tried literally everything i can think of... thank you

 

[kevin9999]

What you're asking for is very doable, but we'd need a lot more information to get the ball rolling. Ideally, provide a copy of your sheet using the XL2BB - Excel Range to BBCode or alternatively, share a copy of your workbook (sensitive data hidden/disguised) via Google Drive, Dropbox or similar file sharing platform. Plus a detailed explanation of which ranges you want hidden/visible according to which selection of the dropdown.

 

[kyceeq]

Ok..thank you for your swift reply . I hope photos will suffice....

The first photo shows the menu im creating and the dropdown list.

the second photo shows all the search results.

But i want to be able to select the options on the dropdown list and hit the search button and the search button displays the results of that specific selection and hides the rest as displayed in photo 3

 

[kevin9999]

You can adjust the ranges (row numbers) if they're not quite right. Attach the two macros to the relevant buttons.

Option Explicit
Sub SEARCH_Button()
    Dim s As String
    Application.ScreenUpdating = False
    With ActiveSheet
        .Range("A19:A50").EntireRow.Hidden = True
        s = .Range("M10").Value2
        Select Case s
            Case "FIRST TERM"
                .Range("A19:A28").EntireRow.Hidden = False
            Case "SECOND TERM"
                .Range("A30:A39").EntireRow.Hidden = False
            Case "THIRD TERM"
               .Range("A41:A50").EntireRow.Hidden = False
        End Select
    End With
    Application.ScreenUpdating = True
End Sub

Sub CLEAR_Button()
    ActiveSheet.Range("A19:A50").EntireRow.Hidden = False
End Sub

 

[kyceeq]

Thank you so much Kevin. It worked seamlessly. I'm so glad to have joined this platform. Do you give personal classes?

 

[kevin9999]

Thank you so much Kevin. It worked seamlessly. I'm so glad to have joined this platform. Do you give personal classes?

Happy to help and thanks for the feedback but no personal classes I'm afraid.

 

[kyceeq]

Happy to help and thanks for the feedback but no personal classes I'm afraid.

Alright. thank you once again