Compilatore in Automatico in orizzontale

Buon Domenica Forum nella discussione allego due
File uno chiamato "Compilatore", l'altro file "Lottocombinazioni2007" è di By-Sal nostro amministratore .Nel file "Compilatore" inserisco nel "Foglio2" delle righe di numeri e all'eseguire della macro "Sub CopiaCombinazioni"spuntata la ("CheckBox1") (Ambi) ho in automatico lo sviluppo degli ambi nel "Foglio3" in verticale.Ora chiedo a voi una modifica della macro devo fissare i numeri della colonna G e riportare gli ambi sviluppati nel "Foglio4" ma in orizzontale e non in verticale.
Poi devo fissare i numeri della colonna H
e riportare nel "foglio5" sempre in orrizzontale
gli ambi sviluppati escludendo però la colonna G.
Comunque Nel "foglio4" e nel "foglio5" ho fatto l'esempio.Per quanto riguarda il post "riflessione rivolta ai richiedenti aiuto" di Tanimon che saluto
sono pienamente d'accordo su tutto quello che hai scritto e sono pienamente d'accordo su quello che ha scritto Sal non sono d'accordo però sulla classifica stimata (Dodo47) e (DaniloFiorini) meritavano un graduatòria molto più alta.Grazie anticipatamente Matteo

Quella di Tanimon non è affatto una classifica di merito ma, come detto da lui stesso, i nominativi sono elencati in ordine sparso.

ciao Matteo,

gattodimarmo1980, 08/11/2020 15:24:

---

non sono d'accordo però sulla classifica stimata (Dodo47) e (DaniloFiorini) meritavano un graduatòria molto più alta. Matteo

---

della discussione a cui ti riferisci,
credo ti sia perso questo dettaglio:

tanimon, 07/11/2020 22:27:

---

Ne approffitto e rigorosamente in ordine sparso sperando di non dimenticarne altri,
ringrazio e saluto

---

@Tanimon

Frank ti ringrazio per avermi inserito (a mio modo di vedere immeritatamente) nel tuo elenco.

Ciao Frank, avevo letto,volevo accendere il tuo post, ma se fosse stata una classifica in ordine decrescente in base alle capacità dei vari utenti non sarebbe sbagliata di tanto se vuoi mettermi ultimo non mi offendo ma almeno mettimi ..Ciao Matteo💘

ciao a tutti,
ciao Matteo,

gattodimarmo1980, 08/11/2020 15:24:

---

Ora chiedo a voi una modifica della macro devo fissare i numeri della colonna G e riportare gli ambi sviluppati nel "Foglio4" ma in orizzontale e non in verticale.
Matteo

---

Cosa ne pensi di provare a fare qualcosa di semplice in autonomia?


prova ad eseguire questi passaggi,

1 creati una copia del file originale e lavora sulla copia,
2 utilizza il registratore di macro ed esegui i passaggi che hai
richiesto, con l'Incolla Speciale > Trasponi, nel Foglio4
3 termina la registrazione della macro
4 salva il file copia, chiudilo e riaprilo
5 riporta alla situazione precedente i dati del Foglio4
6 lancia la macro registrata e guarda il risultato

7 edita eventualemente la macro, studiandoci un pò

8 dopo e solo dopo a avere eseguito tutti i punti fino al 7°,
allega il file copia e mi raccomando... SENZA PASSWORD!!!

Ma sono certo che se ti applichi un pò.... e neanche tanto....,
non dovrai eseguire il punto 8.

Fatto per la "G" aggiustando i riferimenti, il procedimento sarà uguale per la colonna "H".

Ciao

Frank

