Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EXCEL - Macro]Riportare dati da un foglio ad un altro

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[EXCEL - Macro]Riportare dati da un foglio ad un altro

Postdi Pluz » 12/07/12 10:01

Salve avrei bisogno di una macro che sia in grado di copiare alcuni valori da un foglio ad un altro in una determinata posizione e solo in caso di alcune condizioni.

La mia situazione è questa:
Foglio 1
Nome.........Identificativo......Gen-2012.....Feb-2012.....Mar-2012..........etc..
Doblò..........xx 111 yy...........1500..........2500..........3500
Jumper........xx 222 yy...........2500..........3500..........4500
Van............xx 333 yy...........3000..........4500..........6000
....

Foglio 2
Nome..........Identificativo...........Ultimo mese
.............................................mar-2012
Doblò............xx 111 yy..............."val foglio 1"
Jumper..........xx 222 yy..............."val foglio 1"
Van..............xx 333 yy..............."val foglio 1"

In pratica io vorrei che il mio operatore compilasse il foglio1 con il valore dei Km dei mezzi aziendali a fine mese e in automatico la macro me li riporta nella colonna del foglio2 dove mi interessa solo l'ultimo mese per fare i calcoli del tagliando.
La macro dovrebbe riconoscere la targa in modo da inserire i dati nella riga corretta e poi andare a prendere solo i dati il cui MESE corrisponde alla data inserita nel foglio 2.
Ovviamente i fogli sono più complessi, se però mi date qualche dritta sulla macro penso poi di poterla aggiustare in autonomia in base ai miei riferimenti.

Grazie mille
Pluz
Newbie
 
Post: 3
Iscritto il: 12/07/12 09:47

Sponsor
 

Re: [EXCEL - Macro]Riportare dati da un foglio ad un altro

Postdi patel » 12/07/12 10:18

non c'è bisogno di macro, basta la funzione Cerca.vert http://office.microsoft.com/it-it/excel ... 09335.aspx
patel
Utente Senior
 
Post: 128
Iscritto il: 24/04/12 16:03

Re: [EXCEL - Macro]Riportare dati da un foglio ad un altro

Postdi Pluz » 12/07/12 10:26

patel ha scritto:non c'è bisogno di macro, basta la funzione Cerca.vert http://office.microsoft.com/it-it/excel ... 09335.aspx


Purtroppo no, il cerca.vert è perfetto per legare i valori dei Km alla riga corretta in funzione della targa. Poi però come riesci a riportare i dati della colonna del mese giusto?

Probabilmente mi sono spiegato male io. L'operatore compila il foglio 1 ogni mese. Poi cambia il valore della data nel Foglio 2 sotto la colonna "Ultimo mese" e cliccando sulla macro i dati esistenti vengono sostituiti da quelli appena inseriti nel foglio 1. Tutto questo per evitare errori e di ricopiare 2 volte gli stessi numeri.
Per usare il cerca.vert dovrei cambiare l'indice ogni volta.

Ciao
Pluz
Newbie
 
Post: 3
Iscritto il: 12/07/12 09:47

Re: [EXCEL - Macro]Riportare dati da un foglio ad un altro

Postdi Flash30005 » 12/07/12 12:47

Ciao Pluz e benvenuto nel Forum

Ho considerato la prima riga come testata e che il nome mese venga inserito man mano che il dato si sia consolidato
e le colonne utilizzate siano:
per il nome la "A", per la targa la colonna "B", la colonna "C" per Gennaio, "D" Febbraio,etc
se così, questa macro dovrebbe risolvere il quesito
Codice: Seleziona tutto
Sub CopiaValori()
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
UC1 = Ws1.Cells(1, Columns.Count).End(xlToLeft).Column
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
For RR2 = 2 To UR2
    Targa = Ws2.Range("B" & RR2).Value
    For RR1 = 2 To UR1
        If Ws1.Range("B" & RR1).Value = Targa Then
            Ws2.Range("C" & RR2).Value = Ws1.Cells(RR1, UC1).Value
            GoTo SaltaRR2
        End If
    Next RR1
SaltaRR2:
Next RR2
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL - Macro]Riportare dati da un foglio ad un altro":


Chi c’è in linea

Visitano il forum: patel e 4 ospiti