Select Cells based on other Cells Value

[Rahulwork]

Hello Everyone,

I am working on database and need your help in one macro.

I have one drop down linked with V1 and have one search box.

V1 will be the country name. So i want

If V1 is australia then C8:P9 should be selected and cursor automatically reach on C3.
Same if V1 is Austria then C12:P13 should be selected and cursor automatically reach on C12.

I want this macro on button. Please help

 

[Rahulwork]

Just did this macro code, it's working fine but it's not working like hyperlink

Sub Rectangle1_Click()


Application.ScreenUpdating = False




Dim Ash As Worksheet
Dim stxt1 As String
Dim stxt2 As String
Dim stxt3 As String




Set Ash = ActiveWorkbook.ActiveSheet




stxt1 = "A"
stxt2 = "B"
stxt3 = "C"




If Ash.Range("J1") = stxt1 Then
With Ash
.Range("C40:P40").Select
End With
End If

If Ash.Range("J1") = stxt2 Then
With Ash
.Range("C45:P45").Select
End With
End If

If Ash.Range("J1") = stxt3 Then
With Ash
.Range("C50:P50").Select
End With
End If

Application.ScreenUpdating = True








End Sub

 

[MARK858]

Where does the acting like a Hyperlink come in and what do you mean by it?

What exactly does reach mean in "cursor automatically reach on C12"mean?

Can you try and explain exactly what else you want the code to do?

Btw, I would probably use Select case for the test i.e.

Sub V1dropdown()
    Select Case Range("V1").Value
       
        Case "Australia"
            Range("C8:P9").Select
      
        Case "Austria"
            Range("C12:C13").Select
            
        Case Else

    End Select
End Sub

and there is no point using a With statement if you are only doing 1 action.

Finally what are you doing with the Select afterwards as you don't normally need to select in code?

 

[Fluff]

How about

Sub Rectangle1_Click()

Application.ScreenUpdating = False

    Dim Ash As Worksheet
    Dim stxt1 As String
    Dim stxt2 As String
    Dim stxt3 As String
    
    Set Ash = ActiveWorkbook.ActiveSheet
    
    stxt1 = "A"
    stxt2 = "B"
    stxt3 = "C"
    
    If Ash.Range("J1") = stxt1 Then
        Application.Goto Range("C40:P40"), True
    ElseIf Ash.Range("J1") = stxt2 Then
        Application.Goto Range("C45:P45"), True
    ElseIf Ash.Range("J1") = stxt3 Then
        Application.Goto Range("C50:P50"), True
    End If

Application.ScreenUpdating = True

End Sub

 

[Rahulwork]

Thanks @Fluff , that;s what i want

 

[Fluff]

Glad to help & thanks for the feedback