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