| | Post: 5 | Registrato il: 10/02/2017
| Città: MILANO | Età: 36 | Utente Junior | 2013 | | OFFLINE | |
|
29/05/2017 15:24 | |
BuonGiorno,
mi servirebbe una cosa molto semplice ma non riesco a realizzarla(non ne ho le competenze e magari non è manco cosi semplice.
Ho un foglio excel con due fogli + un terzo foglio con Pivot con riferimento sul foglio 2.
In pratica ho un
FOGLIO 1 / FOGLIO 2 / FOGLIO 3(pivot)
In foglio 2 ho un elenco di dati che arrivano da anni e anni di lavorazioni e di ticket.
Dato che il dato cresce di giorno in giorno a seguito degli scarichi che faccio da portale, vorrei che nel foglio 1 io abbia l'opportunità di incollare i dati(formattati sempre nella stessa maniera) e che vada ad aggiungerli in coda a quelli del foglio 2
Il motivo è quello di non dare l'opportunita' ad altri di modificare il foglio 2 ma esclusivamente di inserire i dati e visualizzarli in elenco per far funzionare la pivot
spero di essermi spiegato bene.
Grazie a chi mi dara' una mano |
|
| | Post: 5.185 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
29/05/2017 15:46 | |
Ciao Un file d'esempio con pochi dati non sensibili.
Ciao By Sal
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 5 | Registrato il: 10/02/2017
| Città: MILANO | Età: 36 | Utente Junior | 2013 | | OFFLINE | |
|
29/05/2017 16:01 | |
by sal, 29/05/2017 15.46:
Ciao Un file d'esempio con pochi dati non sensibili.
Ciao By Sal
Ecco...
Grazie mille! |
| | Post: 6 | Registrato il: 10/02/2017
| Città: MILANO | Età: 36 | Utente Junior | 2013 | | OFFLINE | |
|
31/05/2017 08:39 | |
qualcuno riesce a darmi una mano?
Grazie100000000 |
| | Post: 3.245 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
31/05/2017 12:06 | |
Ciao Francesco
Non so se ho capito bene ma prova questa macro
vb Sub copia()
Dim i As Integer
Dim ur As Long
Dim lr As Long
ur = Sheets("incollo").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ur
lr = Sheets("report generale").Cells(Rows.Count, 5).End(xlUp).Row
Sheets("incollo").Range("a" & i & ":" & "c" & i).Copy Destination:=Sheets("report generale").Cells(lr + 1, 5)
Next i
End Sub
che copia i dati dal foglio "incollo" e li mette sul foglio "report generale) nelle colonne E, F e G.
Alfredo |
|
|