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

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

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

Glad to be of help...

Happy Exceling...

P.S.
I got the code by recording a macro, than editing it...

--
steveB

Remove "AYN" from email to respond
"Edwin Niemoller" wrote in message
...
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