Altra versione.. ottimo
Intanto sto continuando a testare il prg.
Su bari con le ultime 3 ritardate, beccato 30-78
Stesso discorso su Torino 11-16
La nazionale ha preso la più sfaldata 1-2
Ottimo lavoro fin'ora.
Ciao
Moderatori: Anthony47, Flash30005
paolox ha scritto:...che password devo usare
per aprire il file
Flash30005 ha scritto:Ogni promessa è debito..
Funzionalità:
1) Aggiornamento automatico da internet (dovete indicare la cartella destinazione che è C:\SysLotto\ ) dopodiché fa tutto da solo.
Ciao
Sub TestData()
DF = Worksheets("Sistema").Range("A2").Value
Diff = Date - DF
DGS = Weekday(DF, 2)
If DGS = 6 Then
DGS = 1
Else: DGF = 0
End If
If Diff - DGF > 5 Then '<<<<< qui, da fare anche sulla macro TestDataInt
MsgBox " AGGIORNARE DATABASE ", vbInformation
Range("Q2:Q3").Interior.ColorIndex = 3
Range("Q2:Q3").Font.ColorIndex = 2
Else
Range("Q2:Q3").Interior.ColorIndex = 33
Range("Q2:Q3").Font.ColorIndex = 0
Range("Q3").Value = ""
End If
End Sub
purtroppo non sapevo che la lottomatica rilascia il file con un'estrazione in ritardo cioè questa sera rilascerà l'estrazione del giovedi ecco perché ti avvisa di effettuare l'aggiornamento
Flash30005 ha scritto:Il programma è calcolato per le estrazioni a cadenza regolare del Martedì - Giovedi e Sabato purtroppo non sapevo che la lottomatica rilascia il file con un'estrazione in ritardo cioè questa sera rilascerà l'estrazione del giovedi ecco perché ti avvisa di effettuare l'aggiornamento e le celle Q2 e Q3 si colorano di rosso e pur effettuando l'aggiornamento si avrà lo lo stesso archivio già installato, fino a questa notte.
Comunque per poter fare l'aggiornamento bisogna cliccare nella cella Q3 (appare un simbolo tipo @ ) e poi premere Start.
Il programma prima di effettuare l'elaborazione scaricherà il file da internet (l'utente dovrà indicare la cartella di download del file che è appunto C:\SysLotto\ in un tempo di 10 secondi circa), aggiornerà le colonne da A a G, le celle Q2 e Q3 diventano blu, il simbolo di aggiornamento in Q3 viene eliminato e procederà con la normale elaborazione, fino alla prossima scadenza della data.
Fammi sapere se ok
Ciao
Ps. per compensare il ritardo di aggiornamento bisogna cambiare il valore da 3 a 5 in questo punto delle macro TestData e TestDataInt
Flash30005 ha scritto:Ps. per compensare il ritardo di aggiornamento bisogna cambiare il valore da 3 a 5 in questo punto delle macro TestData e TestDataInt
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 71 ospiti