Macro for deleting every second Row of Data
 

hello
i am trying to use this macro for delete from my data every second ROW , but
couldn't use there is some error plz help me.
thanks in advance.

Sub abc()
Dim frow As Long, lrow As Long
Dim i As Long
frow = Selection.Row
lrow = Selection.Rows(Selection.Rows.Count).Row
For i = lrow To frow Step -2
Selection.Rows(A).Delete
Shift:=B:C
lShiftUp
Next

End Sub

Macro for deleting every second Row of Data
 

Sub abc()

Dim frow As Long, lrow As Long
Dim i As Long

frow = Selection.Row
lrow = Selection.Rows(Selection.Rows.Count).Row

For i = lrow To frow Step -2

Rows(i).Delete

Next

End Sub


--
Kaak
------------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
View this thread: http://www.excelforum.com/showthread...hreadid=555914

Macro for deleting every second Row of Data
 

Hi Tufail,

It is not clear from your code anf question whether your intention is to:

- delete every second column A cell in the selection

or to

- delete every second row in the selection.

In the first case try:

'=============
Public Sub abc()
Dim frow As Long, lrow As Long
Dim i As Long

frow = Selection.Row
lrow = Selection.Rows(Selection.Rows.Count).Row
For i = lrow To frow Step -2
Cells(i, "A").Delete Shift:=xlShiftUp
Next
End Sub
'<<=============

in the second case, try instead:

'=============
Public Sub abc2()
Dim frow As Long, lrow As Long
Dim i As Long

frow = Selection.Row
lrow = Selection.Rows(Selection.Rows.Count).Row
For i = lrow To frow Step -2
Rows(i).Delete Shift:=xlShiftUp
Next
End Sub
'<<=============

If your intention is not met by eitherof these suggestions, perhaps you
could endeavour to restate your requirements.


---
Regards,
Norman



"Tufail" wrote in message
...
hello
i am trying to use this macro for delete from my data every second ROW ,
but
couldn't use there is some error plz help me.
thanks in advance.

Sub abc()
Dim frow As Long, lrow As Long
Dim i As Long
frow = Selection.Row
lrow = Selection.Rows(Selection.Rows.Count).Row
For i = lrow To frow Step -2
Selection.Rows(A).Delete
Shift:=B:C
lShiftUp
Next

End Sub

Macro for deleting every second Row of Data
 

Sub abc()
Dim frow As Long, lrow As Long
Dim i As Long
frow = Selection.Row
lrow = Selection.Rows(Selection.Rows.Count).Row
For i = lrow To frow Step -2
Rows(i).Delete
Next

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Tufail" wrote in message
...
hello
i am trying to use this macro for delete from my data every second ROW ,
but
couldn't use there is some error plz help me.
thanks in advance.

Sub abc()
Dim frow As Long, lrow As Long
Dim i As Long
frow = Selection.Row
lrow = Selection.Rows(Selection.Rows.Count).Row
For i = lrow To frow Step -2
Selection.Rows(A).Delete
Shift:=B:C
lShiftUp
Next

End Sub