Simplify Your Data Cleanup with Smarter Spreadsheet FormulasThis might be an odd one. I'm not that skilled with excel as my use of in within my job is pretty limited. However, I tend to use this template my predecessor made to summarize data from our program.
Works well, just a simple ='SHEET 1'!A1 for all cells. The first two images give an example. After the data is ported, I have to get rid of the zeros between the data and write system names. When it comes to pasting it on letters, the names are bolded, upped a font size, and two of the cells are merged (3rd image) This gets a bit tedious as the lists can get pretty long so I've been trying to figure out how to streamline it on my own.
My idea has so far has been to have a separate cell detect when I'm finished adding my data and then format the aforementioned cells (4th image). For the life of me, just can't figure out how to write a formula to do it. What I would need is for the formula to detect a 1 (could be anything) in cell G10. It would then check for any blank cells in columns A and B. Once found, it would merge & center, bold the text, increase the font size, and align right.
Is this only possible with a macro? I've been unable to find any formulas that could accomplish this.
https://preview.redd.it/853mpr4jspog1.png?width=788&format=png&auto=webp&s=943a34a57f1d7c7f88256dd89b81b9c6fc301e34
https://preview.redd.it/e3w6ms4jspog1.png?width=453&format=png&auto=webp&s=9b189fa77d6638b627f8676dad60bc148753617c
https://preview.redd.it/msh6ys4jspog1.png?width=411&format=png&auto=webp&s=d5f5025b315f24fd5f3a64c6e07e019abd3a77ab
https://preview.redd.it/7j66tt4jspog1.png?width=936&format=png&auto=webp&s=1faa4df12ee74892f5fa9dc27ac95621280cf3c5
submitted by /u/Extension_Train9093
[link] [comments]
Stop Your XLOOKUP From Shifting When Macros RunHey everyone,
I have my main table where I want to display the cleaned up data.
Essentially I'm using xlookup references from sheet two.
When I run my macro in sheet two, for some reason my xlookup on sheet 1 moves over every single time.
For example... this is what the xlookup formula looks at before vs after the Macro
Before Macro - =XLOOKUP(A3,MTD!$A$3:$A$15,MTD!$B$3:$H$15)
After Macro - =XLOOKUP(A3,MTD!$A$3:$A$15,MTD!$B$3:$F$15)
Why would it move from H15 to F15? I'm a little lost why that would be.
Sub Macro5()
'
' Macro5 Macro
'
'
Range("A2").Select
ActiveCell.FormulaR1C1 = "Market"
Range("B2").Select
ActiveCell.FormulaR1C1 = "Date"
Range("E2:J16").Select
Selection.Cut
Range("C2").Select
ActiveSheet.Paste
Range("A2:H2").Select
Selection.Copy
Range("A19").Select
ActiveSheet.Paste
Windows("Overview Bullet-MTD.csv").Activate
Application.Left = 1551.25
Application.Top = 147.25
Windows("Weekly Exec Updates - Lead Pacing (Working File) (1).xlsx").Activate
Range("A20").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "MO"
Range("A21").Select
ActiveCell.FormulaR1C1 = "LA"
Range("A22").Select
ActiveCell.FormulaR1C1 = "AR"
Range("A23").Select
ActiveCell.FormulaR1C1 = "MS"
Range("B20").Select
ActiveCell.Formula2R1C1 = _
"=XLOOKUP(RC[-1],R[-17]C[-1]:R[-4]C[-1],R[-17]C:R[-4]C[6])"
Range("B20").Select
Selection.AutoFill Destination:=Range("B20:B23"), Type:=xlFillDefault
Range("B20:B23").Select
Range("B21").Select
ActiveCell.Formula2R1C1 = _
"=XLOOKUP(RC[-1],R[-18]C[-1]:R[-5]C[-1],R[-18]C:R[-5]C[6])"
Range("B22").Select
ActiveCell.Formula2R1C1 = _
"=XLOOKUP(RC[-1],R[-19]C[-1]:R[-6]C[-1],R[-19]C:R[-6]C[6])"
Range("B23").Select
ActiveCell.Formula2R1C1 = _
"=XLOOKUP(RC[-1],R[-20]C[-1]:R[-7]C[-1],R[-20]C:R[-7]C[6])"
Range("B3:B16").Select
Selection.NumberFormat = "m/d/yyyy"
Range("E3:E16").Select
Selection.NumberFormat = "0.0%"
Selection.NumberFormat = "0%"
Range("G3:G16").Select
Selection.NumberFormat = "0.0%"
Selection.NumberFormat = "0%"
Range("C20:D23").Select
Selection.NumberFormat = "#,##0"
Range("F20:F23").Select
Selection.NumberFormat = "#,##0"
Range("G20:G23").Select
Selection.Style = "Percent"
Sheets("YTD").Select
Windows("Overview Bullet-YTD.csv").Activate
Windows("Weekly Exec Updates - Lead Pacing (Working File) (1).xlsx").Activate
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Range("M2:M16").Select
Selection.Cut
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("D2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveCell.FormulaR1C1 = "Actual Leads"
Range("K2:K16").Select
Selection.Cut
Range("E2").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
Range("L2:L16").Select
Selection.Cut
Range("F2").Select
ActiveSheet.Paste
Range("H2:H16").Select
Selection.Cut
Range("G2").Select
ActiveSheet.Paste
Range("I2:V17").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A2:G2").Select
Selection.Copy
Range("A22").Select
ActiveSheet.Paste
Range("A23").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "MO"
Range("A24").Select
ActiveCell.FormulaR1C1 = "LA"
Range("A25").Select
ActiveCell.FormulaR1C1 = "AR"
Range("A26").Select
ActiveCell.FormulaR1C1 = "MS"
Range("B23").Select
ActiveCell.Formula2R1C1 = _
"=XLOOKUP(RC[-1],R[-20]C[-1]:R[-7]C[-1],R[-20]C:R[-7]C[5])"
Range("B23").Select
Selection.AutoFill Destination:=Range("B23:B26"), Type:=xlFillDefault
Range("B23:B26").Select
Range("B24").Select
ActiveCell.Formula2R1C1 = _
"=XLOOKUP(RC[-1],R[-21]C[-1]:R[-8]C[-1],R[-21]C:R[-8]C[5])"
Range("B25").Select
ActiveCell.Formula2R1C1 = _
"=XLOOKUP(RC[-1],R[-20]C[-1]:R[-7]C[-1],R[-20]C:R[-7]C[5])"
Range("B25").Select
ActiveCell.Formula2R1C1 = _
"=XLOOKUP(RC[-1],R[-22]C[-1]:R[-9]C[-1],R[-22]C:R[-9]C[5])"
Range("B26").Select
ActiveCell.Formula2R1C1 = _
"=XLOOKUP(RC[-1],R[-23]C[-1]:R[-10]C[-1],R[-23]C:R[-10]C[5])"
Range("A2:G16").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$G$16").AutoFilter Field:=1, Criteria1:=Array("AL", _
"CA", "HI", "NM", "NNE", "OHWVKY", "PA", "TW", "TX"), Operator:=xlFilterValues
Range("A3").Select
ActiveWorkbook.Worksheets("YTD").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("YTD").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"A2:A16"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("YTD").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("MTD").Select
Range("A2:H16").Select
Selection.AutoFilter
Range("A3").Select
ActiveSheet.Range("$A$2:$H$16").AutoFilter Field:=1, Criteria1:=Array("AL", _
"CA", "HI", "NM", "NNE", "OHWVKY", "PA", "TW", "TX"), Operator:=xlFilterValues
ActiveWorkbook.Worksheets("MTD").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("MTD").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"A2:A16"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("MTD").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
submitted by /u/_mavricks
[link] [comments]