Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Crare elenco ripeilogativo e duplicare fogli

Ultimo Aggiornamento: 15/02/2017 20:04
Post: 1
Registrato il: 13/02/2017
Città: TARANTO
Età: 68
Utente Junior
2010
OFFLINE
14/02/2017 17:58

Salve a tutti
Dopo aver inserito i dati in una scheda, ho l'esigenza di riportare alcuni di questi dati in un foglio di riepilogo.
E fin qui pare ci sia riuscito.
Successivamente devo duplicare la scheda originale, inserire nuovi dati e ripetere l'operazione nel foglio di riepilogo.
Alla fine dovrei visualizzare tutte le schede, denominate in modo consecutivo, e tutti i dati nel riepilogo.
E qui mi perdo!
Posso avere il vostro aiuto?
Grazie anticipatamente.
Allego il modulo che mi consente di inserire i dati nel riepilogo, ma mi segnala errore con le ultime due righe di codice.


Sub RIEPILOGO()
'
' RIEPILOGO Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+R
'
Sheets("RIEPILOGO").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("5:6").Select
Selection.RowHeight = 15
Sheets("19_01").Select
Range("H2:I2").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "[$-it-IT]d-mmm-yy;@"
Sheets("19_01").Select
Range("E4").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("C5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Sheets("19_01").Select
Range("F19").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "h:mm;@"
Sheets("19_01").Select
Range("H19").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("19_01").Select
Range("I22").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Sheets("19_01").Select
Range("F17").Select
Selection.Copy
Sheets("RIEPILOGO").Select
Range("F5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "0.00"
Rows("6:6").Select
Selection.Delete Shift:=xlUp
Range("A5").Select
ActiveCell.FormulaR1C1 = "=R[1]C+1"
Range("A5").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Sheets("19_01").Select
ActiveSheet.Copy After:=Sheets(Sheets.Count)


End Sub
Post: 5.062
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
15/02/2017 16:52

Riepilogo
Ciao una macro non risolve inserisci un file d'esempio dei dati e come vuoi che diventino, togli dati sensibili.

Ciao By Sal [SM=x423051]

se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 1
Registrato il: 13/02/2017
Città: TARANTO
Età: 68
Utente Junior
2010
OFFLINE
15/02/2017 20:04

Scusami per errore ho caricato due volte il file
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Calcolo (3 messaggi, agg.: 07/03/2017 08:38)
Elenco (4 messaggi, agg.: 08/11/2017 16:43)
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 11:49. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com