concatena in formula media ed eventuale versione VBA

Buongiorno

riesco a fare diverse cose con excel ma il mio tallone d'achille sono le situazioni in cui devo scrivere una formula con il concatena da inserire all'interno di un range di celle come in questo caso

---

=MEDIA(F8:concat("f";e1)))

---

dove in questo caso in E1 ho fatto il conteggio delle righe che mi servono per fare la media, in pratica non riesco a legare la lettera F della colonna con il numero 12 riportato in cella E1 ( se puoi si può inserire tutto in una sola riga della formula meglio ancora)

poi ho provato a scriverla anche in vba

[TESTO ::Sub mediavba() Dim uRow As Long, y As Long Cells(5, 8).Select uRow = Cells(Rows.Count, 5).End(xlUp).Row - 1 Cells(5, 4).Value = "=average(f8:f&ur)" End Sub]

Ciao

=MEDIA(INDIRETTO("F8:F"&$E$1))

DANILOFIORINI, 10/10/2022 16:16:

---

Ciao

=MEDIA(INDIRETTO("F8:F"&$E$1))

---

Molto gentile adesso mi memorizzo la stringa per no perdermi in virgolette, & e $

spero in qualcuno anche per la versione vba

---

Range("D33") = Application.WorksheetFunction.Average("D1:D32")

---

ho letto questa stringa di comando ma penso che potrei nuovamente perdermi in & e S

grazie molte

scusa danilo

secondo te si potrebbe inglobare la formula presente nella cella E1 dentro la formula presente ion F5

dovrei esserci riuscito

---

=MEDIA(INDIRETTO("F8:F"&(7+CONTA.VALORI(E8:E30)-1)))

---

spero in un aiuto anche per la versione vba così evito che inavvertitamente qualcuno cancelli le formule

buongiorno

sono riuscito ad fare la media con VBA

allego file esempio

[TESTO ::Sub media() Dim valore As Integer Range("f8").Select ' cerca ultima cella piena meno 1 ur = Cells(Rows.Count, "F").End(xlUp).Row - 1 ' assegna la viariabile valore = WorksheetFunction.Average(Range("f8:f" & ur)) ' scrivi valore Cells(6, 6) = valore End Sub]