Problema metodo autofill per classe range



  • Problema metodo autofill per classe range
    di Ferro9995 data: 27/10/2017 14:41:10

    Buongiorno a tutti e grazie per avermi accettato sul forum

    Sono nuovo al Visual basic per excel e quindi mi trovo un po' in difficoltà
    ho due problemi sostanziali...
    1) nella formula che ho scritto, ho notato che dopo aver lanciato la macro i riferimenti delle celle sono assoluti e a me servirebbero relativi;
    2) mi da dei problemi con l'autofill (lo riconduco al fatto che essendoci i riferimenti assoluti e non relativi lui non riesce a compilare in automatico la colonna).

    spero di essere riuscito a spiegarmi al meglio.

    in attesa di una vostra risposta , vi ringrazio in anticipo.

    (chiedo scusa ma mi sa che avevo sbagliato sezione del forum precedentemente )
     
    Sub Macro4()
    
    i = Range("O1").Value
    x = i / 2
       
        Cells([O1], 10).Select
    
        ActiveCell.FormulaR1C1 = "=(SUM(R" & (i) & "C2:R" & (i + x) & "C2)/R1C15 -SUM(R" & (i - x) & "C2:R" & (i) & 
                                               "C2)/R1C15)/R22C5"
        Range("J32").Select
        Selection.AutoFill Destination:=Range("J33:J10007")
        Range("J33:J10007").Select
        
    
    End Sub



  • di patel data: 30/10/2017 11:54:22

    Le formule con la notazione RC sono poco comprensibile e come vedi nessuno ha risposto, allega un file di esempio e spiega cosa vuoi ottenere indipendentemente dalla macro che hai tu




  • Problema metodo autofill per classe range
    di Ferro9995 (utente non iscritto) data: 27/10/2017 13:08:13

    Buongiorno a tutti e grazie per avermi accettato sul forum

    Sono nuovo al Visual basic per excel e quindi mi trovo un po' in difficoltà
    ho due problemi sostanziali...
    1) nella formula che ho scritto, ho notato che dopo aver lanciato la macro i riferimenti delle celle sono assoluti e a me servirebbero relativi;
    2) mi da dei problemi con l'autofill (lo riconduco al fatto che essendoci i riferimenti assoluti e non relativi lui non riesce a compilare in automatico la colonna).

    spero di essere riuscito a spiegarmi al meglio.

    in attesa di una vostra risposta , vi ringrazio in anticipo.
     
    Sub Macro4()
    
    i = Range("O1").Value
    x = i / 2
       
        Cells([O1], 10).Select
    
        ActiveCell.FormulaR1C1 = "=(SUM(R" & (i) & "C2:R" & (i + x) & "C2)/R1C15 -SUM(R" & (i - x) & "C2:R" & (i) & 
                                               "C2)/R1C15)/R22C5"
        Range("J32").Select
        Selection.AutoFill Destination:=Range("J33:J10007")
        Range("J33:J10007").Select
        
    
    End Sub