| R E V I S I O N E D E L L A D I S C U S S I O N E |
| Pier Giuseppe Moscardi |
Posted - 09 aprile 2016 : 16:06:35
Questa macro serve ad aggiornare l’estrazione nel file ruota, 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:
Continua : http://www.nonsololotto.com/topic.asp?TOPIC_ID=39389 |
|
|
