Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Iterating thru cells & comparing
Hi -
Can anyone clue me in as to why the following code won't iterate down thru cells getting the value from each & comparing it to a value obtained arlier in the function? Many thanks, Kelvin 'Loop down thru cells, finding match on Room No: Do While Not IsEmpty(ActiveCell) If ActiveCell.Interior.ColorIndex < 35 Then 'Cell not unavailable If ActiveCell.Value = RoomNumber Then If Len(StaffName) = 0 Then StaffName = ActiveCell.Value Else StaffName = StaffName & Chr$(13) & ActiveCell.Value End If End If End If ActiveCell.Offset(1, 0).Activate 'Move down one cell Loop |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Iterating thru cells & comparing
Kelvin,
It works for me, what do you get? -- HTH RP (remove nothere from the email address if mailing direct) "Kelvin Clayson" wrote in message ... Hi - Can anyone clue me in as to why the following code won't iterate down thru cells getting the value from each & comparing it to a value obtained arlier in the function? Many thanks, Kelvin 'Loop down thru cells, finding match on Room No: Do While Not IsEmpty(ActiveCell) If ActiveCell.Interior.ColorIndex < 35 Then 'Cell not unavailable If ActiveCell.Value = RoomNumber Then If Len(StaffName) = 0 Then StaffName = ActiveCell.Value Else StaffName = StaffName & Chr$(13) & ActiveCell.Value End If End If End If ActiveCell.Offset(1, 0).Activate 'Move down one cell Loop |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
iterating checkboxes | Excel Discussion (Misc queries) | |||
Iterating through cells problem | Excel Programming | |||
Iterating through cells problem | Excel Programming | |||
Iterating through Cells .Net/Excel 2003 | Excel Programming | |||
Iterating through row cells on column Match, help please. | Excel Programming |