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

[Pluz]

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

[patel]

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

[Pluz]

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

[Flash30005]

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