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

Back to Basics: Tuesday Tip #1: All About YOUR Community Account

We are excited to kick off our new #TuesdayTIps series, "Back to Basics." This weekly series is our way of helping the amazing members of our community--both new members and seasoned veterans--learn and grow in how to best engage in the community! Each Tuesday, we will feature new areas of content that will help you best understand the community--from ranking and badges to profile avatars, from Super Users to blogging in the community. Our hope is that this information will help each of our community members grow in their experience with Power Platform, with the community, and with each other!     This Week's Tips: Account Support: Changing Passwords, Changing Email Addresses or Usernames, "Need Admin Approval," Etc.Wondering how to get support for your community account? Check out the details on these common questions and more. Just follow the link below for articles that explain it all.Community Account Support - Power Platform Community (microsoft.com)   All About GDPR: How It Affects Closing Your Community Account (And Why You Should Think Twice Before You Do)GDPR, the General Data Protection Regulation (GDPR), took effect May 25th 2018. A European privacy law, GDPR imposes new rules on companies and other organizations offering goods and services to people in the European Union (EU), or that collect and analyze data tied to EU residents. GDPR applies no matter where you are located, and it affects what happens when you decide to close your account. Read the details here:All About GDPR - Power Platform Community (microsoft.com)   Getting to Know You: Setting Up Your Community Profile, Customizing Your Profile, and More.Your community profile helps other members of the community get to know you as you begin to engage and interact. Your profile is a mirror of your activity in the community. Find out how to set it up, change your avatar, adjust your time zone, and more. Click on the link below to find out how:Community Profile, Time Zone, Picture (Avatar) & D... - Power Platform Community (microsoft.com)   That's it for this week. Tune in for more Tuesday Tips next Tuesday and join the community as we get "Back to Basics."

Announcing the MPPC's Got Power Talent Show at #MPPC23

Are you attending the Microsoft Power Platform Conference 2023 in Las Vegas? If so, we invite you to join us for the MPPC's Got Power Talent Show!      Our talent show is more than a show—it's a grand celebration of connection, inspiration, and shared journeys. Through stories, skills, and collective experiences, we come together to uplift, inspire, and revel in the magic of our community's diverse talents. This year, our talent event promises to be an unforgettable experience, echoing louder and brighter than anything you've seen before.    We're casting a wider net with three captivating categories:  Demo Technical Solutions: Show us your Power Platform innovations, be it apps, flows, chatbots, websites or dashboards... Storytelling: Share tales of your journey with Power Platform. Hidden Talents: Unveil your creative side—be it dancing, singing, rapping, poetry, or comedy. Let your talent shine!    Got That Special Spark? A Story That Demands to Be Heard? Your moment is now!  Sign up to Showcase Your Brilliance: https://aka.ms/MPPCGotPowerSignUp  Deadline for submissions: Thursday, Sept 28th    How It Works:  Submit this form to sign up: https://aka.ms/MPPCGotPowerSignUp  We'll contact you if you're selected. Get ready to be onstage!  The Spotlight is Yours: Each participant has 3-5 minutes to shine, with insightful commentary from our panel of judges. We’re not just giving you a stage; we’re handing you the platform to make your mark.     Be the Story We Tell: Your talents and narratives will not just entertain but inspire, serving as the bedrock for our community’s future stories and successes.    Celebration, Surprises, and Connections: As the curtain falls, the excitement continues! Await surprise awards and seize the chance to mingle with industry experts, Microsoft Power Platform leaders, and community luminaries. It's not just a show; it's an opportunity to forge connections and celebrate shared successes.    Event Details:  Date and Time: Wed Oct 4th, 6:30-9:00PM   Location: MPPC23 at the MGM Grand, Las Vegas, NV, USA  

September User Group Success Story: Reading Dynamics 365 & Power Platform User Group

The Reading Dynamics 365 and Power Platform User Group is a community-driven initiative that started in September 2022. It has quickly earned recognition for its enthusiastic leadership and resilience in the face of challenges. With a focus on promoting learning and networking among professionals in the Dynamics 365 and Power Platform ecosystem, the group has grown steadily and gained a reputation for its commitment to its members!   The group, which had its inaugural event in January 2023 at the Microsoft UK Headquarters in Reading, has since organized three successful gatherings, including a recent social lunch. They maintain a regular schedule of four events per year, each attended by an average of 20-25 enthusiastic participants who enjoy engaging talks and, of course, pizza.   The Reading User Group's presence is primarily spread through LinkedIn and Meetup, with the support of the wider community. This thriving community is managed by a dedicated team consisting of Fraser Dear, Tim Leung, and Andrew Bibby, who serves as the main point of contact for the UK Dynamics 365 and Power Platform User Groups.   Andrew Bibby, an active figure in the Dynamics 365 and Power Platform community, nominated this group due to his admiration for the Reading UK User Group's efforts. He emphasized their remarkable enthusiasm and success in running the group, noting that they navigated challenges such as finding venues with resilience and smiles on their faces. Despite being a relatively new group with 20-30 members, they have managed to achieve high attendance at their meetings.   The group's journey began when Fraser Dear moved to the Reading area and realized the absence of a user group catering to professionals in the Dynamics 365 and Power Platform space. He reached out to Andrew, who provided valuable guidance and support, allowing the Reading User Group to officially join the UK Dynamics 365 and Power Platform User Groups community.   One of the group's notable achievements was overcoming the challenge of finding a suitable venue. Initially, their "home" was the Microsoft UK HQ in Reading. However, due to office closures, they had to seek a new location with limited time. Fortunately, a connection with Stephanie Stacey from Microsoft led them to Reading College and its Institute of Technology. The college generously offered them event space and support, forging a mutually beneficial partnership where the group promotes the Institute and encourages its members to support the next generation of IT professionals.   With the dedication of its leadership team, the Reading Dynamics 365 and Power Platform User Group is poised to continue growing and thriving! Their story exemplifies the power of community-driven initiatives and the positive impact they can have on professional development and networking in the tech industry. As they move forward with their upcoming events and collaborations with Reading College, the group is likely to remain a valuable resource for professionals in the Reading area and beyond.  

