Iterating Thru Cells
Julie -
Yeah that was it... almost there now!!
Thanks v.much
Kelvin
"JulieD" wrote in message
...
Hi Kelvin
looks fine to me except that a cell with only a background fill is
considered empty and therefore the code will end at this point.
Cheers
JulieD
"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
|