jordanburch
Active Member
- Joined
- Jun 10, 2016
- Messages
- 440
- Office Version
- 2016
Hi all
I am recording a macro and having some trouble. It seems to work perfectly on one sheet but not on another
this selects the FY20 sheet and then does some filtering of certain columns hence why is starts on 713. I actually need this to insert on visible cells after the filters have been applied if you can help with that as well.
anyone know why this isnt inserting the formulas correctly? nothing else happens after i insert these formulas to that sheet fyi.
Jordan
I am recording a macro and having some trouble. It seems to work perfectly on one sheet but not on another
this selects the FY20 sheet and then does some filtering of certain columns hence why is starts on 713. I actually need this to insert on visible cells after the filters have been applied if you can help with that as well.
Code:
Range("AS713").Select
ActiveCell.FormulaR1C1 = "=+CONCATENATE(RC[-40],RC[-39])"
Range("AS713").Select
Selection.FillDown
Range("AT713").Select
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 36
ActiveCell.FormulaR1C1 = "=+SUMIF(C[-1],RC[-1],C[-9])"
Range("AT713").Select
Selection.FillDown
Range("AW713").Select
ActiveCell.FormulaR1C1 = "=+CONCATENATE(RC[-4],RC[-3])"
Range("AW713").Select
Selection.FillDown
Sheets("CRIS").Select
Range("Z1").Select
ActiveCell.FormulaR1C1 = "sub key"
Range("AA1").Select
ActiveCell.FormulaR1C1 = "sub key"
Range("AB1").Select
ActiveCell.FormulaR1C1 = "sub key"
Range("AC1").Select
ActiveCell.FormulaR1C1 = "su key"
Range("AD1").Select
ActiveCell.FormulaR1C1 = "master key"
Range("AE1").Select
ActiveCell.FormulaR1C1 = "match"
Range("Z2").Select
ActiveCell.FormulaR1C1 = "=+IF(RC[-20]="""","""","""")"
Range("Z2").Select
Selection.AutoFill Destination:=Range("Z2:Z1311")
Range("Z2:Z1311").Select
Range("Z2").Select
ActiveCell.FormulaR1C1 = "=+IF(RC[-20]="""",""0000"","""")"
Range("Z2").Select
ActiveCell.FormulaR1C1 = "=+IF(RC[-20]="""",""0000"","""")"
Range("Z2").Select
Selection.AutoFill Destination:=Range("Z2:Z1311")
Range("Z2:Z1311").Select
Range("AA2").Select
ActiveCell.FormulaR1C1 = ""
Range("AA2").Select
ActiveCell.FormulaR1C1 = "=+SUMIF(C[-1],,C[-8])"
Range("AB2").Select
ActiveCell.FormulaR1C1 = "=+SUMIF(C[-1],RC[-1],C[-8])"
Range("AB2").Select
Selection.AutoFill Destination:=Range("AB2:AB1311")
Range("AB2:AB1311").Select
Range("AD2").Select
ActiveCell.FormulaR1C1 = "=+CONCATENATE(RC[-3],)"
Range("AD2").Select
Selection.AutoFill Destination:=Range("AD2:AD1311")
Range("AD2:AD1311").Select
Range("AE2").Select
ActiveCell.FormulaR1C1 = "=+MATCH(RC[-1],'MAY FY20 IDARRS'!C[18],0)"
Range("AE2").Select
Jordan
Last edited by a moderator: