OK, I refactored the code for the Label Click and DblClicks
Just replace everything, including from the first label1_cllik sub to the bottom with the code below. Only the top most sub below, (SetMyTag,) needs to be edited to show what rows to delete.. I completed all the Clcik and DblClcik subs because it was really trivial with my editor (UltraEdit.)
What now happens is that when you click a label, the label control calls the back coloring sub(s) and passes its own name to the BC Sub. It then calls the SetMyTag sub and again passes its name.
I put the subs in this order, becvause the SetMyTag sub is the only one that needs changing, and all the clciky subs are identical. You still have to add the Label number to some of the "Cases" (Case "LabelNNN") and you will have to Replace XXX with a Cell address (in the rows to be deleted according to each label for the) .Value = "XXX" parts.
SetMyTag(CtrlName As String)
With Me.Controls(CtrlName).Tag
If .Backcolor = &HC0C0FF, Then 'BC is red, to have a Row(s) deleted
Select Case CtrlName
Case "Label1"
.Value = "A1:A2" 'Example. If Label1 is red. Delete Rows 1 and 2
Case "Label2"
.Value = "A3" 'Example. If Label2 is red, delete Row 3
Case "Label3"
.Value = "XXX"
Case "Label4"
.Value = "XXX"
Case "Label5"
.Value = "XXX"
Case "Label6"
.Value = "XXX"
Case "Label7"
.Value = "XXX"
Case "Label8"
.Value = "XXX"
Case "Label9"
.Value = "XXX"
Case "Label10"
.Value = "XXX"
Case "Label11"
.Value = "XXX"
Case "Label12"
.Value = "XXX"
Case "Label13"
.Value = "XXX"
Case "Label14"
.Value = "XXX"
Case "Label15"
.Value = "XXX"
Case "Label16"
.Value = "XXX"
Case "Label17"
.Value = "XXX"
Case "Label18"
.Value = "XXX"
Case "Label19"
.Value = "XXX"
Case "Label20"
.Value = "XXX"
Case "Label21"
.Value = "XXX"
Case "Label22"
.Value = "XXX"
Case "Label23"
.Value = "XXX"
Case "Label24"
.Value = "XXX"
Case "Label25"
.Value = "XXX"
Case "Label26"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
Case "LableNNN"
.Value = "XXX"
End Select
Else: .Value = "none"
End If
End With
End Sub
Private Sub BackColorMe1(CtrlName as String)
'Handles SingleClicking controls
'If BackColor = Grey Then Single Click turns backcolor Green
'If BC = Green, then turns Red
'If BC = Red, Then Turn Green
With Me.Controls(CtrlName)
If .BackColor = &HFFFFFF Then 'is Grey
.BackColor = &HC0FFC0 'turn Green
ElseIf .BackColor = &HC0FFC0 Then 'is Green
.BackColor = &HC0C0FF 'Turn red
ElseIf .BackColor = &HC0C0FF Then 'is Red
.BackColor = &HC0FFC0 'turn green
End If
End With
End Sub
Private Sub BackColorMe2(CtrlName as String)
'Handles doubleclicking Controls
'If BackColor = Grey, Then turn BC = Red
'If BC = Green, Then turn BC = Red
'If BC = Red, Then turn BC to Green
With Me.Controls(CtrlName)
If .BackColor = &HFFFFFF Then 'is Grey
.BackColor = &HC0FFC0 'turn Red
ElseIf .BackColor = &HC0FFC0 Then 'is Green
.BackColor = &HC0FFC0 'Turn red
ElseIf .BackColor = &HC0C0FF Then 'is Red
.BackColor = &HC0FFC0 'Turn green
End If
End With
End Sub
Private Sub Label1_Click()
BackColorMe1("Label1")
SetMyTag("Label1")
End Sub
Private Sub Label1_DblClick()
BackColorMe1("Label1")
SetMyTag("Label1")
End Sub
Private Sub Label2_Click()
BackColorMe1("Label2")
SetMyTag("Label2")
End Sub
Private Sub Label2_DblClick()
BackColorMe1("Label2")
SetMyTag("Label2")
End Sub
Private Sub Label3_Click()
BackColorMe1("Label3")
SetMyTag("Label3")
End Sub
Private Sub Label3_DblClick()
BackColorMe1("Label3")
SetMyTag("Label3")
End Sub
Private Sub Label4_Click()
BackColorMe1("Label4")
SetMyTag("Label4")
End Sub
Private Sub Label4_DblClick()
BackColorMe1("Label4")
SetMyTag("Label4")
End Sub
Private Sub Label5_Click()
BackColorMe1("Label5")
SetMyTag("Label5")
End Sub
Private Sub Label5_DblClick()
BackColorMe1("Label5")
SetMyTag("Label5")
End Sub
Private Sub Label6_Click()
BackColorMe1("Label6")
SetMyTag("Label6")
End Sub
Private Sub Label6_DblClick()
BackColorMe1("Label6")
SetMyTag("Label6")
End Sub
Private Sub Label7_Click()
BackColorMe1("Label7")
SetMyTag("Label7")
End Sub
Private Sub Label7_DblClick()
BackColorMe1("Label7")
SetMyTag("Label7")
End Sub
Private Sub Label8_Click()
BackColorMe1("Label8")
SetMyTag("Label8")
End Sub
Private Sub Label8_DblClick()
BackColorMe1("Label8")
SetMyTag("Label8")
End Sub
Private Sub Label9_Click()
BackColorMe1("Label9")
SetMyTag("Label9")
End Sub
Private Sub Label9_DblClick()
BackColorMe1("Label9")
SetMyTag("Label9")
End Sub
Private Sub Label10_Click()
BackColorMe1("Label10")
SetMyTag("Label10")
End Sub
Private Sub Label10_DblClick()
BackColorMe1("Label10")
SetMyTag("Label10")
End Sub
Private Sub Label11_Click()
BackColorMe1("Label11")
SetMyTag("Label11")
End Sub
Private Sub Label11_DblClick()
BackColorMe1("Label11")
SetMyTag("Label11")
End Sub
Private Sub Label12_Click()
BackColorMe1("Label12")
SetMyTag("Label12")
End Sub
Private Sub Label12_DblClick()
BackColorMe1("Label12")
SetMyTag("Label12")
End Sub
Private Sub Label13_Click()
BackColorMe1("Label13")
SetMyTag("Label13")
End Sub
Private Sub Label13_DblClick()
BackColorMe1("Label13")
SetMyTag("Label13")
End Sub
Private Sub Label14_Click()
BackColorMe1("Label14")
SetMyTag("Label14")
End Sub
Private Sub Label14_DblClick()
BackColorMe1("Label14")
SetMyTag("Label14")
End Sub
Private Sub Label15_Click()
BackColorMe1("Label15")
SetMyTag("Label15")
End Sub
Private Sub Label15_DblClick()
BackColorMe1("Label15")
SetMyTag("Label15")
End Sub
Private Sub Label16_Click()
BackColorMe1("Label16")
SetMyTag("Label16")
End Sub
Private Sub Label16_DblClick()
BackColorMe1("Label16")
SetMyTag("Label16")
End Sub
Private Sub Label17_Click()
BackColorMe1("Label17")
SetMyTag("Label17")
End Sub
Private Sub Label17_DblClick()
BackColorMe1("Label17")
SetMyTag("Label17")
End Sub
Private Sub Label18_Click()
BackColorMe1("Label18")
SetMyTag("Label18")
End Sub
Private Sub Label18_DblClick()
BackColorMe1("Label18")
SetMyTag("Label18")
End Sub
Private Sub Label19_Click()
BackColorMe1("Label19")
SetMyTag("Label19")
End Sub
Private Sub Label19_DblClick()
BackColorMe1("Label19")
SetMyTag("Label19")
End Sub
Private Sub Label20_Click()
BackColorMe1("Label20")
SetMyTag("Label20")
End Sub
Private Sub Label20_DblClick()
BackColorMe1("Label20")
SetMyTag("Label20")
End Sub
Private Sub Label21_Click()
BackColorMe1("Label21")
SetMyTag("Label21")
End Sub
Private Sub Label21_DblClick()
BackColorMe1("Label21")
SetMyTag("Label21")
End Sub
Private Sub Label22_Click()
BackColorMe1("Label22")
SetMyTag("Label22")
End Sub
Private Sub Label22_DblClick()
BackColorMe1("Label22")
SetMyTag("Label22")
End Sub
Private Sub Label23_Click()
BackColorMe1("Label23")
SetMyTag("Label23")
End Sub
Private Sub Label23_DblClick()
BackColorMe1("Label23")
SetMyTag("Label23")
End Sub
Private Sub Label24_Click()
BackColorMe1("Label24")
SetMyTag("Label24")
End Sub
Private Sub Label24_DblClick()
BackColorMe1("Label24")
SetMyTag("Label24")
End Sub
Private Sub Label25_Click()
BackColorMe1("Label25")
SetMyTag("Label25")
End Sub
Private Sub Label25_DblClick()
BackColorMe1("Label25")
SetMyTag("Label25")
End Sub
Private Sub Label26_Click()
BackColorMe1("Label26")
SetMyTag("Label26")
End Sub
Private Sub Label26_DblClick()
BackColorMe1("Label26")
SetMyTag("Label26")
End Sub
Private Sub Label27_Click()
BackColorMe1("Label27")
SetMyTag("Label27")
End Sub
Private Sub Label27_DblClick()
BackColorMe1("Label27")
SetMyTag("Label27")
End Sub
Private Sub Label28_Click()
BackColorMe1("Label28")
SetMyTag("Label28")
End Sub
Private Sub Label28_DblClick()
BackColorMe1("Label28")
SetMyTag("Label28")
End Sub
Private Sub Label29_Click()
BackColorMe1("Label29")
SetMyTag("Label29")
End Sub
Private Sub Label29_DblClick()
BackColorMe1("Label29")
SetMyTag("Label29")
End Sub
Private Sub Label30_Click()
BackColorMe1("Label30")
SetMyTag("Label30")
End Sub
Private Sub Label30_DblClick()
BackColorMe1("Label30")
SetMyTag("Label30")
End Sub
Private Sub Label31_Click()
BackColorMe1("Label31")
SetMyTag("Label31")
End Sub
Private Sub Label31_DblClick()
BackColorMe1("Label31")
SetMyTag("Label31")
End Sub
Private Sub Label32_Click()
BackColorMe1("Label32")
SetMyTag("Label32")
End Sub
Private Sub Label32_DblClick()
BackColorMe1("Label32")
SetMyTag("Label32")
End Sub
Private Sub Label33_Click()
BackColorMe1("Label33")
SetMyTag("Label33")
End Sub
Private Sub Label33_DblClick()
BackColorMe1("Label33")
SetMyTag("Label33")
End Sub
Private Sub Label34_Click()
BackColorMe1("Label34")
SetMyTag("Label34")
End Sub
Private Sub Label34_DblClick()
BackColorMe1("Label34")
SetMyTag("Label34")
End Sub
Private Sub Label35_Click()
BackColorMe1("Label35")
SetMyTag("Label35")
End Sub
Private Sub Label35_DblClick()
BackColorMe1("Label35")
SetMyTag("Label35")
End Sub
Private Sub Label36_Click()
BackColorMe1("Label36")
SetMyTag("Label36")
End Sub
Private Sub Label36_DblClick()
BackColorMe1("Label36")
SetMyTag("Label36")
End Sub
Private Sub Label37_Click()
BackColorMe1("Label37")
SetMyTag("Label37")
End Sub
Private Sub Label37_DblClick()
BackColorMe1("Label37")
SetMyTag("Label37")
End Sub
Private Sub Label38_Click()
BackColorMe1("Label38")
SetMyTag("Label38")
End Sub
Private Sub Label38_DblClick()
BackColorMe1("Label38")
SetMyTag("Label38")
End Sub
Private Sub Label39_Click()
BackColorMe1("Label39")
SetMyTag("Label39")
End Sub
Private Sub Label39_DblClick()
BackColorMe1("Label39")
SetMyTag("Label39")
End Sub
Private Sub Label40_Click()
BackColorMe1("Label40")
SetMyTag("Label40")
End Sub
Private Sub Label40_DblClick()
BackColorMe1("Label40")
SetMyTag("Label40")
End Sub
Private Sub BackColorMe1(CtrlName as String)
'Handles SingleClicked controls
'If BackColor = Grey Then Single Click turns backcolor Green
'If BC = Green, then turns Red
'If BC = Red, Then Turn Green
With Me.Controls(CtrlName)
If .BackColor = &HFFFFFF Then 'is Grey
.BackColor = &HC0FFC0 'turn Green
ElseIf .BackColor = &HC0FFC0 Then 'is Green
.BackColor = &HC0C0FF 'Turn red
ElseIf .BackColor = &HC0C0FF Then 'is Red
.BackColor = &HC0FFC0 'turn green
End If
End With
End Sub
Private Sub BackColorMe2(CtrlName as String)
'Handles doubleclicked Controls
'If BackColor = Grey, Then turn BC = Red
'If BC = Green, Then turn BC = Red
'If BC = Red, Then turn BC to Green
With Me.Controls(CtrlName)
If .BackColor = &HFFFFFF Then 'is Grey
.BackColor = &HC0FFC0 'turn Red
ElseIf .BackColor = &HC0FFC0 Then 'is Green
.BackColor = &HC0FFC0 'Turn red
ElseIf .BackColor = &HC0C0FF Then 'is Red
.BackColor = &HC0FFC0 'Turn green
End If
End With
End Sub
Private Sub Label1_Click()
BackColorMe1("Label1")
SetMyTag("Label1")
End Sub
Private Sub Label1_DblClick()
BackColorMe1("Label1")
SetMyTag("Label1")
End Sub
Private Sub Label2_Click()
BackColorMe1("Label2")
SetMyTag("Label2")
End Sub
Private Sub Label2_DblClick()
BackColorMe1("Label2")
SetMyTag("Label2")
End Sub
Private Sub Label3_Click()
BackColorMe1("Label3")
SetMyTag("Label3")
End Sub
Private Sub Label3_DblClick()
BackColorMe1("Label3")
SetMyTag("Label3")
End Sub
Private Sub Label4_Click()
BackColorMe1("Label4")
SetMyTag("Label4")
End Sub
Private Sub Label4_DblClick()
BackColorMe1("Label4")
SetMyTag("Label4")
End Sub
Private Sub Label5_Click()
BackColorMe1("Label5")
SetMyTag("Label5")
End Sub
Private Sub Label5_DblClick()
BackColorMe1("Label5")
SetMyTag("Label5")
End Sub
Private Sub Label6_Click()
BackColorMe1("Label6")
SetMyTag("Label6")
End Sub
Private Sub Label6_DblClick()
BackColorMe1("Label6")
SetMyTag("Label6")
End Sub
Private Sub Label7_Click()
BackColorMe1("Label7")
SetMyTag("Label7")
End Sub
Private Sub Label7_DblClick()
BackColorMe1("Label7")
SetMyTag("Label7")
End Sub
Private Sub Label8_Click()
BackColorMe1("Label8")
SetMyTag("Label8")
End Sub
Private Sub Label8_DblClick()
BackColorMe1("Label8")
SetMyTag("Label8")
End Sub
Private Sub Label9_Click()
BackColorMe1("Label9")
SetMyTag("Label9")
End Sub
Private Sub Label9_DblClick()
BackColorMe1("Label9")
SetMyTag("Label9")
End Sub
Private Sub Label10_Click()
BackColorMe1("Label10")
SetMyTag("Label10")
End Sub
Private Sub Label10_DblClick()
BackColorMe1("Label10")
SetMyTag("Label10")
End Sub
Private Sub Label11_Click()
BackColorMe1("Label11")
SetMyTag("Label11")
End Sub
Private Sub Label11_DblClick()
BackColorMe1("Label11")
SetMyTag("Label11")
End Sub
Private Sub Label12_Click()
BackColorMe1("Label12")
SetMyTag("Label12")
End Sub
Private Sub Label12_DblClick()
BackColorMe1("Label12")
SetMyTag("Label12")
End Sub
Private Sub Label13_Click()
BackColorMe1("Label13")
SetMyTag("Label13")
End Sub
Private Sub Label13_DblClick()
BackColorMe1("Label13")
SetMyTag("Label13")
End Sub
Private Sub Label14_Click()
BackColorMe1("Label14")
SetMyTag("Label14")
End Sub
Private Sub Label14_DblClick()
BackColorMe1("Label14")
SetMyTag("Label14")
End Sub
Private Sub Label15_Click()
BackColorMe1("Label15")
SetMyTag("Label15")
End Sub
Private Sub Label15_DblClick()
BackColorMe1("Label15")
SetMyTag("Label15")
End Sub
Private Sub Label16_Click()
BackColorMe1("Label16")
SetMyTag("Label16")
End Sub
Private Sub Label16_DblClick()
BackColorMe1("Label16")
SetMyTag("Label16")
End Sub
Private Sub Label17_Click()
BackColorMe1("Label17")
SetMyTag("Label17")
End Sub
Private Sub Label17_DblClick()
BackColorMe1("Label17")
SetMyTag("Label17")
End Sub
Private Sub Label18_Click()
BackColorMe1("Label18")
SetMyTag("Label18")
End Sub
Private Sub Label18_DblClick()
BackColorMe1("Label18")
SetMyTag("Label18")
End Sub
Private Sub Label19_Click()
BackColorMe1("Label19")
SetMyTag("Label19")
End Sub
Private Sub Label19_DblClick()
BackColorMe1("Label19")
SetMyTag("Label19")
End Sub
Private Sub Label20_Click()
BackColorMe1("Label20")
SetMyTag("Label20")
End Sub
Private Sub Label20_DblClick()
BackColorMe1("Label20")
SetMyTag("Label20")
End Sub
Private Sub Label21_Click()
BackColorMe1("Label21")
SetMyTag("Label21")
End Sub
Private Sub Label21_DblClick()
BackColorMe1("Label21")
SetMyTag("Label21")
End Sub
Private Sub Label22_Click()
BackColorMe1("Label22")
SetMyTag("Label22")
End Sub
Private Sub Label22_DblClick()
BackColorMe1("Label22")
SetMyTag("Label22")
End Sub
Private Sub Label23_Click()
BackColorMe1("Label23")
SetMyTag("Label23")
End Sub
Private Sub Label23_DblClick()
BackColorMe1("Label23")
SetMyTag("Label23")
End Sub
Private Sub Label24_Click()
BackColorMe1("Label24")
SetMyTag("Label24")
End Sub
Private Sub Label24_DblClick()
BackColorMe1("Label24")
SetMyTag("Label24")
End Sub
Private Sub Label25_Click()
BackColorMe1("Label25")
SetMyTag("Label25")
End Sub
Private Sub Label25_DblClick()
BackColorMe1("Label25")
SetMyTag("Label25")
End Sub
Private Sub Label26_Click()
BackColorMe1("Label26")
SetMyTag("Label26")
End Sub
Private Sub Label26_DblClick()
BackColorMe1("Label26")
SetMyTag("Label26")
End Sub
Private Sub Label27_Click()
BackColorMe1("Label27")
SetMyTag("Label27")
End Sub
Private Sub Label27_DblClick()
BackColorMe1("Label27")
SetMyTag("Label27")
End Sub
Private Sub Label28_Click()
BackColorMe1("Label28")
SetMyTag("Label28")
End Sub
Private Sub Label28_DblClick()
BackColorMe1("Label28")
SetMyTag("Label28")
End Sub
Private Sub Label29_Click()
BackColorMe1("Label29")
SetMyTag("Label29")
End Sub
Private Sub Label29_DblClick()
BackColorMe1("Label29")
SetMyTag("Label29")
End Sub
Private Sub Label30_Click()
BackColorMe1("Label30")
SetMyTag("Label30")
End Sub
Private Sub Label30_DblClick()
BackColorMe1("Label30")
SetMyTag("Label30")
End Sub
Private Sub Label31_Click()
BackColorMe1("Label31")
SetMyTag("Label31")
End Sub
Private Sub Label31_DblClick()
BackColorMe1("Label31")
SetMyTag("Label31")
End Sub
Private Sub Label32_Click()
BackColorMe1("Label32")
SetMyTag("Label32")
End Sub
Private Sub Label32_DblClick()
BackColorMe1("Label32")
SetMyTag("Label32")
End Sub
Private Sub Label33_Click()
BackColorMe1("Label33")
SetMyTag("Label33")
End Sub
Private Sub Label33_DblClick()
BackColorMe1("Label33")
SetMyTag("Label33")
End Sub
Private Sub Label34_Click()
BackColorMe1("Label34")
SetMyTag("Label34")
End Sub
Private Sub Label34_DblClick()
BackColorMe1("Label34")
SetMyTag("Label34")
End Sub
Private Sub Label35_Click()
BackColorMe1("Label35")
SetMyTag("Label35")
End Sub
Private Sub Label35_DblClick()
BackColorMe1("Label35")
SetMyTag("Label35")
End Sub
Private Sub Label36_Click()
BackColorMe1("Label36")
SetMyTag("Label36")
End Sub
Private Sub Label36_DblClick()
BackColorMe1("Label36")
SetMyTag("Label36")
End Sub
Private Sub Label37_Click()
BackColorMe1("Label37")
SetMyTag("Label37")
End Sub
Private Sub Label37_DblClick()
BackColorMe1("Label37")
SetMyTag("Label37")
End Sub
Private Sub Label38_Click()
BackColorMe1("Label38")
SetMyTag("Label38")
End Sub
Private Sub Label38_DblClick()
BackColorMe1("Label38")
SetMyTag("Label38")
End Sub
Private Sub Label39_Click()
BackColorMe1("Label39")
SetMyTag("Label39")
End Sub
Private Sub Label39_DblClick()
BackColorMe1("Label39")
SetMyTag("Label39")
End Sub
Private Sub Label40_Click()
BackColorMe1("Label40")
SetMyTag("Label40")
End Sub
Private Sub Label40_DblClick()
BackColorMe1("Label40")
SetMyTag("Label40")
End Sub