Quindi ogni file e’ una commessa, giusto?
Propongo questo:
1) Su file delle commesse (o meglio: sul modello delle commesse), in un foglio libero crei una riga di sintesi, con formule che attingono le informazioni dal foglio analitico (es: =Analitico!A1); dai a questo foglio il nome FoglioSint
Poi apri il vba editor con Alt-F11, inserisci un modulo vuoto di codice con Inserisci ->Modulo, e nel frame di dx del modulo incolli la seguente macro:
- Codice: Seleziona tutto
Sub usciof1()
CelleSint = "A1:G1" '<<<<<<---- Modificare
Sheets("FoglioSint").Select
Range(CelleSint).Copy
FileComm = ActiveWorkbook.Name
Windows("Indice.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = FileComm
Selection.Offset(0, 1).Select
'ActiveCell.Value = Now
'Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Windows(FileComm).Activate
End Sub
MODIFICA subito la definizione di CelleSint affinche’ l’ area sia quella che tu hai creato su FoglioSint.
INOLTRE, se vuoi inserire sull’ indice, in colonna B, la data/ora dell’ operazione allora elimina l’ apostrofo sulle 2 istruzioni nel corpo macro.
Torni sul file excel e assegni a questa macro un tasto di scelta rapida: Strumenti ->Macro ->Macro; selezioni usciof1 nell’ elenco, premi Opzioni, e nella casella “Tasto di scelta rapida” inserisci I (I come Indice, maiuscolo); completa con Ok e chiudi con la X.
2) A parte ti crei un file che chiami Indice.xls, e nel suo Foglio1, in riga 1, da B1 in poi (o da C1, se decidi di mettere anche data/ora) metti le intestazioni di colonna, nello stesso ordine in cui sono riportate sul foglio FoglioSint, in A1 invece scrivi “Nome File”.
Poi inseriamo la seguente formattazione condizionata in colonna A:
-seleziona tutta la colonna A
-Formato ->Formattazione condizionale; nella finestra che si apre scegli “la formula e’ ” e nello spazio accanto scrivi la seguente formula:
- Codice: Seleziona tutto
=CONTA.SE(A:A;A1)>1
Poi premi “Formato”, scegli il tab Motivo, e selezioni il colore rosso o arancione; confermi con Ok e chiudi con Ok.
Fatto.
Come si usa:
Apri il file Indice.
Sul modello inserisci i tuoi dati e Salvi con il nuovo nome file. Premi su tastiera Contr-Maiusc-I e i dati vengono accodati sul file Indice.
La formattazione condizionale che abbiamo messo su colonna A di Indice serve per evidenziare eventuali doppi inserimenti; le righe inserite per errore possono essere cancellate.
Le righe vengono accodate una dopo l’ altra; eventualmente si puo’ inserire un Ordinamento se si vogliono in un ordine particolare.
Se vuoi rimanere sul foglio Indice al completamento della macro, basta mettere un “apostrofo (') prima dell’ istruzione Windows(FileComm).Activate in fondo alla macro.
Puo’ andare cosi’?
Ciao,
Registrazione