Sub CopiaCombinazioniVerticaleColonnaG()
Dim wks1 As Worksheet, wks2 As Worksheet, wkb1 As Workbook, wkb2 As Workbook
Dim RngFrom As Range, UR As Long, rTo As Long
'controllo LottoCombinaz è aperto
On Error Resume Next
Set wkb1 = ActiveWorkbook
Set wkb2 = Workbooks("LottoCombinaz2007.xlsm")
On Error GoTo 0
If wkb2 Is Nothing Then
MsgBox "Il file LottoCombinaz2007.xlsm deve essere aperto"
GoTo xit
End If
On Error GoTo xit
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'azzera foglio3 finale
Worksheets("Foglio4").Range("A:A").ClearContents
'attiva LottoCombinaz
wkb2.Activate
rTo = 1
'copia ciascuna delle 30 righe
For i = 1 To 5
wkb1.Sheets("Foglio2").Range("F" & i & ":G" & i).Copy
wkb1.Sheets("Foglio2").Range("E" & i & ":G" & i).Copy
wkb1.Sheets("Foglio2").Range("D" & i & ":G" & i).Copy
wkb1.Sheets("Foglio2").Range("C" & i & ":G" & i).Copy
wkb1.Sheets("Foglio2").Range("B" & i & ":G" & i).Copy
wkb1.Sheets("Foglio2").Range("A" & i & ":G" & i).Copy




Range("A3:P16").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
'spunta le 3 checkBox Ambo-Terno-Quaterna
' For j = 2 To 2

'NOTA: CheckBox1=AMBO - CheckBox2=TERNO - CheckBox3=QUATERNA - CheckBox4=CINQUINA
ActiveSheet.OLEObjects("CheckBox1").Object.Value = True


' Next j
'esegue la macro Elenca (quella legata al pulsante AVVIO
Application.Run (wkb2.Name & "!Elenca")
'copia le 3 colonne quaterne-terni-ambi nel foglio3 di finale
For j = 8 To 6 Step -1
UR = Cells(Rows.Count, j).End(xlUp).Row
If UR > 2 Then
Range(Cells(3, j), Cells(UR, j)).Copy
wkb1.Sheets("Foglio4").Cells(rTo, 1).PasteSpecial Paste:=xlPasteValues
rTo = wkb1.Sheets("Foglio4").Range("A" & Rows.Count).End(xlUp).Row + 1
End If
Next j
Next i

xit:
If Err.Number <> 0 Then
MsgBox "Errore " & Err.Number & " - " & Err.Description
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
wkb1.Activate
Sheets("Foglio4 ").Select
Range("A1").Select
MsgBox "Fine elaborazione"
Set wkb1 = Nothing
Set wkb2 = Nothing
End Sub

Ciao Frank, ho sbagliato anche ad associare l'esempio dei fogli , ho provato da circa 10 giorni a modificare la macro ma non ci riesco perchè se a voi può sembrare una cosa facile per me non è così volevo solo dirti che la macro Sub CopiaCombinazioni() dentro il foglio wkb1.Sheets("Foglio2").Range("A" & i & ":H" & i).Copy, mi sviluppa tutto quello che trova da (A H) ma ora io voglio solo le combinazioni col numero in G (fisso).Perciò la macro deve lavorare così trovare e riportare queste combinazioni (G A) (G B) (G C) (G D) (G E) .Ho provato con la macro sopra ma non ho risultati.Allego ancora il Foglio compilatore con gli esempi stavolta giusti (Foglio4) (Foglio5).A presto Matteo

ciao Matteo,
non ho visionato il tuo ultimo allegato:
so che è un progetto complesso e non ho tempo ed intenzione di
studiarmelo tutto per darti una risposta esaustiva.

Volevo solo dirti....
che al post #6 ti ho già suggerito una strada che secondo me potresti seguire.

Allega un file inerente ai quei suggerimenti con i tentativi che avrai effettuato e vedrò se riesco ed ho tempo per darti una mano su quello.

Ammesso che ci si riesca,
adattandola, potrai inserire la soluzione al tuo file originale.

ciao
Frank

Ciao Frank ho provato a buttare giù qualcosa ma non
riesco allego ancora il file Compilatore.Andiamo con ordine il file Lottocombinazioni2007 è indispensabile,nel "Foglio2" inserisco 5 righe di numeri ma possono essere anche lettere, For i=1 to 5 vuol dire che il compilatore mi copia in automatico la coppia di elementi nel "Foglio3"in questo caso in verticale ma mi assembla tutto quello che trova Range (AH) e fin qui è tutto giusto.La macro che svolge questo Lavoro si chiama "Sub CopiaCombinazioni".Ora la macro che ho provato a craere io si chiama "CopiaComninazioniVerticaleColonnaG" ma va modificata
In pratica da "Foglio2" a "Foglio4" voglio che la macro ora lavori così non deve copiarmi e assemblarmi tutto quelle
che vede da A1 H5 ma deve copiarmi solo le coppie
con il numero della cella G bloccato con i primi 6 numeri della riga e copiarli con incolla speciale trasponi e non in verticale nella riga1 del Foglio4.
Nel foglio4 comunque nella Riga1 cè l'esempio partendo da B2 di quello che voglio fare,l'altra volta ha risolto Dodo47 tolgo l'occasione di salutarlo ,allego ora il file con i tuoi suggerimenti,i tentativi effettuati tanti , se riesci ed hai tempo per darmi una mano ora risolvi .
Grazie anticipatamente Matteo

