[Excel] Formula RANGO in VBA

[luna836]

invece di continuare a scrivere questa formula

Codice: Seleziona tutto

=RANGO(B1;$B$1:$B$20;0)

nelle celle che mi servono non è possibile creare un "pulsante" nel quale io inserisco la formula e tutte le volte che lo clicco me la fa automaticamente?
ringrazio in anticipo
buona giornata a tutti

[Alexsandra]

In un modulo inserisci questo codice

Codice: Seleziona tutto

Sub macro()
Range("C1").Select
For x = 1 To ultima_riga
 Alex = Cells(x, 3).Select
 ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R1C2:R20C2)"
Next
End Sub

poi sempre nello stesso modulo copia questa function

Codice: Seleziona tutto

Function ultima_riga()
ultima_riga = Cells(Cells.Rows.Count, "B").End(xlUp).Row
End Function

Puoi fare senza la function per contare l'ultima riga compilata inserendo il codice prima del Range, io l'ho fatto così ma ci sono molti metodi per vedere l'ultima riga scritta.
Se tu sai che devi scorrere solo 20 righe puoi togliere la function e impostare il ciclo così

Codice: Seleziona tutto

For x = 1 To 20

[Anthony47]

Scusa Luna, ma perche’ stai sempre a battere la formula? Nel senso che (a) scrivi la prima formula sulla cella C1, poi (b) la copi sulle righe successive ed e’ fatta per sempre. Basta non cancellarle, ovviamente.
Sono d’ accordo che le macro consentono di fare quel qualcosa in piu’, ma excel tante cose le ha previste gia’ di suo.
Hai colorato Oro – Argento - Bronzo i primi 3 classificati?

Ciao,