Apply VBA code only to filtered rows

[Nicoko]

Hello
i have a VBA code that perform some tasks on the complete excel table, till he doesn t find anymore rows.
the row selection is for now like that:
For i = 4 To Range("c65536").End(xlUp).Row

I would need to apply some filter on the table to have the VBA code to apply only to the filtered rows.
How could i modify/add code so that VBA is only executed to filtered rows?

Thx in advance!

BR
Nicolas

 

[MARK858]

You test if each row is unhidden or visible but with out seeing the actual code that you are using there is not anything I can advise.
Please paste your full code in the thread in code tags (select the pasted code and click the

icon as the top of the reply window) and click reply

 

[Nicoko]

Sub fct()
Dim i As Long
Dim strto As String
For i = 4 To Range("c65536").End(xlUp).Row ' table start at line 4
strto = Cells(i, x) & Cells(i, y) 'some cell info from line i, column x and column y
' then for each i code do something with strto
End Sub

 

[MARK858]

strto = Cells(i, x) & Cells(i, y)

That line is not a working code line with what is before it in the code. We need to see the actual working code, that means copy and paste the actual working code.

 

[Nicoko]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
For i = 4 To Range("C65536").End(xlUp).Row
If Range("G" & i) = "" And Range("C" & i) = "Yes" Then Range("G" & i) = Date
Next i
End Sub

 

[MARK858]

Not sure about the code running at every cell change but try...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long
    For i = 4 To Range("C" & Rows.Count).End(xlUp).Row
        If Rows(i).Rows.Height > 0 Then
            If Range("G" & i) = "" And Range("C" & i) = "Yes" Then Range("G" & i) = Date
        End If
    Next i
End Sub

 

[Nicoko]

amazing - Thx ! you re fast and correct . Many thx!

 

[MARK858]

You're welcome