select alternate rows - quickly
 

I have a worksheet where I want to delete alternate rows. i.e. rows
1,3,5,7,9.......... because they contain no data. Currently I am holding the
control key and selecting every other row, then using the delete row toolbar
button. However I have many worksheets to do.
I thought I'd create a macro to automatically hilight alternate rows and
then just use the delete row button. I did create that macro but when using
it, instead of hilighting the alternate rows from where my cursor is inserted
it just hilights the same rows as when the macro was created (i.e. the wrong
rows).
How can I set something up that allows me to hilight alternate rows from
where I place my cursor.

select alternate rows - quickly
 

Hi
try the following macro:
Sub delete_rows()
Dim lastrow As Long
Dim row_index As Long
Application.ScreenUpdating = False
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For row_index = lastrow To 1 Step -1
If row_index mod 2 =1 then
Rows(row_index).delete
End If
Next
Application.ScreenUpdating = True
End Sub



-----Original Message-----
I have a worksheet where I want to delete alternate rows.
i.e. rows
1,3,5,7,9.......... because they contain no data.
Currently I am holding the
control key and selecting every other row, then using the
delete row toolbar
button. However I have many worksheets to do.
I thought I'd create a macro to automatically hilight
alternate rows and
then just use the delete row button. I did create that
macro but when using
it, instead of hilighting the alternate rows from where
my cursor is inserted
it just hilights the same rows as when the macro was
created (i.e. the wrong
rows).
How can I set something up that allows me to hilight
alternate rows from
where I place my cursor.
.

select alternate rows - quickly
 

This appears to delete all the rows and not just the alternate ones as desired?

"Frank Kabel" wrote:

Hi
try the following macro:
Sub delete_rows()
Dim lastrow As Long
Dim row_index As Long
Application.ScreenUpdating = False
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For row_index = lastrow To 1 Step -1
If row_index mod 2 =1 then
Rows(row_index).delete
End If
Next
Application.ScreenUpdating = True
End Sub



-----Original Message-----
I have a worksheet where I want to delete alternate rows.
i.e. rows
1,3,5,7,9.......... because they contain no data.
Currently I am holding the
control key and selecting every other row, then using the
delete row toolbar
button. However I have many worksheets to do.
I thought I'd create a macro to automatically hilight
alternate rows and
then just use the delete row button. I did create that
macro but when using
it, instead of hilighting the alternate rows from where
my cursor is inserted
it just hilights the same rows as when the macro was
created (i.e. the wrong
rows).
How can I set something up that allows me to hilight
alternate rows from
where I place my cursor.
.

select alternate rows - quickly
 

Try this instead:

Code
-------------------

Sub delete_rows()
Dim lastrow As Long
Dim row_index As Long
Application.ScreenUpdating = False
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For row_index = lastrow To 1 Step -1
If IsEven(row_index) = False Then
Rows(row_index).delete
End If
Next
Application.ScreenUpdating = True
End Sub

-------------------



Then add this code to the module


Code
-------------------

Function IsEven(lngNum As Long) As Boolean
IsEven = Not CBool(lngNum Mod 2) 'test
End Function

-------------------


--
Message posted from http://www.ExcelForum.com

select alternate rows - quickly
 

RC,
Works fine here.
Unless you have some data 1 line below the range you think you are
processing.

Nick

"RC" wrote in message
...
This appears to delete all the rows and not just the alternate ones as
desired?

"Frank Kabel" wrote:

Hi
try the following macro:
Sub delete_rows()
Dim lastrow As Long
Dim row_index As Long
Application.ScreenUpdating = False
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For row_index = lastrow To 1 Step -1
If row_index mod 2 =1 then
Rows(row_index).delete
End If
Next
Application.ScreenUpdating = True
End Sub



-----Original Message-----
I have a worksheet where I want to delete alternate rows.
i.e. rows
1,3,5,7,9.......... because they contain no data.
Currently I am holding the
control key and selecting every other row, then using the
delete row toolbar
button. However I have many worksheets to do.
I thought I'd create a macro to automatically hilight
alternate rows and
then just use the delete row button. I did create that
macro but when using
it, instead of hilighting the alternate rows from where
my cursor is inserted
it just hilights the same rows as when the macro was
created (i.e. the wrong
rows).
How can I set something up that allows me to hilight
alternate rows from
where I place my cursor.
.

select alternate rows - quickly
 

Hi
works for me

--
Regards
Frank Kabel
Frankfurt, Germany

"RC" schrieb im Newsbeitrag
...
This appears to delete all the rows and not just the alternate ones
as desired?

"Frank Kabel" wrote:

Hi
try the following macro:
Sub delete_rows()
Dim lastrow As Long
Dim row_index As Long
Application.ScreenUpdating = False
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For row_index = lastrow To 1 Step -1
If row_index mod 2 =1 then
Rows(row_index).delete
End If
Next
Application.ScreenUpdating = True
End Sub



-----Original Message-----
I have a worksheet where I want to delete alternate rows.
i.e. rows
1,3,5,7,9.......... because they contain no data.
Currently I am holding the
control key and selecting every other row, then using the
delete row toolbar
button. However I have many worksheets to do.
I thought I'd create a macro to automatically hilight
alternate rows and
then just use the delete row button. I did create that
macro but when using
it, instead of hilighting the alternate rows from where
my cursor is inserted
it just hilights the same rows as when the macro was
created (i.e. the wrong
rows).
How can I set something up that allows me to hilight
alternate rows from
where I place my cursor.
.

select alternate rows - quickly
 

select a column where the only cells that are blank are in the rows you want
to delete.

Do
Edit=Goto = Special and select Blank Cells. Then do Edit=Delete and
select entire row.

This assumes the cells are actually blank and don't just appear blank
because they contain a formula returning an empty string or contain spaces.

--
Regards,
Tom Ogilvy

"RC" wrote in message
...
I have a worksheet where I want to delete alternate rows. i.e. rows
1,3,5,7,9.......... because they contain no data. Currently I am holding
the
control key and selecting every other row, then using the delete row
toolbar
button. However I have many worksheets to do.
I thought I'd create a macro to automatically hilight alternate rows and
then just use the delete row button. I did create that macro but when
using
it, instead of hilighting the alternate rows from where my cursor is
inserted
it just hilights the same rows as when the macro was created (i.e. the
wrong
rows).
How can I set something up that allows me to hilight alternate rows from
where I place my cursor.

select alternate rows - quickly
 

I'd love to know what is stopping you from sorting this?

Regards
Robert McCurdy

"If you can't, use Word"

"RC" wrote in message ...
I have a worksheet where I want to delete alternate rows. i.e. rows
1,3,5,7,9.......... because they contain no data. Currently I am holding the
control key and selecting every other row, then using the delete row toolbar
button. However I have many worksheets to do.
I thought I'd create a macro to automatically hilight alternate rows and
then just use the delete row button. I did create that macro but when using
it, instead of hilighting the alternate rows from where my cursor is inserted
it just hilights the same rows as when the macro was created (i.e. the wrong
rows).
How can I set something up that allows me to hilight alternate rows from
where I place my cursor.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.736 / Virus Database: 490 - Release Date: 09/08/2004