Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hi Guys...
The answer could be as shown below:
Sub Delete_Rows() ' Dim rwIndex, ColIndex ' rwIndex = 1 ColIndex = 4 Do Until Range("A" & rwIndex) = "" Cells(rwIndex, ColIndex).Select If ActiveCell = 0 Then Selection.EntireRow.Delete End If rwIndex = rwIndex + 1 Loop Range("A1").Select End Su -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hi Guys...
OR, without selections. Some confusion here about Col A and colindx 4.??
sub dr() x=cells(rows.count,4).end(xlup).row for i=x to 1 step -1 if cells(i,4)=0 then rows(i).delete next i end sub -- Don Guillett SalesAid Software "kiza " wrote in message ... The answer could be as shown below: Sub Delete_Rows() ' Dim rwIndex, ColIndex ' rwIndex = 1 ColIndex = 4 Do Until Range("A" & rwIndex) = "" Cells(rwIndex, ColIndex).Select If ActiveCell = 0 Then Selection.EntireRow.Delete End If rwIndex = rwIndex + 1 Loop Range("A1").Select End Sub --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I need your help guys please | Excel Worksheet Functions | |||
Thanks Guys | Excel Discussion (Misc queries) | |||
need help guys | Excel Worksheet Functions | |||
Please Help Guys! | Excel Worksheet Functions | |||
Please Help Guys! | Excel Worksheet Functions |