Using Cell Result to Identify Form Label

[Maryz]

I have a hundred labels on a user form (Label1, Label2,……Label100) and I’d like to write a procedure where the back color changes depending on a certain criteria. I’d like to use the integer result in a spreadsheet cell to determine which label is selected (ie. “Label22.BackColor = ******” where “22” is the result in a cell). I’ve tried dimensioning variables as labels and concatenating a string with the cell range (L1 = “Label” & Range(“ResultRange”) but I cannot seem to get this procedure to work. Any help is appreciated. Thank you.

 

[Andrew Poulsom]

Try something like:

UserForm1.Controls("Label" & 22).BackColor =22

You can use variables in place of the 22's.

 

[Maryz]

Exactly what I was looking for. Many thanks Andrew.

 

[BrianB]

Not sure exactly what you are trying to do, but perhaps this will help :-

'------------------------------------------
myvalue = ActiveSheet.Range("A1").Value
myname = "Label" & myvalue
Controls(myname).BackColor = RGB(255, 0, 0)
'-------------------------------------------