troubleshooting Question
Make sub to format and total ranges
asked on
Before.xlsx shows the current state.
After.xlsx shows what I want.
In Before, for User 1, I recorded the macro to make it look like After.
Is there a way to make this more 'generic' so that it runs for the other Users, regardless of how many?
After.xlsx
After.xlsx shows what I want.
In Before, for User 1, I recorded the macro to make it look like After.
Is there a way to make this more 'generic' so that it runs for the other Users, regardless of how many?
Sub Title_And_Total_Group()
Range("A4").Select
Selection.Copy
Range("C3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Font.Bold = True
With Selection.Font
.Name = "Calibri"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("F8").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Range("F8").Select
Selection.Copy
Range("F8:M8").Select
ActiveSheet.Paste
Selection.Font.Bold = True
Selection.End(xlToLeft).Select
Range("A11").Select
End Sub
After.xlsx
Learn from the best
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 2 Answers and 9 Comments.
Try for 7 days”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Most Valuable Expert award recognizes technology experts who passionately share their knowledge with the community, demonstrate the core values of this platform, and go the extra mile in all aspects of their contributions. This award is based off of nominations by EE users and experts. Multiple MVEs may be awarded each year.
This award recognizes a member of Experts Exchange who has made outstanding contributions to the community within their first year as an expert. The Rookie of the Year is awarded to a new expert who has the highest number of quality contributions.