Moderatori: Anthony47, Flash30005
[L’estensione zip è stata disattivata e non puó essere visualizzata.]
paolox ha scritto:indica che praticamente
il numero 16 è in ritardo da 11 estrazioni
il numero 49 è in ritardo da 6 estrazioni
ecc. ecc.
[L’estensione zip è stata disattivata e non puó essere visualizzata.]
Flash30005 ha scritto:paolox ha scritto:indica che praticamente
il numero 16 è in ritardo da 11 estrazioni
il numero 49 è in ritardo da 6 estrazioni
ecc. ecc.
Io noto sul tuo archivio che
sulla Ruota Nazionale è in ritardo di 4 estrazioni
su Roma 11
su Venezia 13
su Firenze 16
su Milano 19
insomma quel ritardo 11 a quale ruota si riferisce? (Roma?)
Sembrerebbe l'ultima uscita, considerando tutte le 10 ruote esclusa la Nazionale
paolox ha scritto:...
il forum ha dei problemi con gli allegati,
saresti così gentile e disponibile da indicarmi le formule
da inserire? tieni presente che non ho grossa esperienza
con il pc e con excel, ti prego di essere il più semplice possibile
[L’estensione txt è stata disattivata e non puó essere visualizzata.]
paolox ha scritto:l'ho scaricato
ma come faccio a togliere l'estensione .txt ?
[L’estensione txt è stata disattivata e non puó essere visualizzata.]
Sub Elabora()
TotR = Range("A65536").End(xlUp).Row + 1
For N = 1 To 90
For R = 6 To TotR
For C = 2 To 56
If Cells(R, C).Value = N Then
RA = 0
If R > 6 Then RA = R - 6
Range("BJ" & 3 + N).Value = RA
GoTo fine
End If
Next C
Next R
fine:
Next N
End Sub
Flash30005 ha scritto:In quella funzione c'era un bug facile da correggere con una semplice istruzione ma mi sono accorto che a volte nell'incollare i dati le celle interessate alla funzione andavano in "Tilt"
Quindi dopo averci perso del tempo ho deciso che forse una macro standard è più affidabile
Sostituisci quella funzione con questa macro
- Codice: Seleziona tutto
Sub Elabora()
TotR = Range("A65536").End(xlUp).Row + 1
For N = 1 To 90
For R = 6 To TotR
For C = 2 To 56
If Cells(R, C).Value = N Then
RA = 0
If R > 6 Then RA = R - 6
Range("BJ" & 3 + N).Value = RA
GoTo fine
End If
Next C
Next R
fine:
Next N
End Sub
Una volta caricate le estrazioni esegui la macro
(puoi farla eseguire automaticamente ad ogni variazione dei dati)
Prova e fai sapere
Ciao
Flash30005 ha scritto:Spiegami come fai ad aggiungere le estrazioni perché c'è qualcosa che non va in questa operazione
oppure la macro non si aggiorna
prova ad eseguire la macro manualmente e vedi il risultato
fammi sapere
Ciao
P.s. Per eseguire la macro vai su Strumenti > Macro > Macro
selezioni Elabora e poi premi il pulsante Esegui
TotR = Range("A65536").End(xlUp).Row + 1
TotR = Range("B65536").End(xlUp).Row + 1
Torna a Applicazioni Office Windows
Problema con barra delle applicazioni Autore: Gilindone |
Forum: Sistemi Operativi Windows Risposte: 4 |
Windows Foto: eliminare delle foto nella scheda Raccolta Autore: franco11 |
Forum: Software Windows Risposte: 12 |
Visitano il forum: Ricky0185 e 39 ospiti