Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
why is range empty?
In the code below, rngToFind is being filled correctly.
The problem is that rngFound is always empty. On sheet ("A"), there is data in column 1. Some items will match and some won't. If the item (from sheet "P") is not found in the rngFound (from sheet "A") then the item on sheeet "P" should be deleted. This is not happening. When I put my coursor over rngFound it says empty. Any suggestions or help would be appreciated. Thanks.... Dim rngToFind As Range Dim rngFound As Range Set rngToFind = Sheets("P").Range("A" & lstrowPP).End(xlUp) Do While rngToFind.Row 1 Set rngFound = Sheets("A").Columns(1).Find rngToFind.Value) Set rngToFind = rngToFind.Offset(-1, 0) If Not rngFound Is Nothing Then rngToFind.Offset(1, 0).EntireRow.Delete End If Loop |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Test if the range is empty | Excel Discussion (Misc queries) | |||
Check for empty range in vba | Excel Discussion (Misc queries) | |||
why is range empty? | Excel Discussion (Misc queries) | |||
sum next two non-empty cells in a range | Excel Worksheet Functions | |||
determinate if a range is empty | Excel Programming |