Comments on: VBA: “dirty area” http://www.automateexcel.com/2004/10/30/excel_vba_dirty_area/ Everything Excel. Only Excel. Mon, 21 Nov 2011 07:25:47 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: Mark http://www.automateexcel.com/2004/10/30/excel_vba_dirty_area/comment-page-1/#comment-43 Mark Tue, 25 Jan 2005 21:26:46 +0000 #comment-43 Elton,<br /> The only drawback is I can't expect the users of something I build to always verify there aren't any blank cells in the data (there usually is), especially in a dataset of 20 or 30 thousand rows.<br /> <br /> If there aren't any missing data cells, I'd guess this is probably a very fast routine. Thanks for the code. Elton,
The only drawback is I can’t expect the users of something I build to always verify there aren’t any blank cells in the data (there usually is), especially in a dataset of 20 or 30 thousand rows.

If there aren’t any missing data cells, I’d guess this is probably a very fast routine. Thanks for the code.

]]> By: |Elton Miranda Tavares http://www.automateexcel.com/2004/10/30/excel_vba_dirty_area/comment-page-1/#comment-42 |Elton Miranda Tavares Tue, 25 Jan 2005 10:54:31 +0000 #comment-42 I usually use the following code to loop through a range (which should never have an empty cell):<br /> <br /> Dim c as Range<br /> For each c in worksheets("MySheet").Range("A1:A65536")<br /> If c.Offset(1,0).Value "" Then ' double quote marks means empty cell<br /> [Do my code here]<br /> ElseIf c.Offset(1,0).Value = "" Then<br /> Exit loop<br /> Next c<br /> <br /> This code will always verify if the next cell immediately following current cell being looped by the code is empty. If so it knows thats the end of the range and shold exit from the loop. However, your range sholud never have an empty cell otherwise the code would leave the loop before ending the range. But if you import lists from other places and you don't know if there will be empty cells within the imported list, just write a code (For Each Next... Loop) to insert any character like "-" to "fill up" empty cells in the range to make you range without empty cells.<br /> <br /> <br /> <br /> I usually use the following code to loop through a range (which should never have an empty cell):

Dim c as Range
For each c in worksheets(“MySheet”).Range(“A1:A65536″)
If c.Offset(1,0).Value “” Then ‘ double quote marks means empty cell
[Do my code here]
ElseIf c.Offset(1,0).Value = “” Then
Exit loop
Next c

This code will always verify if the next cell immediately following current cell being looped by the code is empty. If so it knows thats the end of the range and shold exit from the loop. However, your range sholud never have an empty cell otherwise the code would leave the loop before ending the range. But if you import lists from other places and you don’t know if there will be empty cells within the imported list, just write a code (For Each Next… Loop) to insert any character like “-” to “fill up” empty cells in the range to make you range without empty cells.

]]>