Reduce Size of Blank Rows
 

I am using Excel 2007, and I have a column that contains many blank rows.
These blank rows are all 16-point in size, and I want to reduce all of them
to 8-point or even lower in order to tighten up the appearance. Is there any
way I can do this automatically (and without sorting the rows)? Please keep
in mind that I am a very new user, and I am unfamilar with macros and the
like. So if there is a way to do this, please explain the procedure in as
easy English as possible. Thank you.

Reduce Size of Blank Rows
 

Hi Rebecca,
This solution is with a macro, that you will have to invoke.
If not familiar with macros see
http://www.mvps.org/dmcritchie/excel....htm#havemacro

If you want to restart such that all cells are formatted first
as 16 points then include by removing the single quote in front of
' Cells.Font.Size = 16
in the code below.

Sub Reduce_Height_of_Empty_Rows()
'-- Reduce_Height_of_Empty_Rows to 8pts
' D.McRitchie, 2008-02-23 in excel.newusers
Dim LastRow As Long
Dim I As Long
' Cells.Font.Size = 16 ™*
LastRow = Cells.SpecialCells(xlLastCell).Row
For I = LastRow To 2 Step -1
If Application.CountA(Cells(I, 1).EntireRow) = 0 Then
Cells(I, 1).EntireRow.Font.Size = 8
End If
Next I
End Sub

--
HTH,
David McRitchie, Microsoft MVP -- Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm


"Rebecca" wrote in message ...
I am using Excel 2007, and I have a column that contains many blank rows.
These blank rows are all 16-point in size, and I want to reduce all of them
to 8-point or even lower in order to tighten up the appearance. Is there any
way I can do this automatically (and without sorting the rows)? Please keep
in mind that I am a very new user, and I am unfamilar with macros and the
like. So if there is a way to do this, please explain the procedure in as
easy English as possible. Thank you.

Reduce Size of Blank Rows
 

Thanks, David. One question before I attempt to create a macro (I am a new
user so I will have to study the info contained in the link you provided.
Wish me luck.). Regarding this line:

' Cells.Font.Size = 16 ™*

Is the "spade" symbol at the end of the above line correct? Or is it just
to attract my attention?


"David McRitchie" wrote:

Hi Rebecca,
This solution is with a macro, that you will have to invoke.
If not familiar with macros see
http://www.mvps.org/dmcritchie/excel....htm#havemacro

If you want to restart such that all cells are formatted first
as 16 points then include by removing the single quote in front of
' Cells.Font.Size = 16
in the code below.

Sub Reduce_Height_of_Empty_Rows()
'-- Reduce_Height_of_Empty_Rows to 8pts
' D.McRitchie, 2008-02-23 in excel.newusers
Dim LastRow As Long
Dim I As Long
' Cells.Font.Size = 16 ™*
LastRow = Cells.SpecialCells(xlLastCell).Row
For I = LastRow To 2 Step -1
If Application.CountA(Cells(I, 1).EntireRow) = 0 Then
Cells(I, 1).EntireRow.Font.Size = 8
End If
Next I
End Sub

--
HTH,
David McRitchie, Microsoft MVP -- Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm


"Rebecca" wrote in message ...
I am using Excel 2007, and I have a column that contains many blank rows.
These blank rows are all 16-point in size, and I want to reduce all of them
to 8-point or even lower in order to tighten up the appearance. Is there any
way I can do this automatically (and without sorting the rows)? Please keep
in mind that I am a very new user, and I am unfamilar with macros and the
like. So if there is a way to do this, please explain the procedure in as
easy English as possible. Thank you.

Reduce Size of Blank Rows
 

Rebecca

The symbol after the 16 is a question mark ?

David is giving you the option to change the font size to what you want.

If you want to restart such that all cells are formatted first
as 16 points then include by removing the single quote in front of
' Cells.Font.Size = 16

You would also remove the question mark.


Gord Dibben MS Excel MVP

On Sat, 23 Feb 2008 17:13:00 -0800, Rebecca
wrote:

Thanks, David. One question before I attempt to create a macro (I am a new
user so I will have to study the info contained in the link you provided.
Wish me luck.). Regarding this line:

' Cells.Font.Size = 16 ?

Is the "spade" symbol at the end of the above line correct? Or is it just
to attract my attention?


"David McRitchie" wrote:

Hi Rebecca,
This solution is with a macro, that you will have to invoke.
If not familiar with macros see
http://www.mvps.org/dmcritchie/excel....htm#havemacro

If you want to restart such that all cells are formatted first
as 16 points then include by removing the single quote in front of
' Cells.Font.Size = 16
in the code below.