A Celebration of What We've Achieved--And Announcing Our Winners

As the sun sets on the #SummerofSolutions Challenge, it's time to reflect and celebrate! The journey we embarked upon together was not just about providing answers – it was about fostering a sense of community, encouraging collaboration, and unlocking the true potential of the Power Platform tools.   From the initial announcement to the final week's push, the Summer of Solutions Challenge has been a whirlwind of engagement and growth. It was a call to action for every member of our Power Platform community, urging them to contribute their expertise, engage in discussions, and elevate collective knowledge across the community as part of the low-code revolution.   Reflecting on the Impact As the challenge ends, it's essential to reflect on the impact it’s had across our Power Platform communities: Community Resilience: The challenge demonstrated the resilience of our community. Despite geographical distances and diverse backgrounds, we came together to contribute, learn, and collaborate. This resilience is the cornerstone of our collective strength.Diverse Expertise: The solutions shared during the challenge underscore the incredible expertise within our community. From intricate technical insights to creative problem-solving, our members showcased their diverse skill sets, enhancing our community's depth.Shared Learning: Solutions spurred shared learning. They provided opportunities for members to grasp new concepts, expand their horizons, and uncover the Power Platform tools' untapped potential. This learning ripple effect will continue to shape our growth. Empowerment: Solutions empowered community members. They validated their knowledge, boosted their confidence, and highlighted their contributions. Each solution shared was a step towards personal and communal empowerment. We are proud and thankful as we conclude the Summer of Solutions Challenge. The challenge showed the potential of teamwork, the benefit of knowledge-sharing, and the resilience of our Power Platform community. The solutions offered by each member are more than just answers; they are the expression of our shared commitment to innovation, growth, and progress!     Drum roll, Please... And now, without further ado, it's time to announce the winners who have risen above the rest in the Summer of Solutions Challenge!   These are the top community users and Super Users who have not only earned recognition but have become beacons of inspiration for us all.   Power Apps Community:  Community User Winner: @SpongYe Super User Winner: Pending Acceptance Power Automate Community:  Community User Winner: @trice602 Super User Winner: @Expiscornovus  Power Virtual Agents Community: Community User Winner: Pending AcceptanceSuper User: Pending Acceptance Power Pages Community: Community User Winner: @OOlashyn Super User Winner: @ChristianAbata   We are also pleased to announced two additional tickets that we are awarding to the Overall Top Solution providers in the following communities:    Power Apps: @LaurensM   Power Automate: @ManishSolanki    Thank you for making this challenge a resounding success. Your participation has reaffirmed the strength of our community and the boundless potential that lies within each of us. Let's keep the spirit of collaboration alive as we continue on this incredible journey in Power Platform together.Winners, we will see you in Vegas! Every other amazing solutions superstar, we will see you in the Community!Congratulations, everyone!

September featured user group leader

 Ayonija Shatakshi, a seasoned senior consultant at Improving, Ohio, is a passionate advocate for M365, SharePoint, Power Platform, and Azure, recognizing how they synergize to deliver top-notch solutions. Recently, we asked Ayonija to share her journey as a user group leader, shedding light on her motivations and the benefits she's reaped from her community involvement.      Ayonija embarked on her role as a user group leader in December 2022, driven by a desire to explore how the community leveraged various Power Platform components. When she couldn't find a suitable local group, she decided to create one herself!    Speaking about the impact of the community on her professional and personal growth, Ayonija says, "It's fascinating to witness how everyone navigates the world of Power Platform, dealing with license constraints and keeping up with new features. There's so much to learn from their experiences.:        Her favorite aspect of being a user group leader is the opportunity to network and engage in face-to-face discussions with fellow enthusiasts, fostering deeper connections within the community. Offering advice to budding user group leaders, Ayonija emphasized the importance of communication and consistency, two pillars that sustain any successful community initiative.      When asked why she encourages others to become user group leaders, Ayonija said, "Being part of a user group is one of the best ways to connect with experienced professionals in the same field and glean knowledge from them. If there isn't a local group, consider starting one; you'll soon find like-minded individuals."      Her highlight from the past year as a user group leader was witnessing consistent growth within the group, a testament to the thriving community she has nurtured. Advocating for user group participation, Ayonija stated, "It's the fastest route to learning from the community, gaining insights, and staying updated on industry trends."   Check out her group: Cleveland Power Platform User Group

An MPPC23 Invitation from Charles Lamanna, CVP of Microsoft Business Applications & Platform

Hear from Corporate Vice President for Microsoft Business Applications & Platform, Charles Lamanna, as he looks ahead to the second annual Microsoft Power Platform Conference from October 3rd-5th 2023 at the MGM Grand in Las Vegas.Have you got your tickets yet? Register today at www.powerplatformconf.com  

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