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 

Sub CopiaDatiSeOr()
Dim nomeFile As String
percorso = Application.ActiveWorkbook.Path
nfile = "\" & "DAK_movimenti iva acquisti.xlsx"
        Application.Workbooks.Open percorso & nfile
        URA = Workbooks("DAK_movimenti iva acquisti.xlsx").Worksheets("FR").Range("JRows.Count).End(Rows.Count).End(xlUp).Row
        For RRA = 1 To URA
            If UCase(Workbooks("ELABORATOfattur_notecredito.xlsx").Worksheets("Foglio1").Range("KD01" Then
                URB = Workbooks("ELABORATOfattur_notecredito.xlsx").Worksheets("Foglio1").Range("MRows.Count).End(Rows.Count).End(xlUp).Row + 1
                Workbooks("DAK_movimenti iva acquisti.xlsx").Worksheets("FR").Range("Jation:=Workbooks("ELABORATOfattur_notecredito.xlsx").Worksheets("Foglio1").Range("M End If
        Next RRA
    Workbooks("DAK_movimenti iva acquisti.xlsx").Closechanges:=False
End Sub