Move all files in folder to another directory folder

[jk51]

Hi,

See file attached. Need help to modify the program.

There are 2 directories folder one is 'copy from' and other is 'copy to' and this program work only if you know the directory and paste in these cell C3 and C5 and click the button 'move files' to run.

I want to modify the VBA (excel 2010) program :

1) Copy from: go to C3 cell and get folder to browse the folder you want to copy from. select and the file directory appear in Cell C3.
2) Copy from: go to C5 cell and get folder to browse the folder you want to copy to. select and the file directory appear in Cell C5.
3) Click the button 'moves files' to run.

Thanks

Mr Singh

 

[Marc L]

Hi, paste this event code to worksheet module :​

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        Dim obj As Object
    If Target.Address = "$C$3" Or Target.Address = "$C$5" Then
         Cancel = True
        Set obj = CreateObject("Shell.Application").BrowseForFolder(0, "", 1, "")
     If Not obj Is Nothing Then Target.Value = obj.Self.Path & "\": Set obj = Nothing
    End If
End Sub

Do you like it ? So thanks to click on bottom right Like !
​

 

[jk51]

Hi Marc thank you for your reply. Don't understand where to paste your code to my program. Can you shown me. Thanks.

 

[Marc L]

Paste it into Sheet1 module.

A double click on cell C3 or C5 will ask to choose a folder.
​

 

[jk51]

No doesn't work.

 

[Marc L]

As it works on my side on a new workbook :
​

 

[Monty]

Hello Marc...


Interesting way of explaining things...How to do this animation effect.

 

[jk51]

Hi Marc, Thank for the demo. Can you send me your file? Mine still not working.

 

[Marc L]

Hi Monty ! There are a lot a free screen capture software on web !

jk51, where do you paste the code ?
Try also on a new workbook (after closing Excel, restart Windows) …
​

 

[jk51]

Hi Marc, I just managed to work. Thank you very much for your help. I like your demo. Which screen capture software did you download from?

 

[Marc L]

It depends on what is already installed on computer I grabbed,
like ScreenToGif for example …
​

 

[Monty]

Hmmm...You have discovered new way of presenting answers..

Really good one.

 

[Marc L]

No as I'm not the first on this forum to post a visualization …
It is not a « how to » but just to illustrate code works on my side.​

 

[Monty]

Hello Marc.

May be....But for me it's first time seeing showing demo with animation.

Thanks
Monty