Moderatori: Anthony47, Flash30005
Sub Elabora()
TotR = Range("B65536").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
Call Elabora10 '<<< Riga aggiunta macro precedente
End Sub
Sub Elabora10()
'---------- Nuova Macro
TotR = Range("B65536").End(xlUp).Row + 1
For N = 1 To 90
For R = 6 To TotR
For C = 2 To 51
If Cells(R, C).Value = N Then
RA = 0
If R > 6 Then RA = R - 6
Worksheets("Foglio3").Range("BJ" & 3 + N).Value = RA
GoTo fine
End If
Next C
Next R
fine:
Next N
End Sub
paolox ha scritto:come dati da prelevare per un archivio andrebbero bene,
ma per fare un tabellone analitico come
suggerisci di preparare il foglio?
fammi sapere
ciao
paolox ha scritto:ti do un link di un tabellone analitico,
eccolo
http://www.pianetalotto.it/lotto/tabelle/analitico.html
paolox ha scritto:quello che è esistente è fatto da 10 ruote
a me servirebbe di 10 ruote + nazionale
[L’estensione txt è stata disattivata e non puó essere visualizzata.]
paolox ha scritto:mi chiede la paasword
cosa devo digitare?
[L’estensione txt è stata disattivata e non puó essere visualizzata.]
paolox ha scritto:perfetto
paolox ha scritto:non ho parole per ringraziarti
per la tua enorme disponibilità e cortesia
sei un grande
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: Nessuno e 34 ospiti