Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional formatting in text boxes
I have textboxes on a userform.
The text boxes read (and write) to cells A1:A60 Adjacent to these cells I have a comments column which is filled in for particular rows Depending on whether the adjacent cell in column B has an entry, is there a way to make the textboxes change their font attributes? For example, become BOLD when there is a comment. Can anyone help? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional formatting in text boxes
You should have posted your code..Within your loop add a line something like
the below.. Dim intCount as Integer For intCount = 1 To 60 Me.Controls("Textbox" & intCount).Font.Bold = _ Not (Range("A" & intCount).Offset(, 1).Text = "") Next -- Jacob "Roger on Excel" wrote: I have textboxes on a userform. The text boxes read (and write) to cells A1:A60 Adjacent to these cells I have a comments column which is filled in for particular rows Depending on whether the adjacent cell in column B has an entry, is there a way to make the textboxes change their font attributes? For example, become BOLD when there is a comment. Can anyone help? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional formatting in text boxes
Since you didn't post any code you probably have lots of options. Do you
change the values of the cells using the Userform interface or the worksheet? If the worksheet and you didn't change the default Textbox names, then you probably want to setup a Worksheet_Change Event call a sub like this: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = "B" Then Call TextBoxBolding(Target.Row) End If End Sub Sub TextBoxBolding(rw As Long) Me.Controls("Textbox" & rw).Font.Bold = Not Cells(rw, "B").Text = "" End Sub Or you could put Jacob's code in your Userform_Intialize Event. Private Sub UserForm_Initialize() Dim i As Long For i = 1 To 60 Me.Controls("Textbox" & i).Font.Bold = Not Cells(i, "B").Text = "" Next i End Sub Hope this helps! If so, let me know, click "YES" below. -- Cheers, Ryan "Roger on Excel" wrote: I have textboxes on a userform. The text boxes read (and write) to cells A1:A60 Adjacent to these cells I have a comments column which is filled in for particular rows Depending on whether the adjacent cell in column B has an entry, is there a way to make the textboxes change their font attributes? For example, become BOLD when there is a comment. Can anyone help? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional formatting in text boxes
Dear Jacob,
Thankyou for the code - it works very nicely. I was able to modify it for my purposes relatively easily. Apologies for not including the code I am using. I have a question - how does one change other text attributes using this code? for example if I want to change the the color to red or even change the font? Best regards, Roger "Jacob Skaria" wrote: You should have posted your code..Within your loop add a line something like the below.. Dim intCount as Integer For intCount = 1 To 60 Me.Controls("Textbox" & intCount).Font.Bold = _ Not (Range("A" & intCount).Offset(, 1).Text = "") Next -- Jacob "Roger on Excel" wrote: I have textboxes on a userform. The text boxes read (and write) to cells A1:A60 Adjacent to these cells I have a comments column which is filled in for particular rows Depending on whether the adjacent cell in column B has an entry, is there a way to make the textboxes change their font attributes? For example, become BOLD when there is a comment. Can anyone help? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional formatting in text boxes
Put this in your Userform Intialize Event
Private Sub UserForm_Initialize() Dim i As Long For i = 1 To 1 With Me.Controls("Textbox" & i) .Font.Bold = Not Cells(i, "B").Text = "" .BackColor = 255 .Font.Name = "Tahoma" End With Next i End Sub -- Cheers, Ryan "Roger on Excel" wrote: Dear Jacob, Thankyou for the code - it works very nicely. I was able to modify it for my purposes relatively easily. Apologies for not including the code I am using. I have a question - how does one change other text attributes using this code? for example if I want to change the the color to red or even change the font? Best regards, Roger "Jacob Skaria" wrote: You should have posted your code..Within your loop add a line something like the below.. Dim intCount as Integer For intCount = 1 To 60 Me.Controls("Textbox" & intCount).Font.Bold = _ Not (Range("A" & intCount).Offset(, 1).Text = "") Next -- Jacob "Roger on Excel" wrote: I have textboxes on a userform. The text boxes read (and write) to cells A1:A60 Adjacent to these cells I have a comments column which is filled in for particular rows Depending on whether the adjacent cell in column B has an entry, is there a way to make the textboxes change their font attributes? For example, become BOLD when there is a comment. Can anyone help? |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional formatting in text boxes
Correction,
Private Sub UserForm_Initialize() Dim i As Long For i = 1 To 60 With Me.Controls("Textbox" & i) ' bold or unbold font .Font.Bold = Not Cells(i, "B").Text = "" ' change font color .BackColor = 255 ' change font name .Font.Name = "Tahoma" End With Next i End Sub Hope this helps! If so, let me know, click "YES" below. -- Cheers, Ryan "Roger on Excel" wrote: Dear Jacob, Thankyou for the code - it works very nicely. I was able to modify it for my purposes relatively easily. Apologies for not including the code I am using. I have a question - how does one change other text attributes using this code? for example if I want to change the the color to red or even change the font? Best regards, Roger "Jacob Skaria" wrote: You should have posted your code..Within your loop add a line something like the below.. Dim intCount as Integer For intCount = 1 To 60 Me.Controls("Textbox" & intCount).Font.Bold = _ Not (Range("A" & intCount).Offset(, 1).Text = "") Next -- Jacob "Roger on Excel" wrote: I have textboxes on a userform. The text boxes read (and write) to cells A1:A60 Adjacent to these cells I have a comments column which is filled in for particular rows Depending on whether the adjacent cell in column B has an entry, is there a way to make the textboxes change their font attributes? For example, become BOLD when there is a comment. Can anyone help? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Conditional text boxes on Form | Excel Programming | |||
Formatting in Text Boxes | Excel Programming | |||
Formatting Text boxes for Date Entry | Excel Programming | |||
formatting text boxes | Excel Programming | |||
Check Boxes and Conditional Formatting | Excel Programming |