Find and select cell to match value from combobox and Turn Cell Green in Sheet1

[Patriot2879]

Hi Hope you can help please, i have a Userform with a ComboBox1 and this has a list of names, when a name is selected ie 'John Smith' I want to find all the names B:B in Sheet1 with this name (John Smith) for example and turn that cell Green, please can you help me,

 

[Jimmypop]

Hi

Maybe something like:

Private Sub ComboBox1_Change()
    Dim Cll As Range
    Dim sh As Worksheet, f As Range
    Set sh = Sheets("Sheet1")
    Set f = sh.Range("B1:B1000").Find(ComboBox1.Value, , xlValues, xlWhole)
    If Not f Is Nothing Then
        sh.Select
        f.Select
    Else
        MsgBox "Does not exist"
    End If
    For Each Cll In sh.Range("B1:B1000")
        If Cll.Value = f Then
            Cll.Interior.Color = vbGreen
        End If
        Next Cll
    End Sub

 

[Patriot2879]

HI thank you for the code i get an error on the last 'end if' it says blocked.

 

[Jimmypop]

How are you populating the list inside the ComboBox? What is the error number you are getting?

 

[Patriot2879]

HI actually i got it working now thank you

 

[Jimmypop]

HI actually i got it working now thank you

Glad to hear that and help... what was the issue giving the error? Also maybe just then mark the thread as solution so others can easily find it.

 

[Patriot2879]

Glad to hear that and help... what was the issue giving the error? Also maybe just then mark the thread as solution so others can easily find it.

I don’t know to be honest I restarted the document and put it in a different place and it worked. Thank you again for the support