Simple: Create folder based on cell value

[Hooty]

I am a self-taught "NOOB" Code is barely understandable, I have searched for the solution and i have found many that will do what i want, but the code i have found has more features than i need and i do not know how to edit. I have a project tracking sheet with links to the folder i am working on. ex: =HYPERLINK("E:\Users\Corp Est\LM Region\PROJECTS\"&D18&+" - "&+C18,"GO TO FOLDER") or E:\Users\Corp Est\LM Region\PROJECTS\PORT NEAL CONCRETE UNIT 4 - LM-IA1144-C. I manually create these folders, but i'd like to have a macro that creates them for me. I'd also like to be able to create 2 sub-folders: "BOL" and "Tonnage"



I have a cell that adds the value of several cells to create a folder location:
(column F)

="E:\Users\Corp Est\LM Region\PROJECTS\"&D15&+" - "&+C15 or

E:\Users\Corp Est\LM Region\PROJECTS\PORT NEAL CONCRETE UNIT 4 - LM-IA1144-C


the folder "E:\Users\Corp Est\LM Region\PROJECTS\" exists, I want to add folders as i add projects to my list
I want to press a button than will search through column E and create a folder for the values it finds unless
it already exists.

Thanks!

[TMS]

That's not so difficult ...

Sub Test()

MkDir "C:\Test"
MkDir "C:\Test\Excel"
MkDir "C:\Test\Excel\Folder1"
MkDir "C:\Test\Excel\Folder2"

End Sub

Obviously, you might want a bit of error checking and stuff in there.

Regards, TMS

[RHCPgergo]

Hi,

this macro assumes that your folder names are in column F starting from F2 and there are no empty cells in the list. It will ask if you want to make the two sub folders.

Sub mkDir_from_cell()

Dim CellDir As String, MyMsg
Dim i As Integer, x

For i = 2 To ActiveSheet.Cells(Rows.Count, "F").End(xlUp).Row
    CellDir = ActiveSheet.Cells(i, "F").Value
    If Len(Dir("E:\Users\Corp Est\LM Region\PROJECTS\" & CellDir, vbDirectory)) = 0 Then
        mkdir "E:\Users\Corp Est\LM Region\PROJECTS\" & CellDir
        MyMsg = MsgBox("Make 'BOL' and 'Tonnage' folders?", vbYesNo, CellDir)
        If MyMsg = vbYes Then
            mkdir "E:\Users\Corp Est\LM Region\PROJECTS\" & CellDir & "\BOL"
            mkdir "E:\Users\Corp Est\LM Region\PROJECTS\" & CellDir & "\Tonnage"
        End If
    End If
Next i
End Sub

[Hooty]

I won't be back to a cpu that i can test on till Tuesday... Have OpenOffice at home will Macro work the same?

If my column does have blank cells... Can i make it run till it hits a blank cell, then create several buttons for multiple lists, in the same column?


Thanks Again!!!

[RHCPgergo]

I think it will work with openoffice, not sure though.

I don't really understand your second sentence. Create what buttons for what lists?

[Hooty]

"this macro assumes that your folder names are in column F starting from F2 and there are no empty cells in the list. It will ask if you want to make the two sub folders."

If my column does have blank (empty) cells... Can i make it run till it hits a blank cell, then create several buttons for multiple lists, in the same column? ( If empty cells are an issue, can i assign the macro to run using a "button Function" for each set of lists?) SEE Attached

[TMS]

Apparently:

How to write VBA macros in Open Office