ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Auto change to Bold Font (https://www.excelbanter.com/excel-discussion-misc-queries/161001-auto-change-bold-font.html)

Centrol

Auto change to Bold Font
 
I have a database in Excel, 10 columns. In col 5, if input is "client", I
want that whole row to change to Bold Font.
How to do this?



Pete_UK

Auto change to Bold Font
 
By using Conditional Formatting on the Format menu.

Debra Dalgleish explains more he

http://www.contextures.com/xlCondFormat01.html

Hope this helps.

Pete

On Oct 5, 12:50 pm, "Centrol" wrote:
I have a database in Excel, 10 columns. In col 5, if input is "client", I
want that whole row to change to Bold Font.
How to do this?




Mike H

Auto change to Bold Font
 
Hi,

Your a bit low on detail so I have assumed Column 5 of your databse is
column E so change to suit. Right click the worksheet, view code and paste
this in:-

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E1:E100")) Is Nothing Then ' alter to suit
If Target.Value = "Client" Then
Target.EntireRow.Select
Selection.Font.Bold = True
Target.Select
End If
End If
End Sub


Mike

"Centrol" wrote:

I have a database in Excel, 10 columns. In col 5, if input is "client", I
want that whole row to change to Bold Font.
How to do this?




Centrol

Auto change to Bold Font
 
Thanks Mike. The deciding column is D. So this is what I paste :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1:D100")) Is Nothing Then
If Target.Value = "Client" Then
Target.EntireRow.Select
Selection.Font.Bold = True
Target.Select
End If
End If
End Sub

Nothing happened. Plse tell me what have I missed? Thanks


"Mike H" wrote in message
...
Hi,

Your a bit low on detail so I have assumed Column 5 of your databse is
column E so change to suit. Right click the worksheet, view code and paste
this in:-

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E1:E100")) Is Nothing Then ' alter to suit
If Target.Value = "Client" Then
Target.EntireRow.Select
Selection.Font.Bold = True
Target.Select
End If
End If
End Sub


Mike

"Centrol" wrote:

I have a database in Excel, 10 columns. In col 5, if input is "client",
I
want that whole row to change to Bold Font.
How to do this?







All times are GMT +1. The time now is 03:24 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com