Moderatori: Anthony47, Flash30005
Workbooks("N3.xls").Worksheets("Archivio").Range("A1").value = _
Workbooks("N3.xls").Worksheets("Archivio").Range("A1").value +1
Workbooks("N3.xls").Worksheets("RP6").Range("D4:Q4").copy Destination:= _
Workbooks("Storico.xls").Worksheets("Lista").Range("D65536").End(XlUp).Offset(1,0)
Workbooks("N3.xls").Worksheets("RP6").Range("D4:Q4").copy
Workbooks("Storico.xls").Worksheets("Lista").Range("D65536").End(XlUp).Offset(1,0).PASTESPECIAL PASTE:=XLPASTEVALUES, _
OPERATION:=XLNONE, SKIPBLANKS:=FALSE, TRANSPOSE:=FALSE Windows("L3.xls").Activate
Worksheets("Archivio").Range("A1").Value = Worksheets("Archivio").Range("A1").Value + 1
Calculate
Worksheets("RP6").Range("D6:Q6").Copy
Workbooks("Storico.xls").Worksheets("Lista").Range("D65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Sheets("RP1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("cRP1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("RP5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("cRP5").Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("RP6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("cRP6").Select
Selection.PasteSpecial Paste:=xlPasteValues
Windows("STORICO.xls").ActivateTorna a Applicazioni Office Windows
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Visitano il forum: Raffaele53 e 20 ospiti