Value of next visible mycell within a rng
"Toppers" wrote in message
...
j = Cells(65536, 9).End(xlUp).Row
Set rng = Range("I2:I" & j).SpecialCells(xlCellTypeVisible)
For i = 1 To Rng.Count - 1
If Rng(i).value = Rng(i + 1).value Then
SalesForItem = SalesForItem + 1
Else
SalesForItem = 0
End If
Thanks, but this does still not work, as it does not seem to care about the
autofilter I have applied. The above routine starts off on the first visible
row correctly, but then proceeds to process every single line in the sheet -
hidden or not.
Please help :) Much appreciated.
Rasmus
|