Combobox Macro

[Puggwash63]

I have created a 5s worksheet that originally was used by 1 Team and had 1 Combobox. This has a Macro attached so which day you choose from the 5s Audit and click on the 'Update' button, it will display the score.

I now have added 3 Comboboxes to the excel worksheet so that all 3 Teams have their own Combobox dropdown (Sun-Sat) for each day but I do not know how to get the macro to work for each combobox when used.

What is happening, when I click on any combobox the other 2 boxes show the same Day.

Is there anyone out there who can help me

Thanks for reading

 

[Puggwash63]

Would anyone be able to help as I have been looking at the part in the Macro where it takes to info from (rw = currentCell.Row + 1)
If I change the 1 to a 2 the 2nd cell shows the score for that Team.
How do I get the Macro to pick up the score for each team

 

[Puggwash63]

This is the Macro I have running if you can help so I can run all 3 ComboBox's seperately:

Private Sub ClearButton_Click()
Worksheets("AuditForm").Activate
Range("H11:L15,H17:L21,H23:L27,H29:L33,H35:L39").Select
Selection.ClearContents
ComboBox1.Activate


End Sub
Private Sub ComboBox1_Change()
End Sub


Private Sub ComboBox1_Click()



End Sub
Private Sub ComboBox1_DropButt*******()


End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub UpdateButton_Click()
Set currentCell = Worksheets("5-S Assessment Charts").Range("B11")
While currentCell <> ComboBox1.Text
Set nextCell = currentCell.Offset(0, 1)
Set currentCell = nextCell
Wend
Dim rw As Integer
Dim col As Integer
rw = currentCell.Row + 1
col = currentCell.Column
Worksheets("AuditForm").Range("Total").Copy
Worksheets("5-S Assessment Charts").Cells(rw, col).PasteSpecial Paste:=xlValues
Set currentCell = Worksheets("5-S Assessment Charts").Range("A27")
End Sub
Private Sub UpdateButton_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub
Private Sub UpdateButton_GotFocus()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Private Sub Yellow_Change()
End Sub