Sub Reduce_Height_of_Empty_Rows()
'-- Reduce_Height_of_Empty_Rows to 8pts
' D.McRitchie, 2008-02-23 in excel.newusers
Dim LastRow As Long
Dim I As Long
' Cells.Font.Size = 16 ?
LastRow = Cells.SpecialCells(xlLastCell).Row
For I = LastRow To 2 Step -1
If Application.CountA(Cells(I, 1).EntireRow) = 0 Then
Cells(I, 1).EntireRow.Font.Size = 8
End If
Next I
End Sub

--
HTH,
David McRitchie, Microsoft MVP -- Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm


"Rebecca" wrote in message ...
I am using Excel 2007, and I have a column that contains many blank rows.
These blank rows are all 16-point in size, and I want to reduce all of them
to 8-point or even lower in order to tighten up the appearance. Is there any
way I can do this automatically (and without sorting the rows)? Please keep
in mind that I am a very new user, and I am unfamilar with macros and the
like. So if there is a way to do this, please explain the procedure in as
easy English as possible. Thank you.

Reduce Size of Blank Rows
 

sorry, something in Vista or my charset keeps putting
garbage in when I do something like backspace, but
I don't know if it is some legitimate shortcut for special
characters or what. I don't even know what I do to put
it there, it is not on purpose. Remove it, it's not supposed to be
there. Characters not in the font that one is looking
typically show up as ? (question mark) but I do see the
spade myself.

--
HTH,
David McRitchie, Microsoft MVP -- Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm


"Gord Dibben" <gorddibbATshawDOTca wrote in message ...
Rebecca

The symbol after the 16 is a question mark ?

David is giving you the option to change the font size to what you want.

If you want to restart such that all cells are formatted first
as 16 points then include by removing the single quote in front of
' Cells.Font.Size = 16

You would also remove the question mark.


Gord Dibben MS Excel MVP

On Sat, 23 Feb 2008 17:13:00 -0800, Rebecca
wrote:

Thanks, David. One question before I attempt to create a macro (I am a new
user so I will have to study the info contained in the link you provided.
Wish me luck.). Regarding this line:

' Cells.Font.Size = 16 ?

Is the "spade" symbol at the end of the above line correct? Or is it just
to attract my attention?


"David McRitchie" wrote:

Hi Rebecca,
This solution is with a macro, that you will have to invoke.
If not familiar with macros see
http://www.mvps.org/dmcritchie/excel....htm#havemacro

If you want to restart such that all cells are formatted first
as 16 points then include by removing the single quote in front of
' Cells.Font.Size = 16
in the code below.

Sub Reduce_Height_of_Empty_Rows()
'-- Reduce_Height_of_Empty_Rows to 8pts
' D.McRitchie, 2008-02-23 in excel.newusers
Dim LastRow As Long
Dim I As Long
' Cells.Font.Size = 16 ?
LastRow = Cells.SpecialCells(xlLastCell).Row
For I = LastRow To 2 Step -1
If Application.CountA(Cells(I, 1).EntireRow) = 0 Then
Cells(I, 1).EntireRow.Font.Size = 8
End If
Next I
End Sub

--
HTH,
David McRitchie, Microsoft MVP -- Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm


"Rebecca" wrote in message ...
I am using Excel 2007, and I have a column that contains many blank rows.
These blank rows are all 16-point in size, and I want to reduce all of them
to 8-point or even lower in order to tighten up the appearance. Is there any
way I can do this automatically (and without sorting the rows)? Please keep
in mind that I am a very new user, and I am unfamilar with macros and the
like. So if there is a way to do this, please explain the procedure in as
easy English as possible. Thank you.

Reduce Size of Blank Rows
 

Hi, David. I created a macro as you instructed, but I keep getting an error
message at the END IF line. Any ideas why this is happening? Though I know
nothing whatsoever about programming, it appears that it will need some
tweaking.

To repeat my problem:

I have certain empty rows that do not contain any data (of course), that are
16-point, but I want to reduce them to 8-point (or maybe 6-point if the rows
still look too big). Could you check once more to see if there is some
problem. Thanks.

"David McRitchie" wrote:

sorry, something in Vista or my charset keeps putting
garbage in when I do something like backspace, but
I don't know if it is some legitimate shortcut for special
characters or what. I don't even know what I do to put
it there, it is not on purpose. Remove it, it's not supposed to be
there. Characters not in the font that one is looking
typically show up as ? (question mark) but I do see the
spade myself.

--
HTH,
David McRitchie, Microsoft MVP -- Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm


"Gord Dibben" <gorddibbATshawDOTca wrote in message ...
Rebecca

The symbol after the 16 is a question mark ?

David is giving you the option to change the font size to what you want.

If you want to restart such that all cells are formatted first
as 16 points then include by removing the single quote in front of
' Cells.Font.Size = 16

You would also remove the question mark.


Gord Dibben MS Excel MVP

On Sat, 23 Feb 2008 17:13:00 -0800, Rebecca
wrote:

