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

Creare un foglio con elenco con dati provenienti da altri 2 fogli

Ultimo Aggiornamento: 09/03/2017 14:05
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

[SM=x423017]
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 [SM=g27828]

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.
Vota: 15MediaObject5,0018 1
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]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 21:35. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com