macro offset



  • macro offset
    di ric91 data: 17/02/2016 09:18:40

    Ciao a tutti. Sto generando questa macro nella quale, nella colonna inserisco una formula, dopo filtro i codici (quelli senza formula) e inserisco la formula offsett. Il problema che mi si crea è che un volta lanciata la macro, non mi fa la formula offset.

    Qualcuno riesce a darmi una mano?
    Thanks
     
        Selection.AutoFilter
        ActiveSheet.Range("$A$2:$Y$8409").AutoFilter Field:=10, Criteria1:="="
        ActiveSheet.Range("$A$2:$Y$8409").AutoFilter Field:=10, Criteria1:="="
        Range("J4").Select
        Selection.ClearContents
        ActiveCell.FormulaR1C1 = "=+OFFSET(RC,-1,0)"
        Range("J4").Select
        Selection.FillDown
        ActiveSheet.Range("$A$2:$Y$8409").AutoFilter Field:=10
        ActiveWindow.SmallScroll Down:=-12
        Range("J1").Select