Alphabetically list of last names: BOLD, not bold
Hello Lerner,
I had given you a similar solution (copied below) to your yesterday's post
and provided clarification requested by you but you did not respond to that...
Pl. avoid doing this in future...
Code;
Sub highlight()
Dim lastRow, lastCol As Double
Dim pName As String
Dim flg As Boolean
With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
lastCol = .Cells(.Columns.Count, "A").End(xlToLeft).Column
End With
pName = ""
flg = True
For i = 2 To lastRow
If pName < Left(Cells(i, 1).Value, 1) Then
pName = Left(Cells(i, 1).Value, 1)
If flg = True Then
flg = False
Else
flg = True
End If
End If
If flg = True Then
'format
With Cells(i, 1).Characters(Start:=1, Length:=1).Font
..FontStyle = "Bold"
End With
With Cells(i, 1).Characters(Start:=2, Length:=255).Font
..FontStyle = "Regualar"
End With
End If
Next
End Sub
Your question which I had answered but ...
Eventough I don't like MACROS, if nothing else will help then:
Where or how I do the pasting of this macro.
I tried right clicking in the SHEET TAB going to VIEW and pasted it there
but did not do anything.
Thanks.
"Lerner" wrote:
Thanks Gary, for going with the extra effort and detailed explanation
in order to help me, I really appreciate your time.
Not meaning to be a pain, but this means Conditional Formatting
won't be able to do it ?
Thank you again.
"Gary''s Student" wrote:
This assumes that the names are stored in column A starting with A1. Enter
run run the following macro:
Sub boldAlternator()
Dim n As Long, FlipFlop As Boolean
n = Cells(Rows.Count, 1).End(xlUp).Row
Cells(1, 1).Font.Bold = True
FlipFlop = True
For i = 2 To n
If Left(Cells(i, 1).Value, 1) = Left(Cells(i - 1, 1).Value, 1) Then
Else
FlipFlop = Not FlipFlop
End If
Cells(i, 1).Font.Bold = FlipFlop
Next
End Sub
Suppose we start with data like:
Adams, Raymond
Allen, Timothy
Anderson, Christopher
Baker, Gregory
Brown, William
Campbell, Henry
Carter, Dennis
Clark, Ronald
Collins, Roger
Davis, David
Edwards, Ryan
Evans, Arthur
Garcia, Steven
Gonzalez, Joshua
Green, Andrew
Hall, Gary
Harris, Donald
Hernandez, Larry
Hill, Eric
Jackson, Paul
Johnson, John
Jones, Michael
King, Jeffrey
Lee, Jason
Lewis, Kevin
Lopez, Scott
Martin, George
Martinez, Edward
Miller, Richard
Mitchell, Walter
Moore, Joseph
Nelson, Jerry
Parker, Carl
Perez, Patrick
Phillips, Douglas
Roberts, Peter
Robinson, Brian
Rodriguez, Anthony
Scott, Stephen
Smith, James
Taylor, Thomas
Thomas, Daniel
Thompson, Kenneth
Turner, Harold
Walker, Matthew
White, Mark
Williams, Robert
Wilson, Charles
Wright, Frank
Young, Jose
The following name will be Bold, the other not:
Adams, Raymond
Allen, Timothy
Anderson, Christopher
Campbell, Henry
Carter, Dennis
Clark, Ronald
Collins, Roger
Edwards, Ryan
Evans, Arthur
Hall, Gary
Harris, Donald
Hernandez, Larry
Hill, Eric
King, Jeffrey
Martin, George
Martinez, Edward
Miller, Richard
Mitchell, Walter
Moore, Joseph
Parker, Carl
Perez, Patrick
Phillips, Douglas
Scott, Stephen
Smith, James
Walker, Matthew
White, Mark
Williams, Robert
Wilson, Charles
Wright, Frank
--
Gary''s Student - gsnu200835
"Lerner" wrote:
All items beggining with A BOLD
Last name and Fist name BOLD (full name)as they are in the same cell.
THANKS Gary.
"Gary''s Student" wrote:
Do you want all of the items beginning with "A" to be bold or only the first
item?
Do you want only the lastname to be bold or the fullname?
--
Gary''s Student - gsnu200835
"Lerner" wrote:
Actually none of them had work.
A B C
1 NAMES
2 ARIES, JOHN
3 ACTUAL, JANE
4 CONSECUTIVE, MIKE
5 EXCEL, MICROSOFT
6 EVEREST, TRISIA
7 HINGS, PAULA
Basically the thing is get the first one ( last name with A) BOLD and then
alternating with the list (not bold, bold, not bold, bold) regardless of the
missing secuency as in this case it will be ABOLD, Cnot bold, E bold,
H not bold.
I'd rather use conditional formatting than MACROS.
Thanks.
|