gattodimarmo1980, 11/11/2020 20:34:

---

se riesci ed hai tempo per darmi una mano ora risolvi .
Grazie anticipatamente Matteo

---

ciao,
vorrei che mi spiegassi qiesta frase.

Grazie
Frank

Ciao Frank uso il blocco note e poi da mobile non sempre riesco ad ingrandire il messaggio perché a volte mi si cancella va il post è dovevo rifare il post da capo nel mio carattere non do ordini a nessuno mi è sfuggito il ora risolvi ho visto adesso domani col pc modifico il messaggio, il pos t finiva con darmi una mano l,altra volta ha risolto Dodo47 e un incolla (ora risolvi )ci mancherebbe ora non il pc PER modificare .Buona serata matteo spero abbiamochiaritoo😻

Mi daresti una percentuale (Codice IBAN 123 456 789) ???
1° punti i soldi
2° prima della scommessa, mi dai solo 00,1% di quello che giochi
3° Ti fornisco tutto il VBA che desideri
4° Io, divento miliardario e non entro più in questo forum

Ps. Avrete notato il mio essere contrario. Come se fosse una quasialsi "droga"
PPs. Non desidero incoraggiare, qualsiasi "NEONATO" per questi giochi


EDIT, non dirmi per studio o diletto

ciao a tutti,
ciao Matteo,

per l'allegato che hai inviato,io l'ho capita come dal file
che ti allego.

Adesso adatta la macro al tuo file.

E per me questo argomento è risolto DEFINITAVAMENTE.

ciao
Frank

P.S.
verificandolo mi sono accortoche le colonne sono 6 e non 5
devi modificare solo questa riga


con questa

Buonasera Tanimon , ti ringrazio per il codice è perfetto così come lo volevo,per capire una funzione in più ho modificato ("|") con ("-") si può dire ad excel di annullare la funzione data e riportare ad esempio (9-87 )e non (set-87).Ho provato con due modi ma non funzionano.
Rispondo anche a ABCDEF@Excel,Un anagramma è il risultato della permutazione delle lettere di una o più parole compiuta in modo tale da creare altre parole o eventualmente frasi di senso compiuto. Gli anagrammi sono classificabili fra i giochi linguistici e quelli enigmistici perciò il file di Frank funziona anche con le lettere io
studio "Calcolo Combinatorio" perciò .... io no sono bravo col Vba come voi ma in matematica, ho una Laurea

gattodimarmo1980, 12/11/2020 21:01:

---

Buonasera Tanimon , ti ringrazio per il codice è perfetto così come lo volevo,per capire una funzione in più ho modificato ("|") con ("-") si può dire ad excel di annullare la funzione data e riportare ad esempio (9-87 )e non (set-87).Ho provato con due modi ma non funzionano.

---

sicuro di avere provato?!?!?!?!?!?!?




la modifica in allegato.
Frank

Buon sabato Tanimon ,certo che avevo provato,il primo metodo non funzionante è stato quello di sostituire il ("|") con ("-") una volta finito l'esecuzione dello sviluppo di elementi (numeri o lettere).
Siccome non riesco a capire tutta la tua macro spiegami una cosa,come fà il tuo codice finito di combinare (numeri o lettere) a copiare con copia (speciale trasponi) scrivendo poi la seconda riga in (H1) poi la terza riga in (N1) ecc.ecc...Nel codice di Dodo47 avevo
wkb1.Sheets("Foglio2").Range("A" & i & ":H" &i).Copy
Range("A3:A16")..PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True ,nel tuo non vedo le coordinate,ti chiedo questo perchè vorrei poi cambiare anche questa Sub "Sub CopiaCombinazioni"() per far scrivere il compilatore in orrizzontale e non in verticale come fa ora.Ti ringrazio per l'ultima tua modifica fatta Worksheets("Foglio4").Rows(1).NumberFormat = "@" A presto Matteo

