Sono un principiante, sto imparando ad usare le macro cercando di capire quelle altrui.
Ora, ad esempio sto cercando di modificare 1 macro per la gestione del campionato di calcio.
Sono riuscito con mia somma soddisfazione a modificare alcune parti del prg., e funzionano.
Ora mi è venuto in mente un’altra modifica xò qui mi sono brutalmente arenato.
Avrei il desiderio di essere aiutato da qualche esperto .
Cerco di spiegare quello che vorrei fare:
- quando una gara non viene disputata scrivere la motivazione del xè nn è stata disputata, in più questi dati passarli al foglio 3 “Tabella Statistiche”;
- in tale foglio vorrei poter avere tutte le gare non disputate, la data in cui era in calendario e la motivazione.

La mia idea è questa:
- riuscire a modificare ad esempio il codice sotto riportato in modo che se la prima condizioni è verificata nelle note Andata appaia “Disputata” – aggiorni i dati nella tabella”statistiche”- ed il prg prosegua;
- se la prima condizione è “Tru” la cella attiva si posizioni sulla corrispondente casella motivazioni “X” permettendomi di scegliere la motivazione vengano aggiornati i dati nella tabella”statistiche”- ed il prg prosegua;
- e così per tutte le gare della giornata ed ovviamente per tutte le giornate.

Esempio su cui sto lavorando:


Andata = True

If (IsEmpty(Cells(Riga, 1)) = False And IsEmpty(Cells(Riga, 2)) = False) Then
GoalsOspitanteAndata = Cells(Riga, 1)
GoalsOspitataAndata = Cells(Riga, 2)
IDOspitante = Cells(Riga, 3)
IDOspitata = Cells(Riga, 4)
GoSub AggiornaAndata
End If

FOGLIO 1 – ELENCO SOCIETÀ – MOTIVAZIONI (Disputata- non Disputata – Sopesa ecc.)

FOGLIO 2 INSERIMENTO RISULTATI E NOTE

avevo fatto 1 tabella per spiegarmi meglio ma nn riesco ad inserla

FOGLIO 3 .CLASSIFICHE E STATISTICHE

La tabella Classifica penso nn serva descriverla
La tabella Statistiche dovrebbe essere all’incirca così strutturata:

data giornata - Gare giocate - Gare sospese - Gare rinviate ecc - TOTALE
Società 1
Società 2 ecc.
TOTALE


Spero di essere riuscito a spiegarmi e sopratutto ci sia qualcuno disposto ad aiutarmi

Ciao
KM

salve
bisognerebbe essere maghi per capire come muoversi tra i fogli non avendoli sott'occhio.

intanto puoi partire da questo spunto:

Sub Test()
If (IsEmpty(Cells(riga, 1)) = False And IsEmpty(Cells(riga, 2)) = False) Then
GoalsOspitanteAndata = Cells(riga, 1)
GoalsOspitataAndata = Cells(riga, 2)
IDOspitante = Cells(riga, 3)
IDOspitata = Cells(riga, 4)
Sheets("Foglio2").Range("c1").Value = "disputata"
GoSub AggiornaAndata
Else
inizio:
nota = InputBox("Motivo annullamento gara", "NOTE GARA")
If nota = "" Then
MsgBox ("non indicata motivazione")
GoTo inizio
End If
Sheets("Foglio2").Range("c1").Value = nota
End If
End Sub

la macro fa questo:
se le celle di riga,1 e riga,2 non sono vuote recupera i valori e li mette nelle variabili Goals e ID e va a scrivere
da qualche parte (io ho indicato il foglio2 cella C1 che dovrai modificare) "Disputata"
Nel caso che nessun valore sia presente in riga1 e riga2 comparirà una finestra di richiesta per indicare il motivo
del "non risultato" quello che verrà scritto nella finestra di richiesta, sarà riportato in qualche parte del foglio
(come sopra ho indicato la cella C1 del foglio2)

anche sforzandosi, con le indicazioni avute non posso fare di più.
saluti
Giap

---