Label Change Color When Text in cell is "true" on userform

[Hjemmet]

i have this kind of Code in vba on my userform

Sub resetLabels()
If Sheets("Cup 128").Range("E5").Value <> False Then Label1.Caption = Sheets("Cup 128").Range("E5").Value
End Sub

this part works fine But when i try to put the Code Below into my code then the label get Red
when Start userform and no data in Cell ("D5")

I have try to get this code into it for change the Color if ("D5") have the right Text ("Text")

If Sheets("Cup 128").Range("D5").Text = "True" Then
        Me.Label1.BackColor = vbRed
        End If

but it aint work

 

[Hjemmet]

HM HM HM i thanks for the idea But that Combo stuff give me LONG hair

but give it a try any way

thanks for you help So Far

 

[Hjemmet]

I have now Try you Solution and put code in and made a Single userform And combo work but code stop with error in this Line

Sub resetLabels()   With Sheets("Cup 128")
      For i = Rw To Rw + 29 Step 4
         j = j + 1
         If .Range("E" & i).Value <> False Then[COLOR=#ffff00] [/COLOR][COLOR=#ff0000]Me.Controls("Label" & j).Caption = .Range("E" & i).Value[/COLOR][COLOR=#ffff00][/COLOR]
         If .Range("E" & i + 1).Value <> False Then Me.Controls("Label" & j + 1).Caption = .Range("E" & i + 1).Value
         Me.Controls("Label" & j).BackColor = IIf(.Range("D" & i).Value, vbRed, vbWhite)
         Me.Controls("Label" & j + 1).BackColor = IIf(.Range("D" & i + 1).Value, vbRed, vbWhite)
         j = j + 1
      Next i

 

[Fluff]

How about

https://1drv.ms/x/s!AtYrlcV2NWPFgnwJdPE60vyl_cE4?e=GLZ0R0

 

[Hjemmet]

I must SAY that Was Brilliant

i thanks for that Idea and will use it for my Big file Later with Lots of Game Solutions

SO Thanks Again for you help

 

[Fluff]

You're welcome & thanks for the feedback

 

[Hjemmet]

Hey Fluff First of all Thanks Again for Your Help so far..

the first 1-8 works Brilliant

but i Need some help with the Last And most Importen Board "The Finale Games from the last 16 Players who run Through Round 1 to 8

and on that Userform there are NO textbox's Only Labels from Label40 to Label69
Label40 to Label55 takes data from "E264 to E306" 16 players left 1/8 Finale)
Label56 to Label63 takes data from "I267 to E304" 8 Players left (Quarter Finale)
Label64 to Label67 takes data from "M273 to M298" 4 Players left (semi Finale)
Label68 to Label69 takes data from "R265 to R266" 2 Players left (Finale)

Label70 came by read cell where Vwinner is

and Same numbers of Commandbuttons (CB) start from
CB40 for Label40 to CB55 for Label55
CB56 for Label56 to CB63 for label63
CB64 for Label64 to CB67 for Label67
CB68 for Label68 to CB69 for Label69

Hope that was enough

 

[Fluff]

Use this

Sub resetLabels()
   With Sheets("Cup 128")
        J = 39
      For i = 264 To 307 Step 4
         J = J + 1
         If .Range("E" & i).Value <> False Then Me.Controls("Label" & J).Caption = .Range("E" & i).Value
         If .Range("E" & i + 1).Value <> False Then Me.Controls("Label" & J + 1).Caption = .Range("E" & i + 1).Value
         Me.Controls("Label" & J).BackColor = IIf(.Range("D" & i).Value, vbRed, vbWhite)
         Me.Controls("Label" & J + 1).BackColor = IIf(.Range("D" & i + 1).Value, vbRed, vbWhite)
         J = J + 1
      Next i
      For i = 267 To 304 Step 8
         J = J + 1
         If .Range("I" & i).Value <> False Then Me.Controls("Label" & J).Caption = .Range("I" & i).Value
         If .Range("I" & i + 1).Value <> False Then Me.Controls("Label" & J + 1).Caption = .Range("I" & i + 1).Value
         Me.Controls("Label" & J).BackColor = IIf(.Range("H" & i).Value, vbRed, vbWhite)
         J = J + 1
      Next i
   End With
End Sub

This will get rid of the problem when loading the form, but some of your commandbuttons are looking at the labels/buttons

 

[Hjemmet]

thanks THAT was fast

i take a look on my Commandbuton/labels when i get Home from Job

 

[Hjemmet]

https://www.dropbox.com/s/u87vnpomy0nfenj/total%20changes.xlsm?dl=0

new link to my file Just try it at Work after i got some spare time (LOL)

 

[Fluff]

Is it working?
If not what problems do you get?