Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Automaic Folder Numbering
This is a line of code that i use to create folders on my computer with what
ever value B3 is, now what i would like to do is by clicking a button have it look under a certain folder and audomaticlly enter the next 5 digit number and create a folder with that number and put it into a cell in my worksheet like this - 10001, 10002, 10003, etc...... MkDir "C:\\Globe Photo Engraving\Jobs\" & Range("B3").Value |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Automaic Folder Numbering
David,
I have assumed the sheet name is Sheet1 - enter the starting number in cell B3 there, and run this macro: Sub CreateFolder() Dim MyFilePath As String Dim FolderC As Integer MyFilePath = "C:\Globe Photo Engraving\Jobs\" FolderC = Worksheets("Sheet1").Range("B3").Value On Error GoTo FolderExists '<< in case folder exists TryAgain: MkDir MyFilePath & FolderC '<< create folder Worksheets("Sheet1").Range("B3").Value = FolderC + 1 Msgbox "I just created the folder " & MyFilePath & FolderC Exit Sub FolderExists: FolderC = FolderC + 1 Resume TryAgain End Sub -- HTH, Bernie MS Excel MVP "David Shoemaker" wrote in message ... This is a line of code that i use to create folders on my computer with what ever value B3 is, now what i would like to do is by clicking a button have it look under a certain folder and audomaticlly enter the next 5 digit number and create a folder with that number and put it into a cell in my worksheet like this - 10001, 10002, 10003, etc...... MkDir "C:\\Globe Photo Engraving\Jobs\" & Range("B3").Value |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Please help. Remove dups automaic of same name,price,month. | Excel Discussion (Misc queries) | |||
how can i change my default working folder to a networked folder? | Excel Discussion (Misc queries) | |||
How to decide folder-depth or How to select more folders/subfolders (folder-tree) ? | Excel Discussion (Misc queries) | |||
how can I specific a folder with wildcard criteria and excel will import all the correct files in that folder? | Excel Discussion (Misc queries) | |||
automaic "nice" display of the labels in a pie chart | Charts and Charting in Excel |