Moderatori: Anthony47, Flash30005
=SE('Squadra1'!$C$47>0;INDICE({0;1;2;3;4;5;6};CONFRONTA('Squadra1'!$C$47;{0,01;65,99;71,99;77,99;83,99;89,99;95,99;101,99};1) );"")
=SOMMA.SE(GIORNATE!C$3:C$115;B5;GIORNATE!F$3:F$115)+SOMMA.SE(GIORNATE!E$3:E$115;B5;GIORNATE!G$3:G$115)
Sub CompilaClass()
UR = Worksheets("GIORNATE").Range("C" & Rows.Count).End(xlUp).Row
For RRR = 5 To 12
For CCC = 6 To 8
Worksheets("CLASSIFICHE").Cells(RRR, CCC).Value = 0
Next CCC
Next RRR
For RR = 3 To UR
SQC = Worksheets("GIORNATE").Range("C" & RR).Value
RisC = Worksheets("GIORNATE").Range("F" & RR).Value
If RisC = "" Then GoTo Salta
SQF = Worksheets("GIORNATE").Range("E" & RR).Value
RisF = Worksheets("GIORNATE").Range("G" & RR).Value
If RisC > RisF Then
ColC = 6
ColF = 8
Else
ColC = 8
ColF = 6
End If
If RisC = RisF Then
ColC = 7
ColF = 7
End If
For RRC = 5 To 12
SqCC = Worksheets("CLASSIFICHE").Range("B" & RRC).Value
If SqCC = SQC Then Worksheets("CLASSIFICHE").Cells(RRC, ColC).Value = Worksheets("CLASSIFICHE").Cells(RRC, ColC).Value + 1
If SqCC = SQF Then Worksheets("CLASSIFICHE").Cells(RRC, ColF).Value = Worksheets("CLASSIFICHE").Cells(RRC, ColF).Value + 1
Next RRC
Salta:
Next RR
End Sub
Flash30005 ha scritto:Avvia questa macro:
e fai sapere
Ciao
Sub Quotaz()
Columns("L:L").Clear
URQ = Worksheets("quotazioni").Range("C" & Rows.Count).End(xlUp).Row
For RR = 6 To URQ
TrovG = 0
NG = Worksheets("quotazioni").Range("C" & RR).Value
URL = Worksheets("quotazioni").Range("L" & Rows.Count).End(xlUp).Row
For RRL = 1 To URL
NGL = Worksheets("quotazioni").Range("L" & RRL).Value
If NG = NGL Then
TrovG = 1
MsgBox "Attenzione! Giocatore duplicato alla riga " & RR & " alla riga " & RRL + 4, vbInformation
End If
Next RRL
If TrovG = 0 Then Worksheets("quotazioni").Range("L" & RRL).Value = NG
Next RR
End Sub
Flash30005 ha scritto:Prova questa macro nascondendo la colonna "L"
Ciao
='Fanta-Salzano (Max_46)'!C4
Sub Quotaz()
Columns("C:C").Interior.ColorIndex = xlNone
Columns("L:L").Interior.ColorIndex = xlNone
URL = Worksheets("quotazioni").Range("L" & Rows.Count).End(xlUp).Row
URQ = Worksheets("quotazioni").Range("C" & Rows.Count).End(xlUp).Row
'routine colora Giallo la colonna C
For RRL = 4 To URL
NGL = UCase(Worksheets("quotazioni").Range("L" & RRL).Value)
For RR = 6 To URQ
NG = Worksheets("quotazioni").Range("C" & RR).Value
If NG = NGL Then
Worksheets("quotazioni").Range("C" & RR).Interior.ColorIndex = 6
End If
Next RR
Next RRL
'----
'routine colora Rosso la colonna L
For RRL = 4 To URL - 1
NGL1 = UCase(Worksheets("quotazioni").Range("L" & RRL).Value)
If NGL1 = 0 Or NGL1 = "" Then GoTo SaltaNG
For RRL2 = RRL + 1 To URL
NGL2 = UCase(Worksheets("quotazioni").Range("L" & RRL2).Value)
If NGL1 = NGL2 Then
Worksheets("quotazioni").Range("L" & RRL).Interior.ColorIndex = 3
Worksheets("quotazioni").Range("L" & RRL2).Interior.ColorIndex = 3
End If
Next RRL2
SaltaNG:
Next RRL
End Sub
Flash30005 ha scritto:Ok, proviamo questa
Ciao
P.s. Attenzione non so dove iniziano i dati nella colonna L,
vedendo la formula ho interpretato dalla riga 4,
valore che chiaramente puoi variare
=Foglio1!C10
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 61 ospiti