Moderatori: Anthony47, Flash30005
[L’estensione rar è stata disattivata e non puó essere visualizzata.]
=CONTA.VALORI(D7:V7;D19:V19)
=SE(VAL.ERRORE(RANGO(AB7;$AB$7:$AB$14));1;(RANGO(AB7;$AB$7:$AB$14)))
=SE(VAL.ERRORE(AB7/AE7);0;AB7/AE7)
Sub Ordina_Classifica()
Application.ScreenUpdating = False
If Range("AE15") <> Range("Z27") And (Range("Z27") / 8) = Int(Range("Z27") / 8) Then
'Copia dati precedenti
For I = 7 To 14
Cells(I, 30) = Cells(I, 26)
Next I
'Riporta punti totali
For I = 7 To 14
Y = 19
Do
If Cells(Y, 2) = Cells(I, 27) Then
Cells(I, 28) = Cells(Y, 23)
Cells(I, 31) = Cells(Y, 26)
Exit Do
End If
Y = Y + 1
Loop Until Y > 26
Next I
'Differenza posizioni
For I = 7 To 14
Cells(I, 29) = Cells(I, 30) - Cells(I, 26)
Next I
'Ordina
Range("Z7:AE14").Select
Selection.Sort Key1:=Range("Z7"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1
Range("A1").Select
End If
Application.ScreenUpdating = True
End Sub
=SOMMA(D4:V4)+RIF.RIGA()/100
=SCARTO($B$1;(GRANDE($W$16:$W$23;--(SINISTRA(Y4;1)))-AA4)*100-1;0)
=INT(GRANDE($W$16:$W$23;--(SINISTRA(Y4;1))))
=SOMMA(D4:V4)+RIF.RIGA()/100 COSA DEVO METTERE NELLE PARENTESI?
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 77 ospiti