Create Folder
 

I found the code below from a Tom Ogilvy message board posting (Thanks Tom).
The code creates a folder in a specific path from a list. My question is
this - can this be modified to create folders from ONLY UNIQUE entries of
the list? My list is hundreds of rows long, and many many are duplicate.
Thanks!!

Dim rng As Range, cell As Range
Set rng = Range(Range("A1"), Range("A1").End(xlDown))
For Each cell In rng
MkDir "S:\Global_Share\Operations\Kineticom
Timesheet\Approvals\Supervisors\" & cell.Value
Next

Create Folder
 

Hi Steph

Create a unique list with AdvancedFilter and use that list in Tom's code
http://www.contextures.com/xladvfilter01.html#FilterUR

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Steph" wrote in message ...
I found the code below from a Tom Ogilvy message board posting (Thanks Tom).
The code creates a folder in a specific path from a list. My question is
this - can this be modified to create folders from ONLY UNIQUE entries of
the list? My list is hundreds of rows long, and many many are duplicate.
Thanks!!

Dim rng As Range, cell As Range
Set rng = Range(Range("A1"), Range("A1").End(xlDown))
For Each cell In rng
MkDir "S:\Global_Share\Operations\Kineticom
Timesheet\Approvals\Supervisors\" & cell.Value
Next

Create Folder
 

Got it. Thanks again, Ron!

"Ron de Bruin" wrote in message
...
Hi Steph

Create a unique list with AdvancedFilter and use that list in Tom's code
http://www.contextures.com/xladvfilter01.html#FilterUR

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Steph" wrote in message
...
I found the code below from a Tom Ogilvy message board posting (Thanks
Tom).
The code creates a folder in a specific path from a list. My question
is
this - can this be modified to create folders from ONLY UNIQUE entries
of
the list? My list is hundreds of rows long, and many many are
duplicate.
Thanks!!

Dim rng As Range, cell As Range
Set rng = Range(Range("A1"), Range("A1").End(xlDown))
For Each cell In rng
MkDir "S:\Global_Share\Operations\Kineticom
Timesheet\Approvals\Supervisors\" & cell.Value
Next