Hi i got a sheet in a work book that i am working on now with form control (dropdown). The code i made changes the color for the text in the entire row, or highlights it, works fine.
But i would like to add code to change the cell value from the number that appear in the cell, to the word shown in the control.
Not entirely sure how to do that.
Sub RullegardinA67_Endre()
Set MyColouredRow = Range("A67")
For Each Cell In MyColouredRow
Select Case Cell.Value
Case Is = "1"
Cell.EntireRow.Font.ColorIndex = 1
Case Is = "2"
Cell.EntireRow.Font.ColorIndex = 3
Case Is = "3"
Cell.EntireRow.Font.ColorIndex = 5
Case Is = "4"
Cell.EntireRow.Font.ColorIndex = 7
Case Is = "5"
Cell.EntireRow.Font.ColorIndex = 17
Case Is = "6"
Cell.EntireRow.Font.ColorIndex = 4
Case Is = "7"
Cell.EntireRow.Interior.ColorIndex = 6
Cell.EntireRow.Font.ColorIndex = 1
Case Else
Cell.EntireRow.Interior.ColorIndex = xlNone
Cell.EntireRow.Font.ColorIndex = 1
End Select
Next
End Sub