hello,
I have this problem that is driving me crazy!
row a row b
uk RGB(191, 13, 31)
usa RGB(11, 47, 107)
I have a form with a combobox where there is a list from row a, now with a macro I should change the background of a texbox with the color of row b.
I get the error at thi " TextBox1.BackColor = y"
this is the macro
Private Sub CBcolore_Change()
Dim rng As Range
Dim z
Dim col
Dim y
x = UserForm1.CBcolore.Value
z = Sheets("ELENCHI").Range("B2:B1000")
With Sheets("ELENCHI").Range("G1:G10000")
Set rng = .Find(What:=x, LookIn:=xlValues)
If Not rng Is Nothing Then
Application.Goto rng, True
ActiveCell.Offset(0, 1).Select
y = ActiveCell.Value
TextBox1.BackColor = y
Exit Sub
End If
End With
end sub
thanks for your help
Bookmarks