Loop Through Autofilter Value

[marka87uk]

Hi,

The current code I have makes a directory named the current criteria, but please can you show me how to loop through each autofilter value and create a directory for each one?

Many thanks.

Sub CreateBranchDirectories()

' Get Current Criteria
With ActiveSheet
  If .AutoFilterMode Then
    With .AutoFilter.Filters(1)
      If .On Then c1 = .Criteria1:
    End With
  End If
End With

' c1 = Current Criteria (Replace "=")
c1 = Replace(c1, "=", "")

' Make Directories
MkDir "Y:\Directories\" & c1
        
End Sub

 

[marka87uk]

Solved my own problem... don't know why I didn't think of doing it without an autofilter! :/

Sub CreateBranchDirectories()

Dim BranchList As Range, Branch As Object
Set BranchList = Range("A2:A1281")
     
For Each Branch In BranchList
    If IsEmpty(Branch) Then
    Exit Sub
    End If
    cBranch = Branch.Value
    MsgBox cBranch
Next
        
End Sub