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

What is the fastest way to copy a formula?
If A2:A50000 contain data. Enter a formula in B2. Select B2. Double-click the Fill Handle and Excel will shoot the formula down to B50000.

Jon von der Heyden

MrExcel MVP, Moderator
Joined
Apr 6, 2004
Messages
10,796
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,796
Office Version
365
Platform
Windows
Howdy

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

Watch MrExcel Video

Forum statistics

Threads
1,089,947
Messages
5,411,457
Members
403,372
Latest member
andrepi

This Week's Hot Topics

Top