Loop only Visible Cells

[NewUserMo]

I am not sure how to manipulate the following code to loop through visible cells. I currently have a filter, but the For loop is checking every cell instead of visible (filtered data):

lRow = ActiveCell.Row
For lRow = LasrRowMax To 2 Step -1
If Cells(lRow, "DP").Value = "YES" Or Cells(lRow, "DP").Value = "NO" Then

Cells(lRow, "DJ").Value = Cells(lRow, "DP").Value

End If
Next

 

[SkipVought]

hi,

'
   lRow = ActiveCell.Row
   For lRow = LasrRowMax To 2 Step -1
      If Rows(lRow).Hidden = False then
         Select Case Cells(lRow, "DP").Value 
            Case "Yes", "No"
               Cells(lRow, "DJ").Value = Cells(lRow, "DP").Value
         End Select
      End If
   Next

 

[Andrzejek]

Just curious...
Why the first line of code: [tt]lRow = ActiveCell.Row[/tt] ?
The [tt]lRow[/tt] gets new value(s) in For loop in the second line of code anyway


Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.