Change BackColor of Label in Userform based on Textbox Value

[Senthil Murugan]

Good Morning Everybody

Can anybody help me to correct this code

Userform1.Label1.BackColor = Userform1.Textbox1.Value ( which is like ColorIndex from 1 to 56 )


with regards


A.Senthil Murugan

 

[DanteAmor]

Try:

Private Sub TextBox1_Change()
  Dim n&

  With UserForm1.TextBox1
    If .Value >= 1 And .Value <= 56 Then
      'convert colorindex (1 to 56) to RGB
      n = ActiveWorkbook.Colors(.Value)
      UserForm1.Label1.BackColor = RGB((n Mod 256), (n \ 256) Mod 256, (n \ 65536) Mod 256)
    Else
      'default color
      UserForm1.Label1.BackColor = &H8000000F
    End If
  End With
End Sub