recording macro isnt inserting formulas correctly

[jordanburch]

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.

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

anyone know why this isnt inserting the formulas correctly? nothing else happens after i insert these formulas to that sheet fyi.

Jordan

 

[RoryA]

What should the formulas be?

 

[jordanburch]

What should the formulas be?

where it says formula r1c1 thats what it should be its just not putting them there.

as713
=+CONCATENATE(E713,F713)
at713
=+SUMIF(AS:AS,AS713,AK:AK)
ak713
=+CONCATENATE(AS713,AT713)


thats what i want it to be but for whatever reason recording it isnt working properly.