Condividi:        

Aiuto Formula Archivio Lotto In Verticale

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

Re: Aiuto Formula Archivio Lotto In Verticale

Postdi Anthony47 » 30/11/12 01:59

Cambia tutti i "*11" in "*10" (ce ne sono 4, mi pare).

Poi cancella l' area creata precedentemente e riesegui la macro.

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

Sponsor
 

Re: Aiuto Formula Archivio Lotto In Verticale

Postdi Flash30005 » 30/11/12 02:05

Modifico la macro di Anthony per eliminare la riga vuota tra un'estrazione e l'altra alla luce di questa esigenza
Codice: Seleziona tutto
Sub trasp()
DestA1 = "C5"   '<<L' origine dove verra' creata la nuova tabella
Dim myVArr, I As Long, J As Long, K As Long, II As Long, JJ As Long
[A1] = Timer
Application.ScreenUpdating = False
LastJ = Cells(Rows.Count, "J").End(xlUp).Row
myVArr = Range("K4:BI4").Resize(LastJ - 3).Value
For I = LBound(myVArr, 1) To UBound(myVArr, 1)
    For J = 1 To 10
    Range(DestA1).Offset((I - 1) * 10, 5).Resize(10, 1) = myVArr(I, 1)
        For K = 1 To 5
            Range(DestA1).Offset((I - 1) * 10 + (J - 1), K - 1) = myVArr(I, (J - 1) * 5 + K + 1)
        Next K
    Next J
Next I
'
Application.ScreenUpdating = True
myRuote = Array("Bari", "Cagliari", "Firenze", "Genova", "Milano", "Napoli", "Palermo", "Roma", "Torino", "Venezia")
J = 0
Do
    J = J + 1
    If Range(DestA1).Offset((J - 1) * 10, 0) = "" Then Exit Do
    Range(DestA1).Offset((J - 1) * 10, -1).Resize(10, 1) = Application.WorksheetFunction.Transpose(myRuote)
Loop

[a2] = Timer
End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Aiuto Formula Archivio Lotto In Verticale

Postdi Francesco6918 » 30/11/12 02:08

Grazie Flash e a Anthony siete gentilissimi

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

Re: Aiuto Formula Archivio Lotto In Verticale

Postdi Flash30005 » 30/11/12 02:17

Visto che sei una persona precisa
devi fare attenzione:
l'ultimo numero estratto della ruota di bari in questa estrazione
Estrazione del 25.01.1947
Bari 53 86 76 06 40

è come vedi 40 non 49 come riportano alcuni archivi

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Aiuto Formula Archivio Lotto In Verticale

Postdi Francesco6918 » 30/11/12 13:47

Ciao Flash o applicato la tua macro e funziona bene anche quella di Anthony funziona solo che le righe non erano continue comunque mi diceva di correggere alcune cose e tutto ok,riguardo l estrazione del 25/01/1947 sono andato a scaricare sul sito della lottomatica o scaricato l archivio confrontato con la mia tale estrazione sono uguali riporta il numero 40 dunque non so chi a raggione tra noi due, aspetto una tua risposta.


Distinti Saluti

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

Re: Aiuto Formula Archivio Lotto In Verticale

Postdi Flash30005 » 30/11/12 15:04

Infatti mi sembra di aver detto che è corretto il 40 e non 49
il tuo archivio è corretto perché riporta 40 (come i miei) ;)

Quella postata da me è la macro di Anthony modificata per non avere la riga vuota di separazione tra un'estrazione e l'altra

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Aiuto Formula Archivio Lotto In Verticale":

aiuto windows 10
Autore: mod360
Forum: Software Windows
Risposte: 1

Chi c’è in linea

Visitano il forum: Nessuno e 43 ospiti