how to change colour of cell if anything is entered in textbox

Patriot2879

Well-known Member
Joined
Feb 1, 2018
Messages
1,036
Hello :), good morning all. Just wondering f you can help please. I have the code below, but this time I want the row to change colour if anything is entered into the textbox so not word specific I have tried for the TextBox14 value "" and "*" but that didn't work, please can you advise.

Code:
Private Sub TextBox14_Change()
  With ThisWorkbook.Sheets("Sheet1")
  emptyRow = .Cells(Rows.Count, "O").End(xlUp).Row + 1
    If TextBox14.value = "" Then Range(.Cells(emptyRow, 1), .Cells(emptyRow, 18)).Interior.Color = RGB(200, 0, 0)

  End With
End Sub
 

Some videos you may like

Excel Facts

Convert text numbers to real numbers
Select a column containing text numbers. Press Alt+D E F to quickly convert text to numbers. Faster than "Convert to Number"

Jon von der Heyden

MrExcel MVP, Moderator
Joined
Apr 6, 2004
Messages
10,798
Office Version
365
Platform
Windows
You could check that the length of the text in the TextBox is not 0:

Code:
If Len(TextBox14.Value) Then
 

Patriot2879

Well-known Member
Joined
Feb 1, 2018
Messages
1,036
hi just adapted to the code below but still didn't work, hope you can advise please? whats needed is for the background to change colour no matter what is entered into the textbox14

Code:
Private Sub TextBox14_Change()
  With ThisWorkbook.Sheets("Sheet1")
  emptyRow = .Cells(Rows.Count, "O").End(xlUp).Row + 1
    If Len(TextBox14.value) = "" Then Range(.Cells(emptyRow, 1), .Cells(emptyRow, 18)).Interior.ColorIndex = 37

  End With
End Sub
 

Jon von der Heyden

MrExcel MVP, Moderator
Joined
Apr 6, 2004
Messages
10,798
Office Version
365
Platform
Windows
Howdy

Remove the = ""
Rich (BB code):
If Len(TextBox14.value) = "" Then
 

Watch MrExcel Video

Forum statistics

Threads
1,099,579
Messages
5,469,503
Members
406,656
Latest member
Kriscrawford76

This Week's Hot Topics

Top