Select cell that match from other sheet

[unley]

I'm learning VBA and I want to create a ProjectUpdate for the Council.
I have long list in Column A in 'Summary' sheet and project update in 'George' sheet where they choose the project names in drop down list box.
Now, what codes will I put in, that whatever the name of the project they choose in list box, it will automatically activate the cell in Column A in 'Summary' sheet?

This is the code I've put in where they click on one of the color circle in 'George' sheet that represent the time of budget like red is alert, yellow is ok & green is good.

Sub LightsSecond1()
    If ActiveSheet.Shapes("Oval 124").Select Then
    Else
    ActiveSheet.Shapes.Range(Array("Oval 125", "Oval 127")).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    Range("h27").Select
    End If
            Sheets("Summary").Select
    Range("h7").Select
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
        Sheets("George").Select
    Range("b25").Select
   
End Sub

But at the moment, I just want to know how to activate the cell in 'Summary' sheet that match the list box in A4 cell in 'George' street so the color can automatically be filled in the cell next to the matched name in 'Summary' sheet

This is 'George' sheet
Project.jpg

and this is the 'Summary' sheet where the color will automatically filled in next to matched project whenever they click on buttons in 'George' sheet
Project2.jpg

Please ask any questions if you want more information. I'm doing my best to explain the situation, Thank you

[rylo]

Hi

Is there a unique key that will match up the selection made in George, with the items in Summary?


rylo

[unley]

thank you for replying rylo, I'm not so sure what you mean by unique key but all the project names in 'Summary' sheet are exactly the same as in drop down list box in 'George' sheet.

By the way, the color can be filled in 'Summary' sheet whenever the person clicks on the color circle in Time & Budget in 'George' sheet

[rylo]

Hi

so where are the project names in Summary? From the picture, it looks as though the number is in column A, with the address in column B.

How about putting up a couple of small workbooks that match your structure, aims etc. Much easier for us to work with than pictures.



rylo

[unley]

ProjectUpdateGeorget.xls

I hope the attachment is working because there's a red cross on the sign while uploading.
I wrote out the details in text box to explain in the attachment. Thank you in advance

[rylo]

Hi

See if this gives you some ideas....

Sub LightsTop2()
    If ActiveSheet.Shapes("Oval 126").Select Then
    Else
    ActiveSheet.Shapes.Range(Array("Oval 123", "Oval 134")).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    Range("b25").Select
    End If
            'Sheets("Summary").Select
    'Range("e7").Select
    With Sheets("Summary")
      getrow = WorksheetFunction.Match(Range("C4").Value, .Range("A:A"), 0)
      With .Range("E" & getrow).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
      End With
    End With
        'Sheets("George").Select
    Range("b25").Select
   
End Sub

rylo