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]

I have put your new code on my userform but not all the Labels Works

as it should

 

[Fluff]

Can you please post the code that is not working & explain why?

 

[Hjemmet]

this is the second Resetlabels code i get from you

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

but on my userform1 there are 16 Labels for "E" and 8 Labels for "I" and 4 Labels for "M" and 2 Labels for "R" where my Labels get there Value's
and some of the Labels Don't show anything at all
and some of the Labels Flash as they should
and My commandbuttons Works

 

[Fluff]

In your latest file, you have changed all the command button codes, so none of them work!

 

[Hjemmet]

I take a look on it later to day

 

[Fluff]

This should do the Reset

Sub resetLabels()
   With Sheets("Cup 128")
        J = 39
      For i = 264 To 307 Step 6
         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 12
         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)
         Me.Controls("Label" & J + 1).BackColor = IIf(.Range("H" & i + 1).Value, vbRed, vbWhite)
         J = J + 1
      Next i
      For i = 273 To 298 Step 24
         J = J + 1
         If .Range("M" & i).Value <> False Then Me.Controls("Label" & J).Caption = .Range("M" & i).Value
         If .Range("M" & i + 1).Value <> False Then Me.Controls("Label" & J + 1).Caption = .Range("M" & i + 1).Value
         Me.Controls("Label" & J).BackColor = IIf(.Range("L" & i).Value, vbRed, vbWhite)
         Me.Controls("Label" & J + 1).BackColor = IIf(.Range("L" & i + 1).Value, vbRed, vbWhite)
         J = J + 1
      Next i
      For i = 285 To 286 Step 2
         J = J + 1
         If .Range("R" & i).Value <> False Then Me.Controls("Label" & J).Caption = .Range("R" & i).Value
         If .Range("R" & i + 1).Value <> False Then Me.Controls("Label" & J + 1).Caption = .Range("R" & i + 1).Value
         Me.Controls("Label" & J).BackColor = IIf(.Range("Q" & i).Value, vbRed, vbWhite)
         Me.Controls("Label" & J + 1).BackColor = IIf(.Range("Q" & i + 1).Value, vbRed, vbWhite)
         J = J + 1
      Next i
   
   End With
End Sub

 

[Hjemmet]

Again you DID it....

Thank YOU so much for your Time to Figure IT out

it WORKS like a Shinning Diamond

 

[Fluff]

You're welcome & thanks for the feedback

 

[Hjemmet]

A Single option

on my userform1 after the new Code i got it works as it should be

i need a little option wher Label 70 Shows Me Who's the Winner is, it Possibel Just to Get the Winner Show in My Label70
right now my Label68 and 69 show the Player with Red Bagground as the looser of the Game

Label70 looks on Cell "R285" and "R286"

 

[Fluff]

You can just add a line of code into the last two commandbuttons, to change the caption of Label70