If statement with CommandButton

**SamT** · 09-02-2014, 10:51 AM

thanks

**SamT** · 09-02-2014, 04:58 PM

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

**LukeAM** · 09-03-2014, 01:28 AM

Thanks a lot SamT again. I have copied and edited that code from the point where you said, this point is after the 'Copy_Template()' sub. Now though the 'SetMyTag(CtrlName As String)' is in red, I have just put 'Private Sub' in front of this to solve this problem.

Also the code you have just posted from 'Private Sub BackColorMe1 (CtrlName As String)' I believe has been copied down twice by accident? Therefore, the error 'Ambiguous name detected' is occuring. I have deleted what I think is the accidental second copy and now it is coming up with the error 'Procedure declaration does not match description of even or procedure having the same name'.

**SamT** · 09-03-2014, 02:27 PM

There should be two versions of BackcolorMe: Version 1 ("BackColorMe1") is used by the Label_Click subs and Version2 ("BackColorMe2") is used by the Label_DblClick subs. (v1 = Click. v2 = Clickclick

)

I see that I called Version1 in the Label_DblClick subs. They should call Version2.

My very bad. I am sorry. I leave it to you to correct that.

The rationale behind two BackColorMe versions: In all but the default state of Grey back colors, the two work identically. IE, they merely swap the colors between Red and Green. In the Case where the Label has not yet been clicked at all, Version 1 sets the BC to green and Version2 sets it to Red.

The reason is that your users will quickly get used to clicking twice to turn the BC red. Eventually, they will click twice so fast that it is a DblClick. If there was not a Label_DblClick sub, the user would be frustrated by having to wait a second and try again slower. The Green/Red swapping part of Version2 is just in case Some Users have twitchy trigger fingers like I do

**LukeAM** · 09-04-2014, 08:30 AM

OK thanks Sam T. I'll do it now and hope it works

Thread: If statement with CommandButton

Thread Tools

Display

Posting Permissions