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 apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
| Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 26 ospiti