Condividi:        

Macro Modifica Colonna Vincente

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro Modifica Colonna Vincente

Postdi Francesco6918 » 29/08/21 17:11

Una Buona sera a tutti vorrei modificare una macro importa colonna vincente Super Enalotto dal sito : (https://www.lottologia.com/superenalott ... s-archive) ma non so come fare, questa macro è stata creata da Anthony47 che ringrazio lo scorso anno e funzionava, l intervallo dove vanno inseriti i numeri da importare è S8:Y8 compreso il numero jolly, mentre ora la macro salta di una colonna il numero jolly non viene importato, comunque vi allego il file con la macro.

Grazie Saluti

http://www.filedropper.com/colonnavincente
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Sponsor
 

Re: Macro Modifica Colonna Vincente

Postdi Anthony47 » 29/08/21 21:43

Dovrebbe essere sufficiente aggiungere questa riga in questa posizione:
Codice: Seleziona tutto
myStr = Replace(myDR.getElementsByTagName("td")(1).innertext, Chr(13), "", , , vbTextCompare)
myStr = Replace(myStr, Chr(10), "", , , vbTextCompare)            '<<<< AGGIUNGERE
For I = 1 To Len(myStr) / 2

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro Modifica Colonna Vincente

Postdi Francesco6918 » 30/08/21 00:17

Ciao Anthony47 la tua modifica funziona perfettamente una ultima modifica l importazione della colonna vincente 10 E Lotto sempre creata da te primi 10 numeri nel intervallo L8:U8 l importa perfettamente mentre gli ultimi 10 numeri a partire dal intervallo V8:AE8 sono errati come se vengono suddivisi e possibile modificarla, allego il file.

Grazie



http://www.filedropper.com/colonna10elotto
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macro Modifica Colonna Vincente

Postdi Anthony47 » 30/08/21 10:49

Vedo che hai gia' aggiunto la neutralizzazione del chr(10); aggiungi ancora quest'altra riga:
Codice: Seleziona tutto
    myStr = Replace(myDR.getElementsByTagName("td")(1).innertext, Chr(13), "", , , vbTextCompare)
    myStr = Replace(myStr, Chr(10), "", , , vbTextCompare)
    myStr = Replace(myStr, Chr(32), "", , , vbTextCompare)            '+++ ULTERIORE AGGIUNTA
    For I = 1 To Len(myStr) / 2

Ciao

Edit:
Ho corretto nella prima Replace
Chr(113)
(errato) in Chr(13)
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro Modifica Colonna Vincente

Postdi Francesco6918 » 30/08/21 11:57

Ciao Anthony47 perfetto; ho aggiunto questa riga myStr = Replace(myStr, Chr(32), "", , , vbTextCompare) mentre questo valore Chr(113) e' Chr(13) altrimenti non funziona. Risolto.

Grazie
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macro Modifica Colonna Vincente

Postdi Anthony47 » 30/08/21 13:32

Non so da dove e' venuto quel Chr(113) (nel primo Replace), visto che ho copiato il codice dalla mia macro, e hai intuito bene che deve invece essere Chr(13).
Ho corretto anche la macro nel post precedente

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro Modifica Colonna Vincente

Postdi Francesco6918 » 30/08/21 13:49

Ciao Anthony47 tranquillo tutto ok succede.

Grazie Della soluzione
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20


Torna a Applicazioni Office Windows


Topic correlati a "Macro Modifica Colonna Vincente":


Chi c’è in linea

Visitano il forum: Nessuno e 56 ospiti