Italian/Italiano: Copiare contenuti da un file se si verifica condizione sul file destinaz

[pom73]

Buongiorno. Premetto che sono all'inizio con VBA. E girando un po per il web ho trovato una macro VBA che fa al caso mio...l'ho modificata secondo i miei parametri e più o meno sono riuscito quasi ad ottenere cio' che voglio.
Il mio problema è questo:
Ho 2 fogli excel. Vorrei copiare il contenuto di tutte le celle J (è un valore numerico) del file DAK_movimenti iva acquisti.xlsx dal foglio chiamato FR e riportarli nel file, nella cella M, ELABORATOfattur_notecredito.xlsx nel foglio chiamato Foglio1 a condizione che in questo ultimo file(quello di destinazione in pratica), per la riga corrispondente, nella colonna K ci sia il valore RD01...e ripetere la stessa operazioni per le righe successive logicamente non andando a toccare quelle che non soddisfano la condizione.
Purtroppo ottengo un risultato parziale in quanto mi riporta solo la prima riga che soddisfa la condizione le altre non le legge...non capisco dove sbaglio
Allego il codice VBA
Grazie

Please Login or Register  to view this content.

[pom73]

For anyone that wants help me i translate in english

Good morning. I'm beginner with VBA. And turning a bit on the web I found a VBA macro that is just my case ... I modified it according to my parameters and almost or not I managed to get what I want.
My problem is this:
I have 2 sheets of excel. I would like to copy the contents of all the cells J (is a numeric value) of the DAK_movimenti iva purchases.xlsx file from the sheet named FR and return them to the file in cell M, ELABORATOfattur_notecredito.xlsx in the sheet called Sheet1 provided that in this last file The target line in practice), in the column K k is the value RD01 ... and repeat the same operation for the next lines logically not going to touch those that do not meet the condition.
Unfortunately I get a partial result as it only contains the first line that meets the condition the others do not read ... I do not understand where I'm wrong
I attach the VBA code
Thank you

Please Login or Register  to view this content.

[scottiex]

Code doesn't make much sense to me... it seems broken in various different ways.
But an example file mgiht help

But maybe this is closer to what you want.

Please Login or Register  to view this content.

[pom73]

Thank for your reply Scottiex
i send you 2 samples files
Watch out but when i copied the code the correct value on the "if" is not
If UCase(Workbooks(nfile).Worksheets(nSheet).Range("K" & RRA)) = "KD01" Then
but it's
If UCase(Workbooks(nfile).Worksheets(nSheet).Range("K" & RRA)) = "RD01" Then

[scottiex]

Maybe

Please Login or Register  to view this content.

[pom73]

thank you very much Scottiex....it works very good!!!!
You Rock!