Thanks, David. One question before I attempt to create a macro (I am a new
user so I will have to study the info contained in the link you provided.
Wish me luck.). Regarding this line:

' Cells.Font.Size = 16 ?

Is the "spade" symbol at the end of the above line correct? Or is it just
to attract my attention?


"David McRitchie" wrote:

Hi Rebecca,
This solution is with a macro, that you will have to invoke.
If not familiar with macros see
http://www.mvps.org/dmcritchie/excel....htm#havemacro

If you want to restart such that all cells are formatted first
as 16 points then include by removing the single quote in front of
' Cells.Font.Size = 16
in the code below.

Sub Reduce_Height_of_Empty_Rows()
'-- Reduce_Height_of_Empty_Rows to 8pts
' D.McRitchie, 2008-02-23 in excel.newusers
Dim LastRow As Long
Dim I As Long
' Cells.Font.Size = 16 ?
LastRow = Cells.SpecialCells(xlLastCell).Row
For I = LastRow To 2 Step -1
If Application.CountA(Cells(I, 1).EntireRow) = 0 Then
Cells(I, 1).EntireRow.Font.Size = 8
End If
Next I
End Sub

--
HTH,
David McRitchie, Microsoft MVP -- Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm


"Rebecca" wrote in message ...
I am using Excel 2007, and I have a column that contains many blank rows.
These blank rows are all 16-point in size, and I want to reduce all of them
to 8-point or even lower in order to tighten up the appearance. Is there any
way I can do this automatically (and without sorting the rows)? Please keep
in mind that I am a very new user, and I am unfamilar with macros and the
like. So if there is a way to do this, please explain the procedure in as
easy English as possible. Thank you.

Reduce Size of Blank Rows
 

Should be okay, make sure there are no extraneous characters
on the IF statement and the it ends with Then

--
HTH,
David McRitchie, Microsoft MVP -- Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm


"Rebecca" wrote in message ...
Hi, David. I created a macro as you instructed, but I keep getting an error
message at the END IF line. Any ideas why this is happening? Though I know
nothing whatsoever about programming, it appears that it will need some
tweaking.

To repeat my problem:

I have certain empty rows that do not contain any data (of course), that are
16-point, but I want to reduce them to 8-point (or maybe 6-point if the rows
still look too big). Could you check once more to see if there is some
problem. Thanks.

"David McRitchie" wrote:

sorry, something in Vista or my charset keeps putting
garbage in when I do something like backspace, but
I don't know if it is some legitimate shortcut for special
characters or what. I don't even know what I do to put
it there, it is not on purpose. Remove it, it's not supposed to be
there. Characters not in the font that one is looking
typically show up as ? (question mark) but I do see the
spade myself.

--
HTH,
David McRitchie, Microsoft MVP -- Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm


"Gord Dibben" <gorddibbATshawDOTca wrote in message ...
Rebecca

The symbol after the 16 is a question mark ?

David is giving you the option to change the font size to what you want.

If you want to restart such that all cells are formatted first
as 16 points then include by removing the single quote in front of
' Cells.Font.Size = 16

You would also remove the question mark.


Gord Dibben MS Excel MVP

On Sat, 23 Feb 2008 17:13:00 -0800, Rebecca
wrote:

Thanks, David. One question before I attempt to create a macro (I am a new
user so I will have to study the info contained in the link you provided.
Wish me luck.). Regarding this line:

' Cells.Font.Size = 16 ?

Is the "spade" symbol at the end of the above line correct? Or is it just
to attract my attention?


"David McRitchie" wrote:

Hi Rebecca,
This solution is with a macro, that you will have to invoke.
If not familiar with macros see
http://www.mvps.org/dmcritchie/excel....htm#havemacro

If you want to restart such that all cells are formatted first
as 16 points then include by removing the single quote in front of
' Cells.Font.Size = 16
in the code below.

Sub Reduce_Height_of_Empty_Rows()
'-- Reduce_Height_of_Empty_Rows to 8pts
' D.McRitchie, 2008-02-23 in excel.newusers
Dim LastRow As Long
Dim I As Long
' Cells.Font.Size = 16 ?
LastRow = Cells.SpecialCells(xlLastCell).Row
For I = LastRow To 2 Step -1
If Application.CountA(Cells(I, 1).EntireRow) = 0 Then
Cells(I, 1).EntireRow.Font.Size = 8
End If
Next I
End Sub

--
HTH,
David McRitchie, Microsoft MVP -- Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm


"Rebecca" wrote in message ...
I am using Excel 2007, and I have a column that contains many blank rows.
These blank rows are all 16-point in size, and I want to reduce all of them
to 8-point or even lower in order to tighten up the appearance. Is there any
way I can do this automatically (and without sorting the rows)? Please keep
in mind that I am a very new user, and I am unfamilar with macros and the
like. So if there is a way to do this, please explain the procedure in as
easy English as possible. Thank you.