cancel
Showing results for 
Search instead for 
Did you mean: 
Reply
Azrael1018
Frequent Visitor

PAD Select all cells in a worksheet and copy formatting only to another worksheet

Thank you in advance.

This may be somewhat complex.

I do this every month to 64 worksheets.  Hence my desire to automate.

I have used PAD to download the raw csv of the reports I wish to modify.

e.g. 

Balance sheet raw Screenshot 2022-01-14 162750.jpg

I have a second spreadsheet that I copy formatting from:

Balance sheet formats Screenshot 2022-01-14 162750.jpg

I need to copy the formatting from the second spreadsheet to the first spreadsheet.

When doing manually I Ctrl-A second spreadsheet, switch to first spreadsheet Ctrl-Home and Alt-HVR.

Then I save the first spreadsheet as a .xlsx file.

I will also need to add some blank rows and columns and copy specific cells from second to first but I think I see how to do that.

 

Potentially complicating matters is my second spreadsheet has multiple tabs for formatting the different types of reports.

Balance sheet tabs Screenshot 2022-01-14 162750.jpg

I think I know how to open both spreadsheets in PAD but I am confused how to copy the formatting from one to the other.

 

BTW (another problem), I tried to do it using Recorder. Nothing goes to my flow, as shown below in after "Recording"

Recorder Screenshot 2022-01-14 163937.jpg

I am sure I must be missing something, but I do not know what.

 

Just started with PAD this week.  Already got some relatively complex Web Automation flows done to download these files.  Now I need to process them.

 

Once again, thank you in advance.

David

7 REPLIES 7
MichaelAnnis
Super User
Super User

Hey David,

 

Excel VBA, would be a huge tool here, and much faster than anything PAD can do.  Unfortunately trying to click a cell in PAD takes a VERY long time.  It can do it, but it takes a good 10 seconds, so that's out.  Luckily, the VBA wouldn't even be that complex.

 

We are going to use PAD to get all the filenames, open the Macro workbook, and paste the filenames to A1.  Then, we will use one Macro to loop through all of the files: open the file, extract the type of report from B1 (assuming that is unique - I saw "Balance Sheet"), use a "Select Case" scenario from B1 to determine which tab we want, copy all cells from the tab , paste all formatting to the original file, and save the file where we want; it will do this for every single file.

 

Here is all you need for PAD:

1, get all the files you want to format into a single folder, such as C:\statements to format

2, Use the 'Get files' action to get all files to %Files%

3, Launch the Macro Workbook

4, Run the Macro

 

Done

 

If this is something you are interested in, I can help you build out the VBA Macro, but I want to make sure you are on board, before I spend the time on it.

 

Let me know,

 

Mike

 

----
If my post has answered your question, please thumbs up and mark this post as a solution.

I also offer paid consulting services. If you would like to discuss this option, please feel free to DM me and we can set up a time to join a Zoom call and fix any issues you are having.

Hey Mike,

PAD can be quite slow to click, at least in Web apps.  I converted nearly all of my UI thingamajigs to Mouse Clicks with position.  Thus, I can see what you mean in Excel.

 

I have worked very sparingly with Excel VBA.  Mainly a few simple items using Record Macro.

 

I would happily accept your help.  Can we Direct Message on this board?  Or can you DM me to my email.

 

I did see your reply in my email but did not reply from Gmail as I did not know if I could do so direct to you.

 

Looking forward,

 

David

Here's the Excel VBA if you want to get started before we chat.  

 

I have this set up so your formatting workbook would have another tab called "Files" that PAD would list the files in A1 to A [whatever] which will be defined by "LR" as Last row.  It will find that out on it's own, as long as they are all listed sequentially in column A starting at A1.

 

Your changes are going to be in "get the Case variable from A2 of the opened file"...I think yours is B2, so you will have to point that in the right place.

 

Next change, the "Select Case".  Give each Case for all possible strings found in B2, and each resulting tab name for "formattab".

 