ciao a tutti,

ciao Matteo,

non vorrei risultarti scortese,
ma mi devi scusare e stento a credere che, utilizzando le proprie ed indubbie capacità,

un laureato in matematica come ti sei professato e data la complessità di quanto ti occupi,
non abbia un minimo di iniziativa per fare una ricerca con Google
o meglio ancora, cercare una soluzione in autonomia.

Quindi dopo tutti i post che hai inviato sul forum e tutti i codici che ti sono stati forniti, è finalmente arrivato il momento che tu capisca da solo i codici che ti vengono proposti.



l'unico modo che conosco per capire un codice vba di una routine in un modulo, o di un codice in un evento, è quello di eseguirlo passo, passo, posizionandosi in qualsiasi punto del codice ed attivandolo utilizzando il tasto F8.


Esegui il codice passo passo,
e vedrai che le variabili o il foglio di excel, prima di arrivare alla fine (End Sub), spesso, cambiano valore o subiscono delle variazioni.

Per visualizzare il valore corrente delle variabili, è sufficiente avvicinare il mouse al loro nome.

Annotatelo ad ogni valorizzazione per verificane i cambiamenti e capirne i criteri di impostazione ad ogni variazione di valore, o verificalo di volta in volta sul foglio di excel per i cambiamenti sul foglio.

In un modulo è più semplice, in un evento è spesso utile utilizzare un punto di interruzione, che comunque puoi utilizzare anche in un modulo.

Se non sai come impostarlo zio Google ti inonderà di esempi......


Ribadisco quanto in post #13!!!


ciao
Frank

Ciao Tanimon ho capito la macro fino all'80 per cento



For i = 1 To 6
Copia ciascuna delle 6 righe
Set wkb1 = ThisWorkbook
Set wks1 = wkb1.Sheets("Foglio2")
Set wks2 = wkb1.Sheets("Foglio4")
Copia le ciascune righe dal foglio2 al foglio 4
For c = 1 To 6
Da colonna A a colonna F
Non ho capito il copia speciale trasponi
Fammi la differrenza fra incollare in verticale e in orrizzontale
non è una questione di codici chiavi in mano ho già provato a fare ricerche,se dovessi incollare il tuo codice in verticale ho questo errore io allego la foto e voglio solo dirvi che se voi Guru risolvete
in 10 secondi rispetto a me che devo stare li 2 giorni dopo un pò chiedo perchè non riesco proprio. Complimenti a voi A presto Matteo

matteo,
io non sono laureato,

ma nel codice della macro di cui alleghi la foto,

non vedo nessun Copy (copia), nessun incolla (Paste)e nessun Trasponi (transpose)

non è questione di quanto tempo ci metti tu o un altro, è questione
di leggere e capire quello che si legge.

e se non si conosce quello che si legge, cercare di capirlo a piccoli pezzi documentandosi.

come quando se passato dalle stanghe ai numeri.....


la macro,

legge
la cella

e la scrive in una cella di un altro foglio, o meglio,

"scrivi questa cella" = a "quest'altra cella" concatenata "con questa"

ma mi hai portato allo sfinimento....

tanimon, 08/11/2020 19:02:

---

ciao a tutti,
ciao Matteo,




Cosa ne pensi di provare a fare qualcosa di semplice in autonomia?


prova ad eseguire questi passaggi,

1 creati una copia del file originale e lavora sulla copia,
2 utilizza il registratore di macro ed esegui i passaggi che hai
richiesto, con l'Incolla Speciale > Trasponi, nel Foglio4
3 termina la registrazione della macro
4 salva il file copia, chiudilo e riaprilo
5 riporta alla situazione precedente i dati del Foglio4
6 lancia la macro registrata e guarda il risultato

7 edita eventualemente la macro, studiandoci un pò

8 dopo e solo dopo a avere eseguito tutti i punti fino al 7°,
allega il file copia e mi raccomando... SENZA PASSWORD!!!

Ma sono certo che se ti applichi un pò.... e neanche tanto....,
non dovrai eseguire il punto 8.

