Questa macro serve ad aggiornare l’estrazione nel file ruota che abbiamo costruito in precedenza in questa sezione : http://lottoitaliapronostici.altervista.org/category/fogli-excel/ , questo il listato :
Sub Estrazione()
‘
‘ Estrazione Macro aggiorna archivio
‘
Range(“A8527:HT8527”).Select
Selection.Copy
Range(“A8528”).Select
ActiveSheet.Paste
Rows(“2:2”).Select
Range(“L2”).Activate
Selection.Delete Shift:=xlUp
Rows(“8526:8526”).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Da non dimenticare, se si fa il copia incolla, l’incolonnamento. Ora apriamo il file ruota che abbiamo precedentemente costruito e premiamo contemporaneamente ALT+F11, apparirà la pagina VBA:Si clicca col sinistro del mouse su “moduli” , si inserisce un modulo nuovo e si incolla all’interno il contenuto della macro facendo attenzione ad incolonnare nel modo giusto, come si vede nell’immagine. Ora creiamo il pulsanteSi clicca sulla casella disegno, si clicca sul rettangolo in fondo e si trascina nel fogliosi clicca col destro sul rettangolo e si inserisce il testo ” aggiorna estrazione”e alla fine, sempre cliccando col destro del mouse gli si assegna la macro:Comunque, ora che le spiegazioni sulla costruzione sono finite, sono disponibile ad inviare il file a chi trovasse difficoltà , basta che me lo richiedano direttamente via email :     [email protected]