Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
why can't 'Do While Each Cell in Range...'?
Thanks in advance.
I have some code that finds the first non-zero cell in a row: Dim cell as Range RowNumber=1 For Each cell In Range("D1:" & ActiveSheet.Range ("D65536").End(xlUp).Address) If cell = 0 then RowNumber = RowNumber + 1 'increase by one row Else Exit For End If Next But I figure I could get this down a line or two by: Do While Each cell in Range("D1:" & ActiveSheet.Range ("D65536").End(xlUp).Address) < 0 RowNumber=RowNumber+1 Loop But I get a syntax error (the line goes red) when I type in the above Do While... Is the 'each' code useable in Do Whiles? If not, is there something else I can do? Thanks again! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
why can't 'Do While Each Cell in Range...'?
Ian,
You can't use that structure, but you could use: RowNumber = Application.CountIf(Range("D1", Range("D65536").End(xlUp)), 0) +1 HTH, Bernie MS Excel MVP "Ian Elliott" wrote in message ... Thanks in advance. I have some code that finds the first non-zero cell in a row: Dim cell as Range RowNumber=1 For Each cell In Range("D1:" & ActiveSheet.Range ("D65536").End(xlUp).Address) If cell = 0 then RowNumber = RowNumber + 1 'increase by one row Else Exit For End If Next But I figure I could get this down a line or two by: Do While Each cell in Range("D1:" & ActiveSheet.Range ("D65536").End(xlUp).Address) < 0 RowNumber=RowNumber+1 Loop But I get a syntax error (the line goes red) when I type in the above Do While... Is the 'each' code useable in Do Whiles? If not, is there something else I can do? Thanks again! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find Last cell in Range when range is date format | Excel Discussion (Misc queries) | |||
RANGE EXCEL copy cell that meets criteria in a range | Excel Worksheet Functions | |||
copy range and paste into every 3rd cell of new range | New Users to Excel | |||
Referencing a named range based upon Range name entry in cell | Excel Worksheet Functions | |||
Selecting range in list of range names depending on a cell informa | Excel Discussion (Misc queries) |