Re: $$Excel-Macros$$ Change in existing macro.

2016-02-02 Thread Paul Schreiner
OOps..I copied one of my "quick and dirty" macrosand change the variable names to be somewhat more intuitive. But I guess I didn't change them all! sorry about that. Paul- “Do all the good you can, By all the means you can, In all the ways you can, In all th

Re: $$Excel-Macros$$ Change in existing macro.

2016-02-01 Thread Mandeep Baluja
> > Small error in paul code change this line Set fc = fl.Files to Set fc = > fldr.Files > > Regards, Mandeep baluja -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/disc

Re: $$Excel-Macros$$ Change in existing macro.

2016-02-01 Thread Paul Schreiner
Are you looking for a VBA solution to move files from one folder to another?Are you wanting to simply count the files in a folder? What is it you're trying to accomplish? for simply cycling through files you could use:     Set fso = CreateObject("Scripting.FileSystemObject")     fPath = "C:\temp"

Re: $$Excel-Macros$$ Change in existing macro.

2016-02-01 Thread Devendra Sahay
Hi Mandeep, What if, I want to move these files from one folder to destination folder, how can we do this ? because then i have a count of files on which i have to work. Please assist. Thanks, Devendra On Mon, Feb 1, 2016 at 6:39 PM, Mandeep Baluja wrote: > > > Sub CopyToFold() > Dim i As In

Re: $$Excel-Macros$$ Change in existing macro.

2016-02-01 Thread Mandeep Baluja
Sub CopyToFold() Dim i As Integer Dim fName As String Dim sourcepath As Object Dim destpath As Object Set sourcepath = Application.FileDialog(msoFileDialogFolderPicker) sourcepath.Show Sourcefld = sourcepath.SelectedItems(1) & "\" ' Debug.Print sourcefld Set destpath = Application.Fil

$$Excel-Macros$$ Change in existing macro.

2016-02-01 Thread Devendra Sahay
Hi Team, I want to change the procedure of assigning the path for running macro in below macro. currently m assigning both paths for- *From where to copy & where to paste the files*, I want to open a box for assigning the path for both. Please assist. Option Explicit Sub CopyToFold() Dim i As I