Changing visible (filtered) cells
Thanks Steve, works like a charm!
Edwin
"STEVE BELL" wrote in message
news:Qn0qe.16127$yS2.11442@trnddc07...
Try this:
==============
Range("A1:D25").SpecialCells(xlCellTypeVisible).Se lect
====================
For Each cell In
Worksheets("sales").Range("invoices").SpecialCells (xlCellTypeVisible)
=================
--
steveB
Remove "AYN" from email to respond
"Edwin Niemoller" wrote in message
...
Hello group,
I'm using the following code on a selected range to change the cell
value
into "paid"
Worksheets("sales").Range("invoices").Select
For Each cell In Selection
If Not IsEmpty(cell.Value) Then
If cell.Value < "Paid" Then
cell.Value = "Paid"
End If
End If
Next cell
However I would also like it to work when the range is filtered, meaning
only on the visible cells.
I hope someone can get me going
Thanks
Edwin
|