Excel fantacalcio e sostituzioni

Hai un problema con Excel?

Nuova discussione

Excel, fantacalcio e sostituzioni
di Vixtest2013 (utente non iscritto) data: 22/11/2013 09:51:14
Buon giorno,

Sto cercando di fare un file excel Vs.2010, che mi calcoli in automatico il risultato di una fanta-squadra.
Ho un foglio dove nella colonna B (b3:b13) metto tutti i nomi di giocatori titolari, nella colonna C (c3:c13) metto i ruoli dei giocatori (P, D, C e A) e nella colonna D (d3:d13) i voti. Se un giocatore non ha giocato nella sua cella di riferimento nella colonna D vi è segnato s.v. Se prende s.v.al Totale dei voti dei titolari dovrà essere aggiunto il voto del primo giocatore in panchina dello stesso ruolo, altrimenti il secondo panchinaro. Non ci possono essere più di tre sostituzioni in totale.

MARCHETTI P 5,0
MAICON D 5,5
GOBBI D s.v.
JONATHAN D 6,5
PORTANOVA D 9,5
ALBIOL D 5,0
ALMIRON C 6,0
KAKA' C 5,5
HAMSIK C 4,0
CERCI A 6,0
THEREAU A sv.

BIZZARRI P s.v.
DAINELLI D 7,0
DE SCIGLIO D s.v.
HERNANES C 5,0
PEREYRA C 6,5
PAULINHO A s.v.
LOPEZ A 5,5

In questo caso le sostituzioni sono:
Gobbi deve essere sostituito e al totale deve essere sommato il voto di Dainelli
Thereau deve essere sostituito e al totale deve essere sommato oltre al voto di Dainelli, anche quello di Lopez
nb.: tra thereau e Bizzarri c'è una riga vuota quindi i panchinari partono dalla riga 15

Vi ringrazio
di totygno71 (utente non iscritto) data: 22/11/2013 10:18:58
forse ti conviene allegre il file se vuoi sperare di ricevere qualche aiutino.
di Vixtest2013 (utente non iscritto) data: 22/11/2013 10:31:06
Ho allegato il file. Nel foglio VARIE c'è la spiegazione di quanto fatto. Nel foglio Campionato il calcolo per punteggi.

Grazie ancora.

_____________
Win7+office 2010
di totygno71 (utente non iscritto) data: 22/11/2013 10:55:44
Bene
ora qualcuno sicuramente ti aiuterà...
di Raffaele_53 (utente non iscritto) data: 22/11/2013 15:29:47
Premesso che non conosco fantacalcio

>>>Non ci possono essere più di tre sostituzioni in totale.
Credo che il portiere debba essere il primo in assoluto
Dopo, quale ruolo avrà la precedenza sulle tre sostituzioni?

Lo rivedo (se posso) nei prossimi giorni, mà vorrei chiedere una cosa?
Visto il Tuo allegato, se usassi formule dove le posso scrivere? (dato che hai due squadre, a chi mi devo riferire?)

In basso mi sembra che fai solo una semplice somma.
A me servirebbe una colonna, dove fare le sostituzioni e poi fare la somma.
Se non ho capito nulla, chiedo venia.
di vixtest2013 (utente non iscritto) data: 22/11/2013 15:35:54
Ciao e innanzi tutto grazie.
ti rispondo:

massimo sostituzioni: 3, compreso il portiere;
Se ci sono due difensori, due centrocampisti e due attaccanti, da sostituire, si sostituisce prima i 2 difensori, poi il primo centrocampista, mentre il secondo centrocampista e i due attaccanti restano senza voto.

Si in basso sono semplici somme, ma ho diviso tra la somma dei titolari e quella della panchina che ancora non è gestita con formule
Per fare le sostituzioni puoi usare la cella "Panchina" a cui sommare i voti dei giocatori in panchina.

Puoi usare solo la prima squadra, alla sfidante poi ci penso io

Spero di essere stato chiaro.
Grazie ancora
di Raffaele_53 (utente non iscritto) data: 22/11/2013 16:04:52
>>>A me servirebbe una colonna, dove fare le sostituzioni e poi fare la somma.
Quale?

Colorare forme se cambia una cella
di Divino90 (utente non iscritto) data: 23/11/2013 07:03:13
ciao a tutti!! ho un problema con una macro se potete risolverlo ne sarei molto felice!!

la macro deve colorarmi delle forme nel foglio 2 quando la cella "o56" del foglio 2 viene modificata da una cella del foglio 1.
il mio problema e che la macro si attiva solamente se immetto io il numero in quella determinata cella, ma se viene modificata da un'altra cella non funziona!
come posso fare? la macro e questa:

nel foglio 1

Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 14 And Target.Row = 56 And Target.Value = "1" Then
Forme_Blu
End If

nel thisworkbook
Sub Workbook_Open()
Forme_Blu
End Sub

nel modulo1

Sub Forme_Blu ()

ActiveSheet.Shapes("CANCELLA_1").Fill.ForeColor.RGB = RGB(0, 112, 192)

End Sub

di Mauro data: 23/11/2013 10:38:28
Ciao Divino90, hai inserito qui una nuova discussione per tua volontà o è stato un errore di sistema? Se come penso è un errore di sistema gentilmente apri una nuova discussione, io provvedo ad eliminare il post! P.s. mi raccomando il titolo deve descrivere bene la questione!

di Raffaele_53 (utente non iscritto) data: 23/11/2013 18:42:14
Vai sul foglio Campionato
Premi ALT + F11 e inserisci il codice sulla destra. Salva il files com XlSM (dopo lo associ ad un bottone)

Questo codice provede a far solo 3 sostituzioni, dando la priorità nell'ordine: al portiere, difensore,centrocampo e attacco

Sub calcola()
Dim X As Long, Y As Long, R As Long, Area As Range, Riga As Object, Ruolo As String
 Set Area = Range("L15:L21")
 Range("K3:M21").ClearContents
    For X = 3 To 21
        If Cells(X, 4) <> "s.v." And Cells(X, 4) <> "" Then Cells(X, 11) = Cells(X, 2)
        If Cells(X, 4) <> "s.v." And Cells(X, 4) <> "" Then Cells(X, 12) = Cells(X, 3)
        If Cells(X, 4) <> "s.v." And Cells(X, 4) <> "" Then Cells(X, 13) = Cells(X, 4)
    Next X
    For X = 3 To 13
        If Cells(X, 13) = "" Then
        Ruolo = Cells(X, 3)
        Set Riga = Area.Find(Ruolo, LookIn:=xlValues, LookAt:=xlWhole)
        If Riga Is Nothing Then
        Cells(X, 11) = "VUOTO"
        Else
            R = Riga.Row
            If Cells(R, 12) > 0 Then
                Cells(X, 11) = Cells(R, 11)
                Cells(X, 13) = Cells(R, 13)
                Cells(X, 13) = Cells(R, 13)
                Cells(R, 11) = ""
                Cells(R, 12) = ""
                Cells(R, 13) = ""
                Y = Y + 1
                If Y > 3 Then Exit For
            End If
        End If
        End If
    Next X
End Sub

di Vixtest2013 (utente non iscritto) data: 24/11/2013 14:56:26
Ti ringrazio molto per il codice sviluppato. Appena ho tempo provo a testare il tutto.
Una volta eseguita che cosa si dovrebbe sul foglio?

grazie mille ancora

Vuoi Approfondire?