autofilter in loop with vba code

[yael zur]

hello,
I have table, and on one column I have names.
I would like to create macro, that will autofilter the rows by each possible value in a loop.
For example, if the names are John, Ruth and Hana, the macro will filter once all John rows, then all Ruth's and finally all Hana's (in the loop I'm printing each time the visible rows).
My problem is that the list of name is changing every day, and I don't know how many name will be each time. also the number of rows in the table - is unknown.

I would also like to store each time in the loop the currant filtered value, in order to use this value in formula.

Is it possible to do that?

Help will be most appreciated,

Best Regards,
Yael

 

[Peter_SSs]

Welcome to the MrExcel board!

You didn't tell us where the names are, so I have assumed column A.

This should loop through each of the unique names in column A. Those names will be stored in the array aNames

Sub LoopEachName()
  Dim aNames As Variant, Itm As Variant
  
  With Range("A1", Range("A" & Rows.Count).End(xlUp))
    .AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    aNames = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible).Value
    For Each Itm In aNames
      .AutoFilter Field:=1, Criteria1:=Itm
      
      'Do whatever you want with an individual name here
      
    Next Itm
    .AutoFilter
  End With
End Sub

 

[tuongtu3]

Hi,
I've found the code here but how to modify if I 'd like to autofilter starting at Cell CL13

Regards,
tt3

 

[Macropod]

As per Rule 12 (http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html), kindly don't ask the same question in multiple threads. Please limit the discussion to your other thread: https://www.mrexcel.com/forum/excel-questions/1081955-autofilter-unkonw-dta-loop-vba-code.html