Velocizzare il calcolo di una serie di numeri

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte
gattodimarmo1980
00sabato 27 agosto 2016 19:24
Buona giornata a tutti .Allego il file finale.xls e il
file Lotto Combinaz v.2.xls che ho preso da questo magnifico
forum .Nel foglio2 di finale.xls ho 30 righe contenenti 14
numeri per ciascuna riga. A questo punto aprendo il file
Lotto Combinaz v.2.xls inserisco i 14 numeri
della riga1 di finale.xls (foglio2)manualmente,digito la macro (Avvia)ottengo tutte le quaterne ,tutti i terni, tutti gli ambi.(Vedi foto allegata)
Ora devo prendere queste combinazioni e riportale
nel foglio3 di finale.xls partendo da range H3 H1003 poi, G3 G366,poi
F3 F93.Sono arrivato manualmente fino a A1456 ,in pratica ,ho sviluppato solo la prima riga, e devo arrivare fino a A43680.
Come vedete la procedura e troppo lenta e vi chiedo come posso
risolverla. In pratica devo sviluppare tutte le combinazioni delle 30 righe in un modo molto veloce perchè poi devo riportarle in un altro programma.
Grazie anticipatamente Matteo [SM=x423023] [SM=x423023]
GiuseppeMN
00mercoledì 31 agosto 2016 05:21
Buona giornata, Matteo;
per non essendo minimamente interessato al gioco del lotto, per ravvivare un pò la discussione, ho dedicato un pò di tempo alla Tua Richiesta.

Sono partito dal File nel quale, nel Foglio di lavoro Foglio2, vengono proposte alcune (30) estrazioni di:
-    Giugno - Luglio - Agosto   2016
I numeri univoci tra quelli estratti sono tutti quelli che vanno da 1 a 70

Fatto ciò, ho inserito questa sequenza nel secondo File e, nell'elaborazione, ho ottenuto i segenti risultati:
-     ... 2.417 Ambi
-     ..54.742 Terni
-    916.895 Quaterne

Non ho rischiato l'elaborazione delle cinquine.

Questo è quanto sono riuscito ad ottenere anche in considerazione del fatto che VBA è protetto da password e, pertanto, non accessibile.

Non credo di poter procedere oltre se non, se lo ritieni interessante e utile per le Tue statistiche, allegare un Foglio Excel con i risultati ottenuti.



A disposizione.

Buon Lavoro e buona serata.

Giuseppe
by sal
00mercoledì 31 agosto 2016 08:09
Combinazioni
Ciao, non ho capito a fondo il tuo problema.

hai le combinazioni nel file combinazioni, poi fai copia/incolla nella colonna "A" del 3° foglio dell'altro file.

a questo punto che succede? dici di copiare in H-G-F, ma cosa?.

le 30 combinazioni del foglio2 devono essere sviluppate con ambi-terni-quaterne.

però ti rendi conto che ci saranno molti doppioni di ambi- terni o quaterne.

qual'è il tuo scopo finale?

Ciao By Sal [SM=x423051]

dodo47
20mercoledì 31 agosto 2016 09:36
Ciao
@Giuseppe (carissimi saluti). Non ho capito cosa tu abbia fatto.
Fatto sta che quelle 30 combinazioni generano ciascuna sempre:
91 Ambi
364 Terni
1.001 Quaterne
-----
1.456 < per un totale di

che moltiplicato per 30 è pari a 43.680, e questo è il risultato cui Gattodimarmo vuole arrivare.

@Gattodimarmo:
ti crei una macro che contiene un loop di lettura delle 30 righe del foglio2 di finale

for i=1 to 30
copy la riga da A a N e la trasponi in col. A di Lotto Combinazioni.
Range("A" & i & ":N" & i).copy
......pastespecial....Transpose:=True

sempre tramite macro spunti i 3 elementi Ambo Terno ecc
Sheets("ELENCO").CheckBox????.Value = True

sempre in tale macro fai eseguire la macro "Elenca" di Lotto Combinazioni.

copi i tre range dove viene stampato il risultato (cioè le col F,G,H) e le accodi alla colonna A del foglio3 del file finale.

(Almeno se è corretto quanto ho capito)

Puoi aiutarti registrando una macro che fa quanto descritto per poi adattarla.

A mio avviso ti conviene creare questa macro nel foglio lottoCombinazioni decidendo fin dall'inizio di lavorare con entrambi i documenti aperti.

saluti
GiuseppeMN
00mercoledì 31 agosto 2016 11:47
Buona giornata a Tutti.

@ dodo47, scrive:

@Giuseppe (carissimi saluti). Non ho capito cosa tu abbia fatto.
Fatto sta che quelle 30 combinazioni generano ciascuna sempre:
91 Ambi
364 Terni
1.001 Quaterne
-----
1.456 < per un totale di