That should be it.  Otherwise, it selects all on the format tab, paste formats on the current file, saves and closes the current file and loops to the next one.

 

Talk to you next week.  Best of luck!

 

Below is the macro code:

 

Sub FormattingWorkbooks()
'
' FormattingWorkbooks Macro
' open each file (listed in Files tab by PAD), identify type of workbook, copy formatting from proper tab, save and close workbook
'

'
Sheets("Files").Select
'get last row to limit the loop run
Dim LR As Long
Range("A1").Select
Selection.End(xlDown).Select
LR = Selection.Row

'dim all variables before loop
Dim filepathandname As String 'the file path and name for the current file in the loop index
Dim formatID As String 'the text identified in the file name used to decide which formatting tab to use
Dim formattab As String 'the formatting tab from the macro workbook to be used to format the current file
Dim AWB As Workbook 'active workbook from filename
Dim i As Integer 'the index for the loop run
i = 1 'the loop will start on A1

'loop for each filename in column A of files (A1 to A & LR)
Do
Sheets("Files").Select
filepathandname = Range("A" & i).Value
Workbooks.Open filename:=filepathandname
'get active workbook name for later window switch after copying cells from macro workbook
Set AWB = ActiveWorkbook

'get the Case variable from A2 of the opened file

formatID = Range("A2").Value
formatID = Trim(formatID) ' removes beginnning or ending spaces off the text
'select which formatting tab we are going to use based on the Case variable
Select Case formatID
Case "UNREALIZED GAINS AND LOSSES"
formattab = "UG"
Case "SECURITY CROSS REFERENCE"
formattab = "SecXRef"
Case Else
MsgBox ("Error - Format not found")
End Select

'copy formatting from format tab
Windows("Copy formatting.xlsm").Activate
Sheets(formattab).Select
Cells.Select
Selection.Copy
Windows(AWB.Name).Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells.EntireColumn.AutoFit
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Windows("Copy formatting.xlsm").Activate
i = i + 1 'increase i to get the next filename until we reach LR
Loop Until i > LR
End Sub

----
If my post has answered your question, please thumbs up and mark this post as a solution.

I also offer paid consulting services. If you would like to discuss this option, please feel free to DM me and we can set up a time to join a Zoom call and fix any issues you are having.
Benny_1857
Helper III
Helper III

Hello David,

I have the same experience with you. My friend had a lot of heatting analysis data every month and each zip contains a csv file which need to adjust the column. After adjustment, it has 170 columns and 20,000+ rows.

Here is some suggestion I have. Hope will be useful for you.

Here I find several problem you need to solve before you use PAD solve your excel automation.

1. CSV transfer to XLSX
Currently, it is a very easy work to use Excel Power Query. Normally, for PAD could work more easily, you could ask excel get the csv file from folder and PQ will automatically identify the file. 
PQ is a low code tools for data cleaning in excel. From the picture I saw you even do not need to change anything from your csv file. If you need to insert columns or rows that could be adjust in PQ. Just loading after complete PQ adjustment then adjust the font and fill after the loading in excel sheet.

This is an automatic model in excel for your next 63 csv file. Everytime, you just need to load the csv file from this model and save as a new file name.

Benny_1857_0-1642302470006.png

2 loading 64 file. This is why I suggest read the file from folder not file as file have different file name but we could put different csv file into same folder.

You need to have 3 folders. For instance, Folder A is csv Folder which you put 64 csv files in it. Folder C is xlsx folder which you put all completed transferred xlsx file. Folder B is a special one which is for your model to pick up csv file. So everytime, move one csv from A to B, use your PQ model file to read and load it. Then save as to C and clear the folder B at same time. After 64 times, all the csv files in A were moved to B one by one and cleared after transfered to xlsx and save as into C. Finally there only 64 xlsx in C.

