excel 2007 variabili dentro formula

[scacco al re]

Ho questa macro che mi calcola la media
e funziona

Codice: Seleziona tutto

Sub macro_media()
    Dim rg As Integer
    Dim cl As Integer
    Dim pr As Integer
    Dim ul As Integer
    pr = 4
    ul = Range("valori!A" & Rows.Count).End(xlUp).Row
    rg = 4
    cl = 3
    Sheets("medie").Select
    Cells(cl, rg).FormulaLocal = "=media(valori!C4:C37)"
    Cells(cl, rg + 1).FormulaR1C1 = "=ROUND(+(RC[-1]+86)/33.3333,1)"
End Sub

ora volevo sostiuire nella formula media il 4 con la variabile pr e il 37 con la variabile ul, ma ho fatto molteplici tentativi e non ci riesco

[maxmula]

Non credo di aver capito bene...

Allora: tu nel foglio calcoli la media tra le celle di colonna C, righe da 4 a 37; Vorresti invece rendere "dinamica" la formula, indicando di volta in volta le celle di inizi e fine dell'intervalo da mediare.
E' così?

Se sì, la soluzione potrebbe essere questa:

Codice: Seleziona tutto

Cells(cl, rg).FormulaLocal = "=media(valori!C" & pr & ":C" & ul)"


Ciao,
MAx

[maxmula]

Rettifico:

Codice: Seleziona tutto

Cells(cl, rg).FormulaLocal = "=media(valori!C" & pr & ":C" & ul & ")"


MAx

[scacco al re]

Grazie, sai c'ero molto vicino sbagliavo a mettere i doppi apici....

[Anthony47]

Pero' mi pare che ti stai complicando inutilmente la vita: visto che vuoi calcolare in D4 la media dei valori presenti da C4 in giu' puoi anche scrivere direttamente

Codice: Seleziona tutto

 Cells(3,4).FormulaLocal = "=media(Sheets2!C4:C65000)"

Infatti nel calcolo della media eventuali celle vuote saranno ignorate.
Idem sulla formula dell' arrotondamento:

Codice: Seleziona tutto

Cells(3,5).Formula = "=ROUND(D4)"

A meno che la macro pubblicata fosse solo un esperimento.

Ciao

Ps: e perche' scrivi rg = 4 / cl = 3 se poi rg e' usato come "colonna" e cl come "riga"? Ti piace tenderti delle trappole qua e la?

[scacco al re]

non mi sto tirando dei trabocchetti...
fa tutto parte del progetto che sto imbastendo passo passo...
la macro finale (non questa che ancora parziale) dovrebbe scrivere la media e altre formule fino a 120 righe (120 giorni o 4 mesi) del foglio valori e inserire i risultati in determinate celle del foglio medie, allo scoccare del 121 giorno si scende di una riga sul foglio medie e si ricomincia il loop di 120 righe del foglio valori, e così via...
un po' contorto...

[ricky53]

Ciao,
però Anthony intendeva dire che hai invertito (nelle tue istruzioni) la varibialee che conteneva le righe con quella che conteneva la colonne ----->> Controlla quanto ti riporto del tuo codice:

Codice: Seleziona tutto

    ul = Range("valori!A" & Rows.Count).End(xlUp).Row  ----->> contiene l'ultima riga con dati
    cl = 3 ------>> è la colonna
    Cells(cl, rg).FormulaLocal = "=media(valori!C4:C37)"
    Cells(cl, rg + 1).FormulaR1C1 = "=ROUND(+(RC[-1]+86)/33.3333,1)"

I parametri di "Cells" sono
prima la riga
e
poi la colonna,
quindi:

Codice: Seleziona tutto

Cells(rg, cl).xxxxxxxx

[scacco al re]

hai ragione, funzionava perchè gli errori (inversioni) che ho fatto erano due e quindi si annullavano...
la colonna che voglio io è la 4 (D) e la riga è la 3