| | Post: 4 | Registrato il: 02/11/2016
| Città: ANCONA | Età: 56 | Utente Junior | 2003 | | OFFLINE | |
|
09/03/2017 09:45 | |
Innanzi tutto buon giorno a tutti.
Utilizzo Excel 2003, vengo al mio problema:
- semplificando ho un foglio MASCHI e un foglio FEMMINE
- nei 2 fogli inserisco giornalmente dei nomi in elenco, a secondo se trattasi di uomini o donne;
- ho necessità di avere un terzo foglio sempre aggiornato che mi riporta sempre in elenco, tutti i nomi maschili e femminili presi dai 2 fogli origine, esempio:
Foglio MASCHI
A
1 Luca
2 Marco
3 Andrea
4 Luigi
5 Mario
6
Foglio FEMMINE
A
1 Luisa
2 Michela
3 Giovanna
4 Chiara
Foglio RIEPILOGATIVO
A
1 Luca
2 Luisa
3 Marco
4 Michela
5 Andrea
6 Giovanna
7 Luigi
8 Mario
9 Chiara
10
Logicamente l'elenco del foglio di RIEPILOGO deve rispettare cronologicamente l'ordine di inserimento dei nomi nei fogli origine, quindi se immetto ad esempio il nome Chiara in FEMMINE!A4 automaticamente si deve accodare in RIEPILOGATIVO!A9 e così di seguito...
Ho provato con CONSOLIDA DATI ma non penso sia la strada giusta e non posso usare VBA sul sistema per questioni inerenti la politica di sicurezza aziendale.
Spero di essere stato abbastanza chiaro e vi ringrazio sin da ora per le vostre risposte.
Giuseppe |
|
| | Post: 2.902 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
09/03/2017 10:52 | |
Ciao Giuseppe
Quello che chiedi si può fare con il VBA
La macro che vedi sotto (inserita sia sul foglio "Maschi" che "Femmine" fa si che ogni volta che vai ad inserire un nome in colonna A questo venga riportato sul foglio "Riepilogo" sulla prima cella disponibile.
Non so tu che conoscenze abbai di VBA quindi non so fino a che punto riesci a comprendere il codice per cui ti allego file di esempio
vb Private Sub Worksheet_Change(ByVal Target As Range)
Dim ur As Long
Dim lr As Long
ur = Cells(Rows.Count, 1).End(xlUp).Row
lr = Sheets("Riepilogo").Cells(Rows.Count, 1).End(xlUp).Row
If Not Intersect(Target, Range("a2:a" & ur)) Is Nothing Then
Sheets("Riepilogo").Cells(lr + 1, 1).Value = Target.Value
End If
End Sub
Fai sapere se era questo quello che volevi.
Alfredo |
| | Post: 4 | Registrato il: 02/11/2016
| Città: ANCONA | Età: 56 | Utente Junior | 2003 | | OFFLINE | |
|
09/03/2017 12:32 | |
Grazie Alfredo, visto che c'è solo questa possibilità proverò ad usare il tuo VBA di esempio, 1000 grazie
Giuseppe
|
| | Post: 2.904 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
09/03/2017 12:34 | |
Non so se c'è solo questa possibilità probabilmente (ma non ne sono certo) si potrà fare anche con le formule ma io con queste sono una capra
Alfredo |
| | Post: 0 | Registrato il: 09/03/2017
| Utente Junior | | OFFLINE | |
|
09/03/2017 12:42 | |
Appena entrato e trovo subito quello che cercavo, vi ringrazio |
| | Post: 5 | Registrato il: 02/11/2016
| Città: ANCONA | Età: 56 | Utente Junior | 2003 | | OFFLINE | |
|
09/03/2017 13:34 | |
Ok Alfredo ho provato il tuo file e funziona perfettamente, c'è solo un piccolo difetto.
Mi sono accorto che se sbaglio ad inserire un nome nei fogli origine e poi lo cancello non viene cancellato automaticamente sul foglio di riepilogo e se lo sovrascrivo, sempre sul foglio origine, si accoda nel foglio riepilogo e non torna nella libera. Ora, trattandosi di un file di contabilità ciò mi potrebbe creare qualche problema a fine mese perchè potrei ritrovarm doppie voci in riepilogo, contabilizzate 2 volte.
Hai qualche altra dritta per evitare l'inconveniente?
|
| | Post: 2.905 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
09/03/2017 13:51 | |
Ciao Giuseppe
Un'ipotesi per poter evitare errori di inserimento potrebbe essere una Convalida Dati che ti consente di inserire nelle celle solo i valori corretti; conosci tale strumento?
In alternativa dovresti allegare un tuo file di esempio che sia strutturalmente uguale all'originale ma con dati non sensibili in modo che si possa ragionare su quello.
Alfredo |
| | Post: 6 | Registrato il: 02/11/2016
| Città: ANCONA | Età: 56 | Utente Junior | 2003 | | OFFLINE | |
|
09/03/2017 14:05 | |
Si grazie Alfredo ottima idea, ora mi metto giù a studiarla, conosco bene la convalida dati
Grazie ancora. |
|
|