Condividi:        

Lotto selezionare celle per ricopiarle aut.

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

Lotto selezionare celle per ricopiarle aut.

Postdi claud » 10/07/17 12:41

Buongiorno, ho una cartella contenente 12 fogli, 11 contenenti le singole ruote del lotto e una con l'archivio.
In quest'ultima vorrei creare una casella di scelta o quant'altro, nella quale inserire una data a scelta tra quelle del foglio archivio.
fatto questo la macro (credo) dovrebbe scegliermi le precedenti 180 estrazioni (compresa quella della data) trasferendomi i dati di ogni singola ruota in ogni foglio di competenza, nelle celle G2-G181.
spero di non essere stato troppo contorto.
grazie per l'aiuto.

http://www.filedropper.com/scelta180

P.S. i dari attualmente presenti sono serviti per delle prove ma andrebbero sostituiti dall'operazione di cui sopra.

Ho excell 2007
claud
Utente Junior
 
Post: 61
Iscritto il: 03/02/12 16:52

Sponsor
 

Re: Lotto selezionare celle per ricopiarle aut.

Postdi Anthony47 » 10/07/17 15:55

Si, ma nei fogli delle ruote le date (delle estrazioni?) dove sono?
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Lotto selezionare celle per ricopiarle aut.

Postdi claud » 10/07/17 16:34

non le ho messe in quanto essendo variabile la scelta della data di partenza da cui fare la ricerca pensavo di far confusione.. penso se lo ritieni fattibile di utilizzare le celle A/2-A/181 sostituendo i numeri progressivi con le date.
grazie.
claud
Utente Junior
 
Post: 61
Iscritto il: 03/02/12 16:52

Re: Lotto selezionare celle per ricopiarle aut.

Postdi Anthony47 » 12/07/17 02:13

Eh, avevo capito l'opposto di quel che vorresti fare.

Prova con questa macro da inserire in un modul standard del vba:
Codice: Seleziona tutto
Sub popolar()
Dim cRCol As Integer, cR As String, I As Integer
If Not IsDate(ActiveCell.Value) Or ActiveCell = "" Then
    MsgBox ("Selezionare una data Finale valida su foglio archivio")
    Exit Sub
End If
'
For I = 1 To 10
    cRCol = I * 5 - 1
    cR = Cells(2, cRCol)
    With Sheets(cR)
        .Range(.Range("B2"), .Range("F2").End(xlDown)).ClearContents
        If ActiveCell.Row < (3 + 180) Then irow = 4 Else irow = ActiveCell.Row - 179
        Range(Cells(irow, cRCol), Cells(ActiveCell.Row, cRCol + 4)).Copy
        .Range("B2").PasteSpecial Paste:=xlPasteValues
    End With
Next I
Application.CutCopyMode = False
MsgBox ("Teminato...")
End Sub

Operativamente, partendo dal foglio Excel:
-premi Alt-F11 per aprire l'editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame dx del modulo appena creato

Poi torna su Excel e vai su foglio Archivio; seleziona in colonna C la data finale del blocco che si vuole esportare, lancia la macro PoPolar:
-premi Alt-F8
-seleziona PoPolar dall'elenco di macro disponibili
-premi Esegui

Volendo puoi assegnare alla macro un pusante o un tasto di scelta breve, o una icona da inserire nella Barra di Accesso Rapido, in modo da avviarla piu' comodamente.

La macro dovrebbe copiare in ogni foglio un blocco di 180 estrazioni; o tutte quelle disponibili se si sceglie una data finale che non contiene 180 estrazioni.

Il file dovra' essere salvato nel formato .xlsm (macro enabled).

Fai sapere...
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Lotto selezionare celle per ricopiarle aut.

Postdi claud » 12/07/17 17:37

Funzionaaa....grazie 1000
claud
Utente Junior
 
Post: 61
Iscritto il: 03/02/12 16:52


Torna a Applicazioni Office Windows


Topic correlati a "Lotto selezionare celle per ricopiarle aut.":


Chi c’è in linea

Visitano il forum: Nessuno e 29 ospiti