(Also, you will need 2 support spreadsheet or excel to load the files name and path in folder A and changed the file name and path to folder C.

Benny_1857_1-1642303421871.png

Benny_1857_2-1642303496409.png

 

 

3. UI automation for Power Query automation. As in Excel, the refresh PQ is mannual, you could use UI automation to start it. Once the PQ completed according to the data size, you could use Image to recognize whether it completed or not to start next step.

4. Small tips, you could google how to remove the refresh link and set up column width

OK.  I think I finally got the PAD working correctly to generate my .csv files.

 

 

I click OK and it continues.  Next I get below.
 

 

I understand this.  It is trying to put it in my Documents folder and I already ran it once, thus producing the file before.
However, I would like it to be put into a specific folder. ???
I click Yes.
 
Then it looks like it goes to the bottom of the file list and gives:
 

 

I click Debug, VBA window opens and I see:
 

 

 
I changed a few things in code.  Hopefully doing it correctly. You had "formatID" defined but had "formattab" in code.  I changed code to formatID.
 

6th unnamed.png

 

 

The Balance sheet did format correctly.  However, it was the only sheet to work.
 
I have a "formatting Worksheet" for each of my nine properties.  I thought if I could get it to work for the first, it will work for the others.
 
Also, there is more things to add to macro.  I have 6 sheets per property.Balance Sheet, Income Statement, Income Statement vs Budget, Income Statement MTM , Statement of cash flows, and GLTB.
On the three Income Statement sheets, I need to insert 5 rows (7-11) and copy 5 rows (7-11) from the formatting sheets. (info on these added rows changes each month dependent on another workbook).
Complicating things further, the MTM I copy A7-A10 and then C7-M10 (drop off oldest month), then copy L7-L10 (old M7-M10) to M7 so newest month number can be put in.
 
To complicate even further, 4 of the properties the above works (7-11, etc), but 5 of the properties download differently. Instead of 7-11, I must insert, copy etc from 9-13.
 
Complex? Yes.  Incredible amount of time saving, though, once I can get it work.
 
Below is my VBA as it stands now:

Sub FormattingWorkbooks()
'
' FormattingWorkbooks Macro
' open each file (listed in Files tab by PAD), identify type of workbook, copy formatting from proper tab, save and close workbook
'

'
Sheets("Files").Select
'get last row to limit the loop run
Dim LR As Long
Range("A1").Select
Selection.End(xlDown).Select
LR = Selection.Row

'dim all variables before loop
Dim filepathandname As String 'the file path and name for the current file in the loop index
Dim formatID As String 'the text identified in the file name used to decide which formatting tab to use
Dim formattab As String 'the formatting tab from the macro workbook to be used to format the current file
Dim AWB As Workbook 'active workbook from filename
Dim i As Integer 'the index for the loop run
i = 1 'the loop will start on A1

'loop for each filename in column A of files (A1 to A & LR)
Do
Sheets("Files").Select
filepathandname = Range("A" & i).Value
Workbooks.Open Filename:=filepathandname
'get active workbook name for later window switch after copying cells from macro workbook
Set AWB = ActiveWorkbook

'get the Case variable from A2 of the opened file

formatID = Range("B2").Value
formatID = Trim(formatID) ' removes beginnning or ending spaces off the text
'select which formatting tab we are going to use based on the Case variable
Select Case formatID
Case "Balance Sheet"
formattab = "Balance Sheet"
Case "INCOME STATEMENT"
formattab = "Inc Stmnt"
Case "INCOME STATEMENT vs Budget"
formattab = "Inc Stmnt vs Budget"
Case "INCOME STATEMENT MTM"
formattab = "Inc Stmnt MTM"
Case "STATEMENT OF CASHFLOWS - IB"
formattab = "St Cash Flows"
Case "Account Number"
formattab = "GLTB"
Case Else
MsgBox ("Error - Format not found")
End Select

'copy formatting from format tab
Windows("Copy formatting.xlsm").Activate
Sheets(formattab).Select
Cells.Select
Selection.Copy
Windows(AWB.Name).Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells.EntireColumn.AutoFit
Application.CutCopyMode = False
ActiveWorkbook.SaveAs , FileFormat:=51
ActiveWindow.Close
Windows("Copy formatting.xlsm").Activate
i = i + 1 'increase i to get the next filename until we reach LR
Loop Until i > LR
End Sub

 

 
Thank you,
 
David
 

Sorry, I cannot get pics to upload.

first above is a Microsoft excel Error box:

Error - Format not found

 

Second is reference Microsoft sheet already exits.

 

3rd missing after "file list and gives"

MS VBA 

Run-time error '9':

Subscript out of range

 

4th missing "open and I see"

'copy formatting from format tab
Windows("Altoona Worksheet Template.xlsx").Activate
Sheets(formatID).Select  
Cells.Select
Selection.Copy
Windows(AWB.Name).Activate

Ok, let’s set up a time later this week.  I sent you a PM and we can go through it on zoom. I was not able to read everything, but formatID was what you see and formattab was the resulting tab you get. 

select case [variable to iterate]
    Case [variable is]
    Result

End Select

----
If my post has answered your question, please thumbs up and mark this post as a solution.

I also offer paid consulting services. If you would like to discuss this option, please feel free to DM me and we can set up a time to join a Zoom call and fix any issues you are having.

Helpful resources

Announcements

Celebrating a New Season of Super Users with Charles Lamanna, CVP Microsoft Business Applications

February 8 was the kickoff to the 2024 Season One Super User program for Power Platform Communities, and we are thrilled to welcome back so many returning Super Users--as well as so many brand new Super Users who started their journey last fall. Our Community Super Users are the true heroes, answering questions, providing solutions, filtering spam, and so much more. The impact they make on the Communities each day is significant, and we wanted to do something special to welcome them at our first kickoff meeting of the year.   Charles Lamanna, Microsoft CVP of Business Applications, has stressed frequently how valuable our Community is to the growth and potential of Power Platform, and we are honored to share this message from him to our 2024 Season One Super Users--as well as anyone who might be interested in joining this elite group of Community members.     If you want to know more about Super Users, check out these posts for more information today:    Power Apps: What is A Super User? - Power Platform CommunityPower Automate: What is A Super User? - Power Platform Community Copilot Studio: What is A Super User? - Power Platform Community Power Pages: What is A Super User? - Power Platform Community

February 2024 User Group Update: Welcoming New Groups and Highlighting Upcoming Events

It's a new month and a brand-new year, which means another opportunity to celebrate our amazing User Groups!Each month, we highlight the new User Groups that have joined the community. It's been a busy season for new groups, because we are thrilled to welcome 15 New User Groups! Take a look at the list below, shared by the different community categories. If your group is listed here, give this post a kudo so we can celebrate with you!   We love our User Groups and the difference they make in the lives of our Community! Thank you to all the new User Groups, new User Group leaders--we look forward to hearing about your successes and the impact you will leave!   In addition to our monthly User Group spotlight, it's a great time to share some of the latest events happening in our User Group community! Take a look at the list below to find one that fits your schedule and need! There's a great combination of in-person and virtual events to choose from. Also, don't forget to review the many events happening near you or virtually! It's a great time of year to connect and engage with User Groups both locally and online. Please Welcome Our NEW User Groups   Power Platform: Heathcare Power Platform User Group Power Platform Connect Hub Power Platform Usergroup Denmark Mexico Norte- Power Platform User Group Pune Power User Group Sudbury Power Platform User GroupMicrosoft User Group GhanaMPPBLR - Microsoft Power Platform Bengaluru User Group Power Apps:   Myrtle Beach Power Platform User GroupAnanseTechWB PowerApps Copilot Studio: Pathfinders Power Platform Community Dynamics365: Cairo, Egypt MSD 365 Business Central/NAV/F&O User GruopMS Dynamics 365 Business Central LatamCincinnati OH D365 F&O User Group February User Group Events February 2024 Cleveland Power Platform User GroupPortallunsj - Februar 2024Indiana D365/AX February User Group MeetingQ1 2024 KC Power Platform and Dynamics 365 CRM Users Group 

January 2024 Community Newsletter

Welcome to our January Newsletter, where we highlight the latest news, product releases, upcoming events, and the amazing work of our outstanding Community members. If you're new to the Community, please make sure to follow the latest News & Announcements in each Community and check out the Community on LinkedIn as well! It's the best way to stay up-to-date in 2024 with all the news from across Microsoft Power Platform and beyond.      COMMUNITY HIGHLIGHTS Check out the most active community members of the last month! These hardworking members are posting regularly, answering questions, giving (and receiving!) kudos, and consistently providing top solutions in their communities. We are so thankful for each of you--keep up the great work! If you hope to see your name here next month, make it your New Year's Resolution to be more active in the community in 2024.   Power AppsPower AutomateCopilot StudioPower PagesWarrenBelzWarrenBelzPstork1saudali_25LaurensMPstork1stephenrobertLucas001AARON_ClbendincpaytonSurendran_RANBNived_NambiarMariamPaulachanNikhil2JmanriqueriosANBJupyter123rodger-stmmbr1606Agniusstevesmith27mandelaPhineastrice602AnnaMoyalanOOlashynBCLS776grantjenkinsExpiscornovusJcookSpongYeAARON_CManishSolankiapangelesPstork1ManishSolankiSanju1Fubar   LATEST NEWS Power Platform 2024 Release Wave Highlights This month saw the 2024 Release Wave 1 plans for Microsoft Power Platform and Microsoft Dynamics 365- a compilation of new capabilities planned for release between April and September 2024. Click here to read Corporate Vice President Maureen (Mo) Osborne's detailed breakdown of the upcoming capabilities, and click the image below to check out some of the Power Platform 2024 Release Wave 1 highlights.     "What's New" Power Platform Shorts Series This month we also launched our brand-new 'Power Shorts' series on YouTube - a selection of super sweet snapshots to keep you in the loop with all the latest trends from across the Power Platform and beyond. Click the image below to check out the entire playlist so far, and don't forget to subscribe to our YouTube channel for all the latest updates.   Super User In Training (S.U.I.T) It was great to see the Power Platform Community officially kick off Season One of their Super User in Training (SUIT) program this month! Their first meeting saw an amazing turnout of over 300 enthusiastic participants who started their dynamic journey toward becoming Super Users. Huge thanks to Manas Maheshwari, Eric Archer, Heather Hernandez, and Duane Montague for a fantastic kick-off. The first meeting also saw seasoned Super User, Drew Poggemann, share invaluable insights on navigating the #MicrosoftCommunity with finesse. Many thanks to Drew for setting the stage and emphasizing the importance of active engagement and the art of providing thoughtful community solutions. If you want to learn more about the features and benefits of gaining Super User status, click the image below to find out more, and watch this space for more info about Season Two and how you can SUIT UP in the community!     UPCOMING EVENTS Microsoft 365 Community Day - Miami - February 1-2, 2024 It's not long now until the Microsoft 365 Community Day Miami, which will be taking place at the Wolfson Campus at Miami Dade College on 1-2 Feb. 2024. This free event is all about unlocking the full potential of Power Platform, Microsoft 365, and AI, so whether you’re a tech enthusiast, a business owner, or just curious about the latest Microsoft advancements, #M365Miami is for you.   The event is completely free and there will sessions in both English and Spanish to celebrate the vibrant and diverse make-up of our amazing community. Click the image below to join this amazing Community Day in Miami and become a part of our incredible network of learners and innovators!     Microsoft Fabric - Las Vegas - March 26-28, 2024 Exciting times ahead for the inaugural #MicrosoftFabric Community Conference on March 26-28 at the MGM Grand in Las Vegas. And if you book now, you can save $100 off registration! The Microsoft Fabric Conference will cover all the latest in analytics, AI, databases, and governance across 150+ sessions.   There will be a special Community Lounge onsite, interactive learning labs, plus you'll be able to 'Ask the Experts' all your questions to get help from data, analytics, and AI specialists, including community members and the Fabric Customer Advisory Team. Just add the code MSCUST when registering for a $100 discount today. Click the image below to find out more about the ultimate learning event for Microsoft Fabric!     Microsoft 365 Conference - Orlando - April 30 - May 2, 2024 Have you added The Microsoft 365 Conference to your community calendar yet? It happens this April 30th - May 2nd in Orlando, Florida. The 2024 Microsoft 365 Conference is one of the world’s largest gatherings of Microsoft engineers and community, with a strong focus on Power Platform, SharePoint, Azure, and the transition to an AI-powered modern workplace.   Click the image link below to find out more and be prepared to be enlightened, educated, and inspired at #M365Conf24!   LATEST COMMUNITY BLOG ARTICLES Power Apps Community Blog Power Automate Community Blog Copilot Studio Community Blog Power Pages Community Blog Check out 'Using the Community' for more helpful tips and information: Power Apps, Power Automate, Copilot Studio, Power Pages  

Super Users 2024 Season One is Here!

   We are excited to announce the first season of our 2024 Super Users is here! Our kickoff to the new year welcomes many returning Super Users and several new faces, and it's always exciting to see the impact these incredible individuals will have on the Community in 2024! We are so grateful for the daily difference they make in the Community already and know they will keep staying engaged and excited for all that will happen this year.   How to Spot a Super User in the Community:Have you ever written a post or asked for help in the Community and had it answered by a user with the Super User icon next to their name? It means you have found the actual, real-life superheroes of the Power Platform Community! Super Users are our heroes because of the way they consistently make a difference in the Community. Our amazing Super Users help keep the Community a safe place by flagging spam and letting the Community Managers know about issues. They also make the Community a great place to find answers, because they are often the first to offer solutions and get clarity on questions. Finally, Super Users share valuable insights on ways to keep the Community growing, engaging, and looking ahead!We are honored to reveal the new badges for this season of Super Users! Congratulations to all the new and returning Super Users!     To better answer the question "What is a Super User?" please check out this article: Power Apps: What is A Super User? - Power Platform CommunityPower Automate: What is A Super User? - Power Platform Community Copilot Studio: What is A Super User? - Power Platform Community Power Pages: What is A Super User? - Power Platform Community

Did You Attend the Microsoft Power Platform Conference in 2022 or 2023? Claim Your Badge Today!

If you were one of the thousands of people who joined us at the first #MPPC Microsoft Power Platform Conference in 2022 in Orlando--or attended the second-annual conference in Las Vegas in 2023--we are excited to honor you with a special community badge! Show your support for #MPPC Microsoft Power Platform Conference this year by claiming your badge!           Just follow this link to claim your badge for attending #MPPC in 2022 and/or 2023: MPPCBadgeRequest    Want to earn your badge for 2024? Just keep watching our News & Announcements for the latest updates on #MPPC24.

Microsoft Power Platform | 2024 Release Wave 1 Plan

Check out the latest Microsoft Power Platform release plans for 2024!   We have a whole host of exciting new features to help you be more productive, enhance delegation, run automated testing, build responsive pages, and so much more.    Click the links below to see not only our forthcoming releases, but to also try out some of the new features that have recently been released to market across:     Power Apps  Power Automate  Copilot Studio   We can’t wait to share with you all the upcoming releases that will help take your Power Platform experience to the next level!    Check out the entire Release Wave: Power Platform Complete Release Planner 

Top Solution Authors
Top Kudoed Authors
Users online (2,244)