Se ti serve conservare la possibilita' di avere su ogni torneo nominativi diversi allora devi andare su una macro.
Ad esempio:
- Codice: Seleziona tutto
Function scantorn(ByVal player As String, ByVal forCosa As String, ByVal TabTorn As Range) As Variant
Dim I As Long, HInd As Long, VInd As Long, myScore
'
For I = 1 To ThisWorkbook.Worksheets.Count
If Sheets(I).Name <> "Classifica" Then
HInd = Application.WorksheetFunction.CountIf(Sheets(I).Range(TabTorn.Address).Resize(1), forCosa)
If HInd = 0 Then
scantorn = "##LErr-#" & I: Exit Function
Else
HInd = Application.Match(forCosa, Sheets(I).Range(TabTorn.Address).Resize(1), 0)
End If
VInd = Application.WorksheetFunction.CountIf(Sheets(I).Range(TabTorn.Address).Resize(, 1), player)
If VInd > 0 Then
VInd = Application.Match(player, Sheets(I).Range(TabTorn.Address).Resize(, 1), 0)
myScore = myScore + CDbl(Sheets(I).Range(TabTorn.Address).Cells(VInd, HInd))
End If
End If
Next I
scantorn = myScore
End Function
Carica il codice su un Modulo standard del vba (es Modulo1), poi D3 del foglio Classifica inserisci la formula
- Codice: Seleziona tutto
=scantorn($C3;D$2;$C$2:$F$18)
C3 rappresenta il Giocatore che sara' cercato nei singoli tornei; D2 e' il punteggio che sara' preso in considerazione; C2:F18 rappresenta l' area in cui, su ogni foglio, e' contenua la tabella dei risultati; adatta la formula al layout dei tuoi dati.
Copia la formula in E3, poi copia D3:E3 verso il basso per i giocatori presenti in Classifica.
In caso di errori formali la formula ritornera' #VALORE oppure ##LErr-#xy se nel foglio xy non e' stata trovata l' intestazione di colonna contenente il punteggio che si cerca. Per evitare questo errore inserire nuovi fogli "Torneo" contenenti almeno le intestazioni di tabella.
Per assicurarsi che il punteggio calcolato sia aggiornato, tasto dx sut tab che corrisponde al foglio Classifica (quindi il Tab che visualizza "Classifica"), scegli Visualizza codice, inserisci questo codice:
- Codice: Seleziona tutto
Private Sub Worksheet_Activate()
Calculate
End Sub
Elimina infine la Private Sub Workbook_SheetDeactivate che ti avevo fatto mettere ieri.
Ciao