Using Excel VBA to copy one file and save it under a different folder with a different name

etamansoor

New Member
Joined
Oct 28, 2016
Messages
1
Guys,

I want to automate a redundant task that I do every day as a part of my work.

Let's say I have a file with a standard name in a Source location, then I have a destination location.

I want to copy this one file and save it as let's say 10 files with different names from an excel sheet.

Example

Source Location: C:\Users\Desktop\Source\
File Name - StandardBathroon.jpg

Destination Location: C:\Users\Desktop\Source\
Destination File Names:
1. KingBathroom.Jpg
2. QueenBathroom.Jpg
3. TwinBathroom.Jpg

I usually get the naming list from my superiors on an excel sheet, usually it has atleast 10 different names.

Is there I could get a excel vba code with a button to prform this.

Please help me out.

Thank you and Have a happy Friday.

Rihanna
 

Forum statistics

Threads
1,081,574
Messages
5,359,707
Members
400,545
Latest member
Damntheman30

Some videos you may like

This Week's Hot Topics

  • VBA (Userform)
    Hi All, I just would like to know why my code isn't working. Here is my VBA code: [CODE=vba]Private Sub OKButton_Click() Dim i As Integer...
  • List box that changes fill color
    Hello, I have gone through so many pages trying to figure this out. I have a 2020 calendar that depending on the day needs to have a certain...
  • Remove duplicates and retain one. Cross-linked cases
    Hi all I ran out of google keywords to use and still couldn't find a reference how to achieve the results of a single count. It would be great if...
  • VBA Copy and Paste With Duplicates
    Hello All, I'm in need of some input. My VBA skills are sub-par at best. I've assembled this code from basic research and it works but is...
  • Macro
    is it possible for a macro to run if the active cell value is different to the value above it
  • IF DATE and TIME
    I currently use this to check if date has passed but i also need to set a time on it too. Is it possible? [CODE=vba]=IF(B:B>TODAY(),"Not...
Top