Coloring A Text Box in an Excel Form

[cgmackenzie]

Hi All,

I'm trying to create a form in which users enter their information into text boxes. I'd like each text box to have a red fill until information is entered. Once information is entered into the box I'd like there to be no fill. Any ideas?

Thanks for the help!

 

[Trevor G]

Behind the form you would something along this line for when the form is initialized or activated.

Private Sub UserForm_Initialize()
Me.TextBox1.BackColor = vbRed
End Sub

Then each textbox has events and shown below is an example when a textbox has something in it to colour it white.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox1.Value <> "" Then Me.TextBox1.BackColor = vbWhite

End Sub

 

[cgmackenzie]

Thanks Trevor,

I'm a VBA beginner.

Can you please give me a step by step including the exact code (so I can copy and paste) and how I should enter it into VBA.

Thanks,

Colin

 

[Trevor G]

Colin when you say your are creating a form do you mean you are using a VBA form? if you are using a worksheet then you would use conditional formatting from the home Tab. Select the cells and first then use the equal to option and see this example.

Excel Workbook
	G
3	q
4	e
5	f
6
7
8
9
10
11
12
13
14
15
Sheet1

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
G3	1. / Cell Value equal to =""	Abc
G4	1. / Cell Value equal to =""	Abc
G5	1. / Cell Value equal to =""	Abc
G6	1. / Cell Value equal to =""	Abc
G7	1. / Cell Value equal to =""	Abc
G8	1. / Cell Value equal to =""	Abc
G9	1. / Cell Value equal to =""	Abc
G10	1. / Cell Value equal to =""	Abc
G11	1. / Cell Value equal to =""	Abc
G12	1. / Cell Value equal to =""	Abc
G13	1. / Cell Value equal to =""	Abc
G14	1. / Cell Value equal to =""	Abc
G15	1. / Cell Value equal to =""	Abc