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
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("D1100")) 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
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.