Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Line
I need the code below altered so it deletes the entire row the blank cell is
in. Dim xRange As Range Dim xCell As Range For Each xCell In Sheets("CDPTR").Range("A2:A25") If xCell.Value = 0 Then If xRange Is Nothing Then Set xRange = xCell Else Set xRange = Union(xRange, xCell) End If End If Next xCell xRange.Delete Shift:=xlup -- Thanks Shawn |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Line
Replace the last line of the code with
xRange.EntireRow.Delete If this post helps click Yes --------------- Jacob Skaria "Shawn" wrote: I need the code below altered so it deletes the entire row the blank cell is in. Dim xRange As Range Dim xCell As Range For Each xCell In Sheets("CDPTR").Range("A2:A25") If xCell.Value = 0 Then If xRange Is Nothing Then Set xRange = xCell Else Set xRange = Union(xRange, xCell) End If End If Next xCell xRange.Delete Shift:=xlup -- Thanks Shawn |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Line
Hi
Use this: xRange.EntireRow.Delete Regards, Per On 8 Maj, 14:03, Shawn wrote: I need the code below altered so it deletes the entire row the blank cell is in. * * * * * * * * * * Dim xRange As Range * * * * * * * * * * Dim xCell As Range * * * * * * * * * * For Each xCell In Sheets("CDPTR").Range("A2:A25") * * * * * * * * * * * * If xCell.Value = 0 Then * * * * * * * * * * * * * * If xRange Is Nothing Then * * * * * * * * * * * * * * * * Set xRange = xCell * * * * * * * * * * * * * * Else * * * * * * * * * * * * * * * * Set xRange = Union(xRange, xCell) * * * * * * * * * * * * * * End If * * * * * * * * * * * * End If * * * * * * * * * * Next xCell * * * * * * * * * * xRange.Delete Shift:=xlup -- Thanks Shawn |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Line
Great. That works. I was using this code and it wasn't working:
Range("xRange" & ActiveCell.Row).EntireRow.Delete Shift:=xlUp -- Thanks Shawn "Jacob Skaria" wrote: Replace the last line of the code with xRange.EntireRow.Delete If this post helps click Yes --------------- Jacob Skaria "Shawn" wrote: I need the code below altered so it deletes the entire row the blank cell is in. Dim xRange As Range Dim xCell As Range For Each xCell In Sheets("CDPTR").Range("A2:A25") If xCell.Value = 0 Then If xRange Is Nothing Then Set xRange = xCell Else Set xRange = Union(xRange, xCell) End If End If Next xCell xRange.Delete Shift:=xlup -- Thanks Shawn |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Challenge - Excel Line Feed Character CHR(10) - How to Delete and keep the text formatting without going ro single line in a cell ? | Excel Worksheet Functions | |||
Delete first line line(s) of text-file? | Excel Programming | |||
Delete all but first line | Excel Discussion (Misc queries) | |||
Delete every other line | Excel Programming | |||
Delete every other line | Excel Programming |