Change (Browse For Folder) To Automatically Locate Sub Folder
Jul 23, 2012
I am creating a document for work that automatically generates hyperlinks to pdf files in a given sub folder. Currently I have a section of code that opens a window to choose the folder location.
Code:
'Prompt user to select a directory
Do
Problem = False
Set ShellApp = CreateObject("Shell.Application"). _
Browseforfolder(0, "Please choose a folder", 0, "c:\")
On Error Resume Next
[Code] ........
What I actually want is to not have the window open, but excel automatically choose the sub folder location.
The directory looks like this
Z:ClientProjectDRAWINGS-2 RECORD COPIESPDF
The xlsm file is stored in the DRAWINGS folder, and I need it to point to the PDF folder.
View 9 Replies
ADVERTISEMENT
Apr 13, 2009
looking for some code to save to a destination
destination address is
C:Documents and SettingsstDesktopOJF
now the problem is OJF has folders named 1 to 500
so if cell d5 = 487 it will need to look in the above desination and then open the folder and save it there.
View 10 Replies
View Related
May 23, 2007
if it's possible to use XlDialogOpen to open up a folder that you only have part of the name.
For example, say you have the following folder paths:
C:Main FolderSubfolder1Smith,Billy 2413
C:Main FolderSubfolder1Brown,Charlie Ray 2416
C:Main FolderSubfolder1Bunny,B 3619
C:Main FolderSubfolder1Fudd,E-G 1864
What I'm hoping to do is just look for the 4 digit number on the end finding that folder name and opening it up. The name conventions before the 4-digit serial number are quite random. Sometimes it includes their full first name, other times it's just an initial for the first name and other times there are other characters included in the name. The one thing that is constant is the 4 digit serial number on the end.
how I could get the Open dialog box to pop up and have the chosen folder number open?
View 6 Replies
View Related
Feb 27, 2007
I have created a browse button in excel and assigned a macro which will ask the user for folder. I figured it out for windows using Windows API Functions as mentioned at http://www.cpearson.com/excel/BrowseFolder.htm. However cannot get it to work for a Mac.
View 2 Replies
View Related
Mar 21, 2008
Is there a way to incorporate a prompt that allows the user to browse a folder. The code I am using is below but 'myDir' will change each month.
Sub CombineWorkbooks()
Dim myDir As String, fn As String
Dim WSName As String
Dim WB As Excel.Workbook
WSName = "Summary"
On Error Goto Nxt
'turn off screen refresh for speed
Application.DisplayAlerts = False
Application. ScreenUpdating = False
myDir = "C:Users\DocumentsUsersWendyNew Folder"
fn = Dir(myDir & "*.xls")
View 7 Replies
View Related
May 12, 2014
I found some code that works well to index a folder and all sub-folders for file names.
The issue is that the folder used is coded in an excel spreadsheet (cell C7) in the below code and whether to look in sub-folders (cell C8 - True or False).
Code:
Sub ListFiles()
iRow = 11
Call ListMyFiles(Range("C7"), Range("C8"))
[Code]....
I have tried to incorporate the browse for folder and select if sub-folders are used, but it isn't working.
View 1 Replies
View Related
May 19, 2014
I'm having some trouble showing a messagebox if the user presses OK but doesn't select a folder using msoFileDialogFolderPicker.
[Code] .....
The 2 MsgBox's I've added show the same string, yet the If Not InStr line returns true regardless if ":" is in the string or not.
View 2 Replies
View Related
Nov 28, 2007
information about users selecting a folder at this link. However, how do I change the starting point to a network drive, as opposed to "My Computer"?
For example, we reference our network drives like this:
\OurSite.comSharedFoldersDivisionName
View 6 Replies
View Related
Apr 25, 2012
I have run into a problem in a project where I know what the folder root of the file I would like to import into excel is, but I do not know the file name.
I would like to open a dialogue open where I can select the file I wish to import from the known root supplied and retain the file name as a string.
All solution I have read assume the full file root is know or file name is known but root is unknown
I am working with Excel 2003.
View 2 Replies
View Related
May 14, 2014
I have alot of project folders on my harddrive.
All in format: I:/12345-costumer-projectname/
The five digits are unique for each project.
I make calculations for these projects using an excel file. In this excel I also type the projectnumber (cell J2)
Now i would like to make a button. When pressed, it checks the projectnumber cell J2, looksup the corresponding folder and saves the excelfile in PDF format in this folder.
I have found macro to find files in folders, but none which do the above.
View 4 Replies
View Related
Mar 15, 2013
I need a macro in a workbook to look at all the files in the same folder that have "*att*.xls" in the name and determine and copy from the range A15:W515 only the rows that have data in at least columns A, C and D. Each file will vary as to how many rows there will be and there are more than the files with "*att*.xls" in the folder. The data will be on the only worksheet in each file and the worksheet is named "G2WAttendee_xls" the data from all the files need to be copied to the file called "Consolidated webinar reports.xls" (I am using Excel 2003) and to a sheet called "Attendance Data" and added to the end of the last paste.
At the start of the macro the current file "Consolidated webinar report.xls" should be saved to a sub folder of the current directory and have the date saved added to the name. The sub folder is called "Completed reports". The data in the original file on worksheet "Attendance Data" should be deleted.
At the end of the process all the files that have had data copied from them should be moved to the sub folder "Attendance reports consolidated" (This could be done as each file is closed if that is easier).
I have headings in row 1 of the "Attendance Data" worksheet that match the headings in the various files in the folder (which will always be in row 14 of the individual "*att*.xls" files).
The folder with all the files and the "Consolidated webinar report.xls" file is at path "Z:P and S MEvaluationsWebinar series 2012-13TB".
View 9 Replies
View Related
Apr 21, 2014
I have up to 50 workbooks in one folder with data in a specific range. I also have one workbook which includes additional data, including conditional formatting and dropdowns. I need to copy the desired range from the first workbook in the source folder to the second workbook, then save the latter to my destination folder, using the same name as the first. I need to repeat this process for all workbooks in the source folder.
View 2 Replies
View Related
Jul 23, 2014
I have an Excel VBA Macro for creating/logging drawing numbers. Each drawing belongs to a job number. Each job number has a folder name containing the job number followed by a description (ie 999999 - bracket assembly) for storing drawing pdf's. The job number is only known as a 6 figure number in the drawing creation process BUT for the PDF saving process it is a string value...as my example above
I have to change my process by pre-creating the Job Number folder, then have the macro look for the appropriate folder by searching the parent folder for a sub folder containing the job number (always the first 6 figures).
I want to insert in my macro some code that searches...
The parent folder for a folder containing the job number. The macro value for the parent folder is P:engineeringdrawings (this never changes). the macro value for the job number is iOpenair (it's an entry that is entered as start the macro). Imagine the value for the job number is "999999"...so the search would be for "999999*.*" The code needs to search the parent folder, find the folder name that begins with a six digit number. Capture the complete name of the folder and store that name as a Dim value that I can call up elsewhere in my macro.
View 9 Replies
View Related
Jul 18, 2014
I have a list of items in an excel sheet... 500 of them... and there are images for them in an other folder... The problem is those images are in 1000's and I only need those 500 images.. Images are saved as "SKU.jpg eg NS2354.jpg and we have an SKU column in excel as well .. SKU and their images have same name...
Is there any solution to pick up only those 500 images from those thousands of images?
Is it possible to save those 500 images in an other folder?
View 2 Replies
View Related
Jun 21, 2014
I need a macro that will create a backup copy of excel file in other folder when an original file is closing.
View 6 Replies
View Related
May 9, 2007
i am wanting to automaticaly remove a file from a directory when this directory is populated and move to another directory that is secure, how would i do this? just say directory 1(where it will be removed from) is s:/ddc/reports
moved too-- s:/ddc/test
test folder will be secure
View 5 Replies
View Related
Apr 26, 2014
I would like to create a code that will open all workbooks in folder "A" one at a time and then close the work book after another code is executed. So one workbook will open and while the workbook is open, I will call another code to format the active workbook and then the active workbook will be saved in folder "B" and closed and go to the next workbook in folder "A" to start all over. The folders are saved on the desktop.
View 5 Replies
View Related
Dec 14, 2006
which part of this macro I need to edit to make it open a folder I want?
Sub OpenFolderRequest()
YesNo = MsgBox("Would you like to open the folder to see" _
& vbCr & "which files are currently there?", vbYesNo + vbQuestion, "Open Folder?")
Select Case YesNo
Case vbYes
myval = Shell("c:winntexplorer.exe c:winnt", 1)
Case vbNo
End Select
End Sub
I have tried changing the (c:winntexplorer.exe c:winnt) to the location name of the folder I want to open (S:Stock ControlSTOCK CONTROLOrder Confirmation)but it doesn’t seem to work.
View 9 Replies
View Related
Jun 2, 2007
i have as many as 100 workbooks in the same folder(such as "e:/data"),i should change the same address value in each workbook. first i write the code use "application.filesearch",but it can't run because it has removed FileSearch in excel 2007. i get the code below from Ron de Bruin
Sub test()
Dim wbOpen As Workbook
Dim ws As Worksheet
Dim I As Long
Dim myfiles() As String
MyPath = "e:data"
If Right(MyPath, 1) <> "" Then
MyPath = MyPath & ""
End If
'If there are no Excel files in the folder exit the sub
FilesInPath = Dir(MyPath & "*.xl*")
If FilesInPath = "" Then
MsgBox "No files found"
Exit Sub
End If...................
View 2 Replies
View Related
Feb 10, 2014
1. A workbook is closed
2. In addition to the original workbook being saved, a copy of the workbook with the current date is also saved to the specified location of my choice.
For example
"C:UsersUSER1DesktopBackup Test as of 02-10-14"
3. If a copy of the workbook is already saved with today's date, then overwrite it automatically without prompting the user.
4. All the above happens without any user interaction.
View 8 Replies
View Related
Dec 18, 2013
The CFO wants to change the name of the top folder on our network drive at work.
I have literally thousands of files in different folders within this top folder, and changing the name of the top folder is going to cause hundreds of thousands of reference errors.
Is there a best way to protect these links, other than to find+replace for hours and hours?
View 5 Replies
View Related
Oct 20, 2006
I know how to create a backup file for an excel file (General Options Menu in Save As dialog box, we have to tick the "Always create backup" check box). When we tick this option the backup file is created in the same folder. Can we specify the path were this backup file can be stored and updated each time when we save the main file.
View 4 Replies
View Related
May 18, 2007
Anyway to use VBA to print an Excel sheet with the Microsoft Document Image Writer to a specified folder automatically? I understand and use automatic printing all the time, but I don't know how to use VBA to specify the filename and folder once it prints with the Document Image Writer.
Is it possible to do?
View 9 Replies
View Related
Feb 24, 2008
When someone right clicks on a cell and chooses "Hyperlink" current folder is being displayed as a default.
is there a way to change this for a particular workbook through VBA or API calls ?
I would like to always have "c:" as the default folder no matter where the workbook is stored.
View 9 Replies
View Related
Nov 11, 2013
There is a folder with all excel files with the same structure. I need a macro, who opens one file by one in a folder, change the layout, and save it too same place with same name. Changing the layout will I do with macro record.
Sub AllFiles()
Dim MyFolder As String 'Path containing the files for looping
Dim MyFile As String 'Filename obtained by Dir function
Dim MyBook As Workbook
MyFolder = "D:LABODIESTSOST_DIEST" 'Assign directory to MyFolder variable
[Code] ......
View 9 Replies
View Related
Oct 9, 2012
Is there a way I can from vba cut a file from a folder and put in to another folder? And also create a folder? If yes, how can I do this?
Is it better to use dir or scripting.filesystem object?and if there is an advantage to use one over the other.
View 2 Replies
View Related
Mar 16, 2007
I have a workbook that requires a multiple of 3 to be entered in a cell. If a quantity other than a multiple of 3 is entered, a Msgbox pops up and requires the quantity to be changed to such value.
I am looking for where this is handled. I found part of it in a Private Sub:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
But I cannot locate where the other parts of the code is stored....
I would like to see how this is handled so I can incoporate this in my own worksheets.
View 9 Replies
View Related
Dec 17, 2013
Need VBA code to start with row 5 and look through COL F for any blue cells, IF=BLUE change the percent to 0% for that cell.
The RGB color code for this particular shade of blue is: Red 153, Green 204, Blue 255.
View 2 Replies
View Related
Mar 26, 2014
I have a column "ID" which contains ID . In the next column I want to get the name of the folder which contains a word file with same name as ID.
View 2 Replies
View Related
Apr 9, 2012
I have a macro that creates a folder from an active cell in A1. I know want to have it create the folder and create a hyperlink.
Sub MakeFolder_Rev1()
FolderLocation = "G:TST shared filesHonda Problem & IPPAAR-IPP TrackingHTR PROBLEM TRACKING SHEETS67 KiHTR Communication & Documents"
CurrentRow = ActiveCell.Row
FolderName = Range("A" & CurrentRow).Value
[Code]...
View 2 Replies
View Related
