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]

Thanks But Nothing Then Appear in the Last 4 Labels on the Userform

but the "False Get AWAY"

 

[Fluff]

How have you changed it?

 

[Hjemmet]

as the way you descripe for mee at the 2 first line of you small change to change i my Code

so now it look's like this

Sub resetLabels()   With Sheets("Cup 128")
      For i = Rw To Rw + 29 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 = Rw + 2 To Rw + 27 Step 8
         J = J + 1
         Me.Controls("Label" & J).Caption = IIf(.Range("I" & i).Value = False, "", .Range("I" & i).Value)
         Me.Controls("Label" & J + 1).Caption = IIf(.Range("I" & i + 1).Value = False, "", .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 = Rw + 6 To Rw + 23 Step 16
         J = J + 1
         Me.Controls("Label" & J).Caption = IIf(.Range("I" & i).Value = False, "", .Range("I" & i).Value)
         Me.Controls("Label" & J + 1).Caption = IIf(.Range("I" & i + 1).Value = False, "", .Range("I" & 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
   End With
End Sub

i find it i didn change the Importen Part in the code

Me.Controls("Label" & J).Caption = IIf(.Range("[COLOR=#ff0000]I[/COLOR]" & i).Value = False, "", .Range("[COLOR=#ff0000]I[/COLOR]" & i).Value)
         Me.Controls("Label" & J + 1).Caption = IIf(.Range("[COLOR=#ff0000]I[/COLOR]" & i + 1).Value = False, "", .Range("[COLOR=#ff0000]I[/COLOR]" & 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

to M i did that and it works

 

[Hjemmet]

Thank you for your help again Fluff

 

[Fluff]

Glad you figured it out & thanks for the feedback