VBA Scroll to row with Match

[12Rev79]

Dear Experts,

I have a ComboBox1 with fillrange: A12:A376 and linkedcell: D1
my ComboBox1 has this code Range("D1").Value = ComboBox1.Value

Note: range A12:A376 has number value from 1 to 365

I need a code that scroll to a row after a Match as code below
-----------------
Private Sub ComboBox1()
Dim myRange As Range
Dim myRow As Variant
Set myRange = Range("A12:A376")

myRow = Application.Match("E1", myRange, False)

If Not IsError(myRow) Then
ActiveWindow.ScrollRow = myRow
' and then select/activate the cell:
Application.GoTo Cells(myRange, myRow)
Else
' The value is not found in the range, so inform you:
MsgBox "Not found!"
End If
End Sub
---------------

the code only excute the MsgBox

Please any help.

Thanks in advance,
12Rev79

 

[Fluff]

If the linked cell is D1 why are you matching E1?

 

[12Rev79]

If the linked cell is D1 why are you matching E1?

Sorry my mistake, it was during my testing the code

Private Sub ComboBox1()
Dim myRange As Range
Dim myRow As Variant
Set myRange = Range("A12:A376")

myRow = Application.Match("D1", myRange, False)

If Not IsError(myRow) Then
ActiveWindow.ScrollRow = myRow
' and then select/activate the cell:
Application.GoTo Cells(myRange, myRow)
Else
' The value is not found in the range, so inform you:
MsgBox "Not found!"
End If
End Sub

 

[Fluff]

Try

myRow = Application.Match(Range("D1").value, myRange, False)

 

[12Rev79]

Thank you very much Fluff, however I want the code that go to the Row that match D1 to myRange (A12:A376)
myRange are number from 1 to 365, please can you help me figure out.

Let say I select 35 it will match on myRange and select on 35 instead of A35.

Thanks again and in advance.

 

[Fluff]

What type of combobox is it?
Form Control, ActiveX or is it on a userform?

 

[12Rev79]

What type of combobox is it?
Form Control, ActiveX or is it on a userform?

ActiveX Control, not in Userform.

Thanks

 

[Fluff]

Ok how about

Private Sub ComboBox1_Click()
   Range("A" & Me.ComboBox1.ListIndex + 12).Activate
End Sub

 

[12Rev79]

Ok how about

Private Sub ComboBox1_Click()
   Range("A" & Me.ComboBox1.ListIndex + 12).Activate
End Sub

Thank you both code works will but for now I just used the first one you gaved and make +11 in the code.
myRow = Application.Match(Range("D1").value, myRange, False)+11

Thank you so much Fluff for your kind help appreciated.

Regards,
12Rev79

 

[Fluff]

Glad to help & thanks for the feedback.