Fatto per la "G" aggiustando i riferimenti, il procedimento sarà uguale per la colonna "H".

Ciao

Frank

---

Ciao Frank passo2 io ti ho portato allo sfinimento però se bravo a farmi confondere....

ti ho dato quel suggerimento prima di visionare il tuo secondo allegato.

il primo dichiaratamente non l'ho neanche scaricato.
visionato il secondo, ho CAMBIATO strategia.

Frank



questo lo trovi facilmento in Internet::

Non c’è crescita personale senza cambiamento, eppure cambiare è una delle cose che ci riesce più difficili.

cambiamento

“Abbiamo sempre due scelte nella vita: accettarla così com’è o accettare la responsabilità del cambiamento.”

Denis Waitley.

Tra le frasi sul cambiamento quella di Waitley è da sempre una delle mie preferite.


La stragrande maggioranza delle persone aspetta infatti che la fata turchina compaia magicamente nella propria vita,
li prenda per la manina e li accompagni saltellando nella Valle dei sogni fantastici.

Ma la realtà è decisamente diversa.

Solo nel momento in cui ci assumiamo il 100% della responsabilità del cambiamento,
la nostra vita inizia davvero a cambiare.


Assumersi la responsabilità del proprio cambiamento è il primo passo fondamentale.

Se però ti limiti ad una “dichiarazione d’intenti”, ad una promessa scritta sull’acqua......

Ok Frank ,ti ringrazio [QUOTE:138254853=tanimon, 14/11/2020


la macro,

legge
la cella

e la scrive in una cella di un altro foglio, o meglio,

"scrivi questa cella" = a "quest'altra cella" concatenata "con questa"

ma mi hai portato allo sfinimento....

ciao Matteo,

ero certo che ce l'avresti fatta.

e che ti mancava solo qualcuno che ti "spronasse" a "fare un pò di fatica".


Ora sta a te non dimenticarlo....


E potrai farlo anche per i progetti futuri.....,  e tutti i codici che troverai in rete.....,   e tutti i codici che vorrai scrivere tu.....,

Ciao
Frank

tanimon, 14/11/2020 18:50:

---

ciao Matteo,

ero certo che ce l'avresti fatta.

e che ti mancava solo qualcuno che ti "spronasse" a "fare un pò di fatica".


Ora sta a te non dimenticarlo....


E potrai farlo anche per i progetti futuri.....,  e tutti i codici che troverai in rete.....,   e tutti i codici che vorrai scrivere tu.....,

Ciao
Frank

---

Buona Domenica Frank,se non me lo dicevi per quanto riguarda la funzione concatena non ci sarei mai arrivato da solo.
Per quanto riguarda l'altro codice ho fatto molta fatica e ci sono arrivato grazie ai tuoi consigli lo allego sotto con la 2 foto
ma non è professionale.Volevo dirti che ho per 24 righe questa istruzione For i=1 to 24 .Al posto di Range (A1:A14000). Select
c è la possibilità di cambiare l'istruzione per far calcolare ad excel di selezionare l'ultima cella scritta nella colonna A.Se al
posto di For i=1 to 24 dovrei cambiare For i=1 to 934 considerando il compilatore (scritto con 6 numeri o lettere) non avrei 
la selezione degli ultimi (15 numeri o lettere) ripeto ho risolto ma voglio imparare una cosa in più. 

ciao a tutti,


lo ammetto, su questo

tanimon, 14/11/2020 18:50:

---

ciao Matteo,
Ora sta a te non dimenticarlo....

---

mi sono illuso.....



ma su questo no,

QUESTO POST E' CHIUSO, FINITO, CESTINATO, ARCHIVIATO.....

traduzione:
MATTEO, ARRANGIATI!!!


Frank

Ciao Frank,hai ragione ho sbagliato ,apro a breve una nuova discussione sull'altro argomento spero che partecipi .A presto Matteo

Ciao Frank, buongiorno Forum , Le celle col triangolo verde sono il risultato di un esporta di un altro applicativo ,
ho forzato con l'istruzione Worksheets("Foglio4").Rows(1).Application.ErrorCheckingOptions.NumberAsText = False,
perchè ho ancora i numeri formattati come Testo come faccio ad ignorare questo errore con Vba direttamente.Buon Sabato Matteo