che moltiplicato per 30 è pari a 43.680, e questo è il risultato cui Gattodimarmo vuole arrivare.

Evidentemente non ho centrato la richiesta di @ gattodimarmo1980.

Sono partito dal File nel quale, nel Foglio di lavoro Foglio2, vengono proposte alcune (30) estrazioni di:
-    Giugno - Luglio - Agosto   2016
Tramite un Codice VBA, ho ricavato tutti i 420 numeri estratti (14 numeri per ognuna delle 30 estrazioni)
Da questo elenco ho ricavato i Valori univoci (1:70); valori che ho analizzato nel File analisi di:
-    Ambi
-    Terni
-    Quaterne
con i risultati riportati in Risposta #2

Un lavoraccio inutile, visto che la Tua interpretazione penso sia proprio quella corretta.

Mi rimane la consolazione di aver ravvivato la Discussione.




A disposizione.

Giuseppe

gattodimarmo1980
00mercoledì 31 agosto 2016 21:38
Buona sera Giuseppe, Evidentemente sono io che mi sono spiegato male perché di solito capisci sempre al volo le mie discussioni.
Buona sera Sal, mi rendo conto che ci saranno molti doppioni di ambi- terni- quaterne,
ma la questione è un altra ;devo riportare le 43.680 righe una volta ottenute ,in un altra cartella di lavoro e lanciare
un altra macro che il mio caro amico Giuseppe Mn mi ha creato precedentemente .Se volete non utilizzate Lotto Combinaz v.2.xls,
anche se Domenico (che lo saluto) secondo me ha capito perfettamente il risultato che voglio ottenere e ritiene opportuno il suo utilizzo(Sono d'accordo anch' [SM=x423028] io).In poche parole
voglio che una volta inseriti 14 numeri in orizzontale dalla (A alla N) un unica macro mi sviluppi nel foglio 3 tutte le
combinazioni per tutte le 30 righe. Ho sviluppato io manualmente nel foglio3 le prime 3 righe del foglio2 (quello che dovrebbe
fare la macro richiesta da me),mancano le 27 righe restanti e come dice Dodo bisogna arrivare fino a A43680.Allego di nuovo il file. Grazie anticipatamente GattodiMarmo [SM=x423028]


dodo47
10giovedì 1 settembre 2016 10:05
Ciao
intanto prova a buttare giù qualcosa Matteo, altrimenti siamo sempre daccapo: tu chiedi e qualcuno esegue.

Ciò premesso, il documento LottoCombinazioni ha il progetto bloccato da password e per aggiungere una macro....

Ora poiché quel progetto è di sicuro lavoro di un utente del forum, personalmente non mi sento di "by-passare" la protezione (a meno che tu non la sappia). Quindi inserisci la macro che fa quanto richiedi direttamente nel documento "finale" seguendo quanto in precedenza ti ho accennato.

Non è difficile Matteo, si e no una trentina di righe. Provaci, poi siamo qui.

NOTA: l'uso del file LottoCombinazioni è indispensabile altrimenti devi fare in finale una macro uguale a quella del documento LottoComb.. e mi sembra un inutile spreco di tempo.

saluti
gattodimarmo1980
01giovedì 1 settembre 2016 20:41
x Dodo.
Ciao Domenico ho provato a scrivere questo codice perché volevo sviluppare le prime 5 righe del Foglio2 e riportare lo sviluppo nel Foglio3.
Sub Macrofinale()
'For i = 1 To 30
Range("A" & i & ":N" & i).Copy
PasteSpecial.Transpose = True
[SM=x423035]

Sheets("ELENCO").CheckBox.Value = True
'

'
Range("A1:N1").Select
Selection.Copy
Windows("Lotto Combinaz v.2.xls").Activate
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.Run "'Lotto Combinaz v.2.xls'!elenca"
Range("H3:H1003").Select
Selection.Copy
Windows("finale.xls").Activate
Sheets("Foglio3").Select
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 156
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 225
ActiveWindow.ScrollRow = 266
ActiveWindow.ScrollRow = 295
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 369
ActiveWindow.ScrollRow = 387
ActiveWindow.ScrollRow = 410
ActiveWindow.ScrollRow = 433
ActiveWindow.ScrollRow = 461
ActiveWindow.ScrollRow = 496
ActiveWindow.ScrollRow = 525
ActiveWindow.ScrollRow = 559
ActiveWindow.ScrollRow = 588
ActiveWindow.ScrollRow = 617
ActiveWindow.ScrollRow = 640
ActiveWindow.ScrollRow = 663
ActiveWindow.ScrollRow = 674
ActiveWindow.ScrollRow = 692
ActiveWindow.ScrollRow = 715
ActiveWindow.ScrollRow = 738
ActiveWindow.ScrollRow = 761
ActiveWindow.ScrollRow = 784
ActiveWindow.ScrollRow = 801
ActiveWindow.ScrollRow = 812
ActiveWindow.ScrollRow = 824
ActiveWindow.ScrollRow = 853
ActiveWindow.ScrollRow = 882
ActiveWindow.ScrollRow = 922
ActiveWindow.ScrollRow = 974
ActiveWindow.ScrollRow = 1014
ActiveWindow.ScrollRow = 1054
ActiveWindow.ScrollRow = 1094
ActiveWindow.ScrollRow = 1135
ActiveWindow.ScrollRow = 1175
ActiveWindow.ScrollRow = 1215
ActiveWindow.ScrollRow = 1238
ActiveWindow.ScrollRow = 1261
ActiveWindow.ScrollRow = 1279
ActiveWindow.ScrollRow = 1290
ActiveWindow.ScrollRow = 1296
ActiveWindow.ScrollRow = 1313
ActiveWindow.ScrollRow = 1342
ActiveWindow.ScrollRow = 1371
ActiveWindow.ScrollRow = 1405
ActiveWindow.ScrollRow = 1423
ActiveWindow.ScrollRow = 1446
ActiveWindow.ScrollRow = 1463
ActiveWindow.ScrollRow = 1474
ActiveWindow.ScrollRow = 1480
ActiveWindow.ScrollRow = 1474
ActiveWindow.ScrollRow = 1434
ActiveWindow.ScrollRow = 1342
ActiveWindow.ScrollRow = 1250
ActiveWindow.ScrollRow = 1181
ActiveWindow.ScrollRow = 1141
ActiveWindow.ScrollRow = 1123
ActiveWindow.ScrollRow = 1117
ActiveWindow.ScrollRow = 1112
ActiveWindow.ScrollRow = 1106
ActiveWindow.ScrollRow = 1100
ActiveWindow.ScrollRow = 1094
ActiveWindow.ScrollRow = 1083
ActiveWindow.ScrollRow = 1066
ActiveWindow.ScrollRow = 1043
ActiveWindow.ScrollRow = 1020
ActiveWindow.ScrollRow = 1008
ActiveWindow.ScrollRow = 1002
ActiveWindow.ScrollRow = 997
ActiveWindow.ScrollRow = 991
ActiveWindow.ScrollRow = 974
ActiveWindow.ScrollRow = 945
ActiveWindow.ScrollRow = 910
ActiveWindow.ScrollRow = 887
ActiveWindow.ScrollRow = 876
ActiveWindow.ScrollRow = 870
ActiveWindow.ScrollRow = 876
ActiveWindow.ScrollRow = 882
ActiveWindow.ScrollRow = 893
ActiveWindow.ScrollRow = 910
ActiveWindow.ScrollRow = 928
ActiveWindow.ScrollRow = 945
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 985
ActiveWindow.ScrollRow = 1002
ActiveWindow.ScrollRow = 1008
ActiveWindow.ScrollRow = 1002
ActiveWindow.ScrollRow = 997
ActiveWindow.ScrollRow = 991
ActiveWindow.ScrollRow = 985
ActiveWindow.ScrollRow = 979
ActiveWindow.ScrollRow = 974
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 962
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 974
ActiveWindow.ScrollRow = 979
ActiveWindow.ScrollRow = 985
ActiveWindow.ScrollRow = 991
ActiveWindow.ScrollRow = 985
Range("A1002").Select
Windows("Lotto Combinaz v.2.xls").Activate
Range("G3:G366").Select
Application.CutCopyMode = False
Selection.Copy
Windows("finale.xls").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=374
Range("A1366").Select
Windows("Lotto Combinaz v.2.xls").Activate
Range("F3:F93").Select
Application.CutCopyMode = False
Selection.Copy
Windows("finale.xls").Activate
ActiveSheet.Paste
ActiveWindow.ScrollRow = 1365
ActiveWindow.ScrollRow = 1371
ActiveWindow.ScrollRow = 1376
ActiveWindow.ScrollRow = 1388
ActiveWindow.ScrollRow = 1400
ActiveWindow.ScrollRow = 1423
ActiveWindow.ScrollRow = 1446
ActiveWindow.ScrollRow = 1469
ActiveWindow.ScrollRow = 1492
ActiveWindow.ScrollRow = 1503
ActiveWindow.ScrollRow = 1509
ActiveWindow.ScrollRow = 1520
ActiveWindow.ScrollRow = 1538
ActiveWindow.ScrollRow = 1555
ActiveWindow.ScrollRow = 1572
ActiveWindow.ScrollRow = 1584
ActiveWindow.ScrollRow = 1595
ActiveWindow.ScrollRow = 1589
ActiveWindow.ScrollRow = 1584
ActiveWindow.ScrollRow = 1578
ActiveWindow.ScrollRow = 1561
ActiveWindow.ScrollRow = 1543
ActiveWindow.ScrollRow = 1526
ActiveWindow.ScrollRow = 1520
ActiveWindow.ScrollRow = 1509
ActiveWindow.ScrollRow = 1497
ActiveWindow.ScrollRow = 1492
ActiveWindow.ScrollRow = 1474
ActiveWindow.ScrollRow = 1469
ActiveWindow.ScrollRow = 1463
ActiveWindow.ScrollRow = 1457
ActiveWindow.ScrollRow = 1451
ActiveWindow.ScrollRow = 1446
ActiveWindow.ScrollRow = 1440
ActiveWindow.ScrollRow = 1434
ActiveWindow.ScrollRow = 1440
ActiveWindow.ScrollRow = 1446
ActiveWindow.ScrollRow = 1451
Range("A1457").Select
Windows("Lotto Combinaz v.2.xls").Activate
Windows("finale.xls").Activate
Sheets("Foglio2").Select
Range("A2:N2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Lotto Combinaz v.2.xls").Activate
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.Run "'Lotto Combinaz v.2.xls'!elenca"
Range("H3:H1003").Select
Selection.Copy
Windows("finale.xls").Activate
Sheets("Foglio3").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 1457
ActiveWindow.ScrollRow = 1463
ActiveWindow.ScrollRow = 1474
ActiveWindow.ScrollRow = 1486
ActiveWindow.ScrollRow = 1503
ActiveWindow.ScrollRow = 1515
ActiveWindow.ScrollRow = 1520
ActiveWindow.ScrollRow = 1526
ActiveWindow.ScrollRow = 1532
ActiveWindow.ScrollRow = 1538
ActiveWindow.ScrollRow = 1543
ActiveWindow.ScrollRow = 1549
ActiveWindow.ScrollRow = 1555
ActiveWindow.ScrollRow = 1561
ActiveWindow.ScrollRow = 1566
ActiveWindow.ScrollRow = 1572
ActiveWindow.ScrollRow = 1584
ActiveWindow.ScrollRow = 1595
ActiveWindow.ScrollRow = 1601
ActiveWindow.ScrollRow = 1607
ActiveWindow.ScrollRow = 1612
ActiveWindow.ScrollRow = 1618
ActiveWindow.ScrollRow = 1630
ActiveWindow.ScrollRow = 1635
ActiveWindow.ScrollRow = 1647
ActiveWindow.ScrollRow = 1653
ActiveWindow.ScrollRow = 1664
ActiveWindow.ScrollRow = 1682
ActiveWindow.ScrollRow = 1693
ActiveWindow.ScrollRow = 1716
ActiveWindow.ScrollRow = 1733
ActiveWindow.ScrollRow = 1745
ActiveWindow.ScrollRow = 1751
ActiveWindow.ScrollRow = 1762
ActiveWindow.ScrollRow = 1768
ActiveWindow.ScrollRow = 1779
ActiveWindow.ScrollRow = 1785
ActiveWindow.ScrollRow = 1791
ActiveWindow.ScrollRow = 1802
ActiveWindow.ScrollRow = 1808
ActiveWindow.ScrollRow = 1820
ActiveWindow.ScrollRow = 1825
ActiveWindow.ScrollRow = 1831
ActiveWindow.ScrollRow = 1837
ActiveWindow.ScrollRow = 1843
ActiveWindow.ScrollRow = 1848
ActiveWindow.ScrollRow = 1854
ActiveWindow.ScrollRow = 1860
ActiveWindow.ScrollRow = 1866
ActiveWindow.ScrollRow = 1871
ActiveWindow.ScrollRow = 1877
ActiveWindow.ScrollRow = 1883
ActiveWindow.ScrollRow = 1889
ActiveWindow.ScrollRow = 1894
ActiveWindow.ScrollRow = 1900
ActiveWindow.ScrollRow = 1906
ActiveWindow.ScrollRow = 1912
ActiveWindow.ScrollRow = 1917
ActiveWindow.ScrollRow = 1923
ActiveWindow.ScrollRow = 1935
ActiveWindow.ScrollRow = 1946
ActiveWindow.ScrollRow = 1958
ActiveWindow.ScrollRow = 1964
ActiveWindow.ScrollRow = 1969
ActiveWindow.ScrollRow = 1975
ActiveWindow.ScrollRow = 1981
ActiveWindow.ScrollRow = 1987
ActiveWindow.ScrollRow = 1992
ActiveWindow.ScrollRow = 1998
ActiveWindow.ScrollRow = 2004
ActiveWindow.ScrollRow = 2010
ActiveWindow.ScrollRow = 2015
ActiveWindow.ScrollRow = 2021
ActiveWindow.ScrollRow = 2027
ActiveWindow.ScrollRow = 2033
ActiveWindow.ScrollRow = 2038
ActiveWindow.ScrollRow = 2044
ActiveWindow.ScrollRow = 2050
ActiveWindow.ScrollRow = 2056
ActiveWindow.ScrollRow = 2061
ActiveWindow.ScrollRow = 2067
ActiveWindow.ScrollRow = 2073
ActiveWindow.ScrollRow = 2079
ActiveWindow.ScrollRow = 2084
ActiveWindow.ScrollRow = 2090
ActiveWindow.ScrollRow = 2102
ActiveWindow.ScrollRow = 2107
ActiveWindow.ScrollRow = 2113
ActiveWindow.ScrollRow = 2119
ActiveWindow.ScrollRow = 2125
ActiveWindow.ScrollRow = 2130
ActiveWindow.ScrollRow = 2142
ActiveWindow.ScrollRow = 2148
ActiveWindow.ScrollRow = 2159
ActiveWindow.ScrollRow = 2171
ActiveWindow.ScrollRow = 2176
ActiveWindow.ScrollRow = 2182
ActiveWindow.ScrollRow = 2188
ActiveWindow.ScrollRow = 2194
ActiveWindow.ScrollRow = 2199
ActiveWindow.ScrollRow = 2205
ActiveWindow.ScrollRow = 2211
ActiveWindow.ScrollRow = 2217
ActiveWindow.ScrollRow = 2222
ActiveWindow.ScrollRow = 2228
ActiveWindow.ScrollRow = 2234
ActiveWindow.ScrollRow = 2240
ActiveWindow.ScrollRow = 2246
ActiveWindow.ScrollRow = 2251
ActiveWindow.ScrollRow = 2263
ActiveWindow.ScrollRow = 2269
ActiveWindow.ScrollRow = 2274
ActiveWindow.ScrollRow = 2280
ActiveWindow.ScrollRow = 2286
ActiveWindow.ScrollRow = 2292
ActiveWindow.ScrollRow = 2297
ActiveWindow.ScrollRow = 2303
ActiveWindow.ScrollRow = 2309
ActiveWindow.ScrollRow = 2315
ActiveWindow.ScrollRow = 2320
ActiveWindow.ScrollRow = 2326
ActiveWindow.ScrollRow = 2332
ActiveWindow.ScrollRow = 2338
ActiveWindow.ScrollRow = 2343
ActiveWindow.ScrollRow = 2349
ActiveWindow.ScrollRow = 2355
ActiveWindow.ScrollRow = 2361
ActiveWindow.ScrollRow = 2366
ActiveWindow.ScrollRow = 2378
ActiveWindow.ScrollRow = 2384
ActiveWindow.ScrollRow = 2389
ActiveWindow.ScrollRow = 2395
ActiveWindow.ScrollRow = 2401
ActiveWindow.ScrollRow = 2407
ActiveWindow.ScrollRow = 2412
ActiveWindow.ScrollRow = 2418
ActiveWindow.ScrollRow = 2424
ActiveWindow.ScrollRow = 2430
ActiveWindow.ScrollRow = 2435
ActiveWindow.ScrollRow = 2441
ActiveWindow.ScrollRow = 2447
ActiveWindow.ScrollRow = 2453
ActiveWindow.ScrollRow = 2458
ActiveWindow.ScrollRow = 2464
ActiveWindow.ScrollRow = 2458
ActiveWindow.ScrollRow = 2453
ActiveWindow.ScrollRow = 2447
Range("A2458").Select
Windows("Lotto Combinaz v.2.xls").Activate
Range("G3:G366").Select
Application.CutCopyMode = False
Selection.Copy
Windows("finale.xls").Activate
ActiveSheet.Paste
ActiveWindow.ScrollRow = 2458
ActiveWindow.ScrollRow = 2470
ActiveWindow.ScrollRow = 2481
ActiveWindow.ScrollRow = 2487
ActiveWindow.ScrollRow = 2493
ActiveWindow.ScrollRow = 2504
ActiveWindow.ScrollRow = 2510
ActiveWindow.ScrollRow = 2516
ActiveWindow.ScrollRow = 2522
ActiveWindow.ScrollRow = 2528
ActiveWindow.ScrollRow = 2533
ActiveWindow.ScrollRow = 2539
ActiveWindow.ScrollRow = 2545
ActiveWindow.ScrollRow = 2551
ActiveWindow.ScrollRow = 2556
ActiveWindow.ScrollRow = 2562
ActiveWindow.ScrollRow = 2568
ActiveWindow.ScrollRow = 2579
ActiveWindow.ScrollRow = 2585
ActiveWindow.ScrollRow = 2591
ActiveWindow.ScrollRow = 2597
ActiveWindow.ScrollRow = 2602
ActiveWindow.ScrollRow = 2608
ActiveWindow.ScrollRow = 2614
ActiveWindow.ScrollRow = 2620
ActiveWindow.ScrollRow = 2625
ActiveWindow.ScrollRow = 2631
ActiveWindow.ScrollRow = 2637
ActiveWindow.ScrollRow = 2643
ActiveWindow.ScrollRow = 2648
ActiveWindow.ScrollRow = 2654
ActiveWindow.ScrollRow = 2660
ActiveWindow.ScrollRow = 2666
ActiveWindow.ScrollRow = 2671
ActiveWindow.ScrollRow = 2677
ActiveWindow.ScrollRow = 2683
ActiveWindow.ScrollRow = 2689
ActiveWindow.ScrollRow = 2700
ActiveWindow.ScrollRow = 2712
ActiveWindow.ScrollRow = 2723
ActiveWindow.ScrollRow = 2729
ActiveWindow.ScrollRow = 2735
ActiveWindow.ScrollRow = 2740
ActiveWindow.ScrollRow = 2746
ActiveWindow.ScrollRow = 2752
ActiveWindow.ScrollRow = 2758
ActiveWindow.ScrollRow = 2763
ActiveWindow.ScrollRow = 2769
ActiveWindow.ScrollRow = 2781
ActiveWindow.ScrollRow = 2786
ActiveWindow.ScrollRow = 2792
ActiveWindow.ScrollRow = 2798
ActiveWindow.SmallScroll Down:=17
Range("A2822").Select
Windows("Lotto Combinaz v.2.xls").Activate
Range("F3:F93").Select
Application.CutCopyMode = False
Selection.Copy
Windows("finale.xls").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=92
Range("A2913").Select
Sheets("Foglio2").Select
Range("A3:N3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Lotto Combinaz v.2.xls").Activate
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.Run "'Lotto Combinaz v.2.xls'!elenca"
Range("H3:H1003").Select
Selection.Copy
Windows("finale.xls").Activate
Sheets("Foglio3").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 2914
ActiveWindow.ScrollRow = 2938
ActiveWindow.ScrollRow = 2962
ActiveWindow.ScrollRow = 2970
ActiveWindow.ScrollRow = 2994
ActiveWindow.ScrollRow = 3010
ActiveWindow.ScrollRow = 3018
ActiveWindow.ScrollRow = 3026
ActiveWindow.ScrollRow = 3034
ActiveWindow.ScrollRow = 3042
ActiveWindow.ScrollRow = 3050
ActiveWindow.ScrollRow = 3058
ActiveWindow.ScrollRow = 3066
ActiveWindow.ScrollRow = 3074
ActiveWindow.ScrollRow = 3082
ActiveWindow.ScrollRow = 3090
ActiveWindow.ScrollRow = 3098
ActiveWindow.ScrollRow = 3106
ActiveWindow.ScrollRow = 3114
ActiveWindow.ScrollRow = 3122
ActiveWindow.ScrollRow = 3130
ActiveWindow.ScrollRow = 3138
ActiveWindow.ScrollRow = 3146
ActiveWindow.ScrollRow = 3154
ActiveWindow.ScrollRow = 3162
ActiveWindow.ScrollRow = 3170
ActiveWindow.ScrollRow = 3178
ActiveWindow.ScrollRow = 3186
ActiveWindow.ScrollRow = 3194
ActiveWindow.ScrollRow = 3202
ActiveWindow.ScrollRow = 3210
ActiveWindow.ScrollRow = 3218
ActiveWindow.ScrollRow = 3226
ActiveWindow.ScrollRow = 3234
ActiveWindow.ScrollRow = 3242
ActiveWindow.ScrollRow = 3258
ActiveWindow.ScrollRow = 3274
ActiveWindow.ScrollRow = 3282
ActiveWindow.ScrollRow = 3290
ActiveWindow.ScrollRow = 3306
ActiveWindow.ScrollRow = 3314
ActiveWindow.ScrollRow = 3322
ActiveWindow.ScrollRow = 3330
ActiveWindow.ScrollRow = 3338
ActiveWindow.ScrollRow = 3346
ActiveWindow.ScrollRow = 3354
ActiveWindow.ScrollRow = 3362
ActiveWindow.ScrollRow = 3370
ActiveWindow.ScrollRow = 3378
ActiveWindow.ScrollRow = 3386
ActiveWindow.ScrollRow = 3394
ActiveWindow.ScrollRow = 3402
ActiveWindow.ScrollRow = 3410
ActiveWindow.ScrollRow = 3418
ActiveWindow.ScrollRow = 3426
ActiveWindow.ScrollRow = 3434
ActiveWindow.ScrollRow = 3442
ActiveWindow.ScrollRow = 3458
ActiveWindow.ScrollRow = 3466
ActiveWindow.ScrollRow = 3474
ActiveWindow.ScrollRow = 3482
ActiveWindow.ScrollRow = 3490
ActiveWindow.ScrollRow = 3498
ActiveWindow.ScrollRow = 3506
ActiveWindow.ScrollRow = 3514
ActiveWindow.ScrollRow = 3522
ActiveWindow.ScrollRow = 3538
ActiveWindow.ScrollRow = 3546
ActiveWindow.SmallScroll Down:=352
Range("A3914").Select
Windows("Lotto Combinaz v.2.xls").Activate
Range("G366").Select
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 332
ActiveWindow.ScrollRow = 273
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 1
Range("G3:G366").Select
Application.CutCopyMode = False
Selection.Copy
Windows("finale.xls").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=369
Range("A4278").Select
Windows("Lotto Combinaz v.2.xls").Activate
Range("F3:F104").Select
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
Range("F3:F93").Select
Application.CutCopyMode = False
Selection.Copy
Windows("finale.xls").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=99
Range("A4369").Select
Windows("Lotto Combinaz v.2.xls").Activate
Windows("finale.xls").Activate
Sheets("Foglio2").Select
Range("A4:N4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Lotto Combinaz v.2.xls").Activate
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.Run "'Lotto Combinaz v.2.xls'!elenca"
Range("H3:H1003").Select
Selection.Copy
Windows("finale.xls").Activate
Sheets("Foglio3").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=36
ActiveWindow.ScrollRow = 4411
ActiveWindow.ScrollRow = 4422
ActiveWindow.ScrollRow = 4455
ActiveWindow.ScrollRow = 4477
ActiveWindow.ScrollRow = 4488
ActiveWindow.ScrollRow = 4499
ActiveWindow.ScrollRow = 4510
ActiveWindow.ScrollRow = 4521
ActiveWindow.ScrollRow = 4532
ActiveWindow.ScrollRow = 4543
ActiveWindow.ScrollRow = 4554
ActiveWindow.ScrollRow = 4598
ActiveWindow.ScrollRow = 4631
ActiveWindow.ScrollRow = 4653
ActiveWindow.ScrollRow = 4675
ActiveWindow.ScrollRow = 4708
ActiveWindow.ScrollRow = 4741
ActiveWindow.ScrollRow = 4763
ActiveWindow.ScrollRow = 4774
ActiveWindow.ScrollRow = 4785
ActiveWindow.ScrollRow = 4796
ActiveWindow.ScrollRow = 4807
ActiveWindow.ScrollRow = 4818
ActiveWindow.ScrollRow = 4840
ActiveWindow.ScrollRow = 4851
ActiveWindow.ScrollRow = 4873
ActiveWindow.ScrollRow = 4884
ActiveWindow.ScrollRow = 4895
ActiveWindow.ScrollRow = 4906
ActiveWindow.ScrollRow = 4928
ActiveWindow.ScrollRow = 4939
ActiveWindow.ScrollRow = 4961
ActiveWindow.ScrollRow = 4983
ActiveWindow.ScrollRow = 5016
ActiveWindow.ScrollRow = 5049
ActiveWindow.ScrollRow = 5060
ActiveWindow.ScrollRow = 5071
ActiveWindow.ScrollRow = 5093
ActiveWindow.ScrollRow = 5104
ActiveWindow.ScrollRow = 5115
ActiveWindow.ScrollRow = 5126
ActiveWindow.ScrollRow = 5137
ActiveWindow.ScrollRow = 5159
ActiveWindow.ScrollRow = 5181
ActiveWindow.ScrollRow = 5192
ActiveWindow.ScrollRow = 5203
ActiveWindow.ScrollRow = 5214
ActiveWindow.ScrollRow = 5225
ActiveWindow.ScrollRow = 5236
ActiveWindow.ScrollRow = 5258
ActiveWindow.ScrollRow = 5269
ActiveWindow.ScrollRow = 5280
ActiveWindow.ScrollRow = 5291
ActiveWindow.ScrollRow = 5324
ActiveWindow.ScrollRow = 5346
ActiveWindow.SmallScroll Down:=12
Windows("Lotto Combinaz v.2.xls").Activate
Range("G3:G366").Select
Application.CutCopyMode = False
Selection.Copy
Windows("finale.xls").Activate
Range("A5370").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 5369
ActiveWindow.ScrollRow = 5405
ActiveWindow.ScrollRow = 5440
ActiveWindow.ScrollRow = 5475
ActiveWindow.ScrollRow = 5487
ActiveWindow.ScrollRow = 5499
ActiveWindow.ScrollRow = 5510
ActiveWindow.ScrollRow = 5522
ActiveWindow.ScrollRow = 5534
ActiveWindow.ScrollRow = 5546
ActiveWindow.ScrollRow = 5557
ActiveWindow.ScrollRow = 5569
ActiveWindow.ScrollRow = 5581
ActiveWindow.ScrollRow = 5593
ActiveWindow.ScrollRow = 5604
ActiveWindow.ScrollRow = 5616
ActiveWindow.ScrollRow = 5628
ActiveWindow.ScrollRow = 5640
ActiveWindow.ScrollRow = 5651
ActiveWindow.ScrollRow = 5663
ActiveWindow.ScrollRow = 5675
ActiveWindow.ScrollRow = 5687
ActiveWindow.ScrollRow = 5698
ActiveWindow.ScrollRow = 5710
ActiveWindow.SmallScroll Down:=13
Range("A5734").Select
Windows("Lotto Combinaz v.2.xls").Activate
Range("F3:F93").Select
Application.CutCopyMode = False
Selection.Copy
Windows("finale.xls").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=92
Range("A5825").Select
Sheets("Foglio2").Select
Range("A5:N5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Lotto Combinaz v.2.xls").Activate
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.Run "'Lotto Combinaz v.2.xls'!elenca"
Range("H3:H1003").Select
Selection.Copy
Windows("finale.xls").Activate
Sheets("Foglio3").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=534
ActiveWindow.ScrollRow = 6368
ActiveWindow.ScrollRow = 6382
ActiveWindow.ScrollRow = 6396
ActiveWindow.ScrollRow = 6410
ActiveWindow.ScrollRow = 6424
ActiveWindow.ScrollRow = 6438
ActiveWindow.ScrollRow = 6452
ActiveWindow.ScrollRow = 6466
ActiveWindow.ScrollRow = 6480
ActiveWindow.ScrollRow = 6494
ActiveWindow.ScrollRow = 6508
ActiveWindow.ScrollRow = 6522
ActiveWindow.ScrollRow = 6536
ActiveWindow.ScrollRow = 6550
ActiveWindow.ScrollRow = 6564
ActiveWindow.ScrollRow = 6578
ActiveWindow.ScrollRow = 6592
ActiveWindow.ScrollRow = 6606
ActiveWindow.ScrollRow = 6620
ActiveWindow.ScrollRow = 6634
ActiveWindow.ScrollRow = 6648
ActiveWindow.ScrollRow = 6662
ActiveWindow.ScrollRow = 6676
ActiveWindow.ScrollRow = 6690
ActiveWindow.ScrollRow = 6704
ActiveWindow.ScrollRow = 6718
ActiveWindow.ScrollRow = 6732
ActiveWindow.ScrollRow = 6746
ActiveWindow.ScrollRow = 6760
ActiveWindow.ScrollRow = 6774
ActiveWindow.ScrollRow = 6788
ActiveWindow.ScrollRow = 6802
ActiveWindow.SmallScroll Down:=13
Range("A6826").Select
Windows("Lotto Combinaz v.2.xls").Activate
Range("G3:G366").Select
Application.CutCopyMode = False
Selection.Copy
Windows("finale.xls").Activate
ActiveSheet.Paste
Windows("Lotto Combinaz v.2.xls").Activate
Range("F3:F93").Select
Application.CutCopyMode = False
Selection.Copy
Windows("finale.xls").Activate
ActiveWindow.SmallScroll Down:=364
Range("A7190").Select
Windows("Lotto Combinaz v.2.xls").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("finale.xls").Activate
ActiveSheet.Paste
Sheets("Foglio3").Select
ActiveWindow.SmallScroll Down:=4
ActiveWindow.ScrollRow = 7197
ActiveWindow.ScrollRow = 7212
ActiveWindow.ScrollRow = 7227
ActiveWindow.ScrollRow = 7242
ActiveWindow.ScrollRow = 7257
ActiveWindow.SmallScroll Down:=6
Range("L7282").Select
End Sub
Ma quando dopo cancello i dati per vedere se la macro funziona, non ottengo niente,il foglio3 e completamente vuoto.Ciao a presto Matteo
dodo47
10venerdì 2 settembre 2016 09:12
Ciao Matteo...non ho parole.

Apri l'allegato, ci trovi due file: Finale.xls e LottoCombinaz.xls.
Li apri entrambi, vai nel foglio2 di finale, c'è un pulsante "Copia combinazioni", cliccaci.

Dopo che ne hai controllato il risultato, copia la macro sul tuo Finale cambiando il nome del file lottocombinaz con quello tuo.

Almeno studiatelo (è ben commentato) e cerca di ricavarne qualcosa.

Approfondisci le tue zero conoscenze di vba, perché questa (per quanto mi riguarda) è l'ultima volta che ti fornisco un codice.

saluti
gattodimarmo1980
00venerdì 2 settembre 2016 19:41
Complimenti per ( )
Riscontro eseguito perfettamente. Io mi sto impegnando molto ma è impossibile arrivare ai vostri Livelli(Giuseppe Mn per primo,Dodo47,Sal,Ninai,Cromagno,Locate Varesino ,Alfredo,ecc. ecc.)posso solo farvi complimenti,ci vogliono anni e anni di lavoro approfondito secondo me, io se fossi in voi sarei orgoglioso di essere
cosi come siete ad usare Excel. Ciao e grazie Matteo [SM=x423017]
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 05:53.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com