Create Folder based on cell value

[Rahulwork]

Hello Everyone

I made below code to create multiple folder based on cell value but i want that path should also picked from the cell.

I have folder path in F4. so instead of folder path i want to add F4 in code. please help

Sub AFolderVBA2() 'Excel VBA to make a folder.
Dim i As Integer

For i = 2 To 4

MkDir "Desktop:\ABC" & Range("AE" & i)

Next i

End Sub

 

[jon1315]

Hi
Do you mean like this?

Sub AFolderVBA2() 'Excel VBA to make a folder.
Dim i As Integer
dim Path as string

Path=range("f4").value


For i = 2 To 4

MkDir Path & Range("AE" & i)

Next i

End Sub

 

[jon1315]

Where the "desktop:\ABC" is shown in cell F4 and pulled from there instead of embedded into the code?

 

[Rahulwork]

Thank you so much it's working

 

[jon1315]

No problem

 

[Rahulwork]

Can i ask one more question if you dont mind?

i have below code to move file from one folder to another. i have below code

Sub MoveFiles()
Dim FSO As Object
Dim SourceFileName As String, DestinFileName As String

Set FSO = CreateObject("Scripting.Filesystemobject")
SourceFileName = Range("AP2").Value
DestinFileName = Range("AR2").Value

FSO.MoveFile Source:=SourceFileName, Destination:=DestinFileName

End Sub

Query - I have some file in AP column start from 2nd row and same in AR i have their new path .

can we edit this code as per requirement so this would move all files mentioned in AP column

 

[jon1315]

Sub MoveFiles()
    Dim FSO As Object
    Dim SourceFileName As String, DestinFileName As String
Dim I as long, LRow as long

lrow=cells(rows.count,42).end(xlup).row

for I = 2 to lrow

    Set FSO = CreateObject("Scripting.Filesystemobject")
    SourceFileName = Range("AP"& i).Value
    DestinFileName = Range("AR" & i).Value

    FSO.MoveFile Source:=SourceFileName, Destination:=DestinFileName

next i

 End Sub

 

[jon1315]

Mayve something like that?

 

[Rahulwork]

You are a star

 

[jon1315]

no problem - glad I could help