Looping through filtered rows with multiple columns

[HANSEMINATOR]

Using the advancedfilter I find rows in my data which have certain criteria.

I'd like to make a calculation where i subtract to cells in each of and sum the result.

Using the code below creates a loop which runs through all visible cells in all rows. I only need to run through each visible row once.

It is probably some easy thing, I can't see...

For Each rng In filrng.Rows.SpecialCells(xlCellTypeVisible)
 //Code substracting one cell from another while adding it to a sum
Next rng

Regards
Hans

 

[shg]

Maybe a before-and-after example would help.

 

[HANSEMINATOR]

Sorry about that.

filrng is a Range which basically covers an entire datasheet filled with information on people who have started and ended different courses. So a multicolumn range with columns describing hometown, start date, end date, status etc..

Based on some criteria I filter these people using advancedfilter.

    Dim filrng As Range
    Set filrng = Sheets("Datasheet").Range(Sheets("Datasheet").Cells(1, 1), Sheets("Datasheet").Cells(numberofentries, 25))

    filrng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Sheets("criteriasheet").Range("A1:D2"), Unique:=False

The rows which pass through the filter all have a start date cell and an end date cell. I'd like to subtract start date from end date and sum the difference of all rows which has passed the filter criteria. How to do this is my question.

I have, among other things, tried using.

  Dim rng As Range
  For Each rng In filrng.Rows.SpecialCells(xlCellTypeVisible)
        
    
  Next rng

But this iterates through each cell in each of the filtered rows. I'd like to just iterate row by row through my filrng.

Hope my question and the context is clearer now
Thanks

 

[shg]

Maybe

For Each rRow In filrng.SpecialCells(xlCellTypeVisible).Rows

 

[HANSEMINATOR]

Worked! Thanks!!

 

[shg]

You're welcome.