ciao mi potete controllare la funziona qui sotto se corretta.
il problema è che mi riporta nel foglio Rima dati che non corrispondono alla condizione if, in pratica mi riporta una copia del dato che corrisponde alla condizione if fino alla cella A6
Sub cerca()
' cerca Macro
' Macro registrata il 03/08/2007
Sheets("rima").Select
For j = 2 To 6 ' inserire riga inizio controllo e fine
codice = Range("A" & j).Value
Sheets("ordini").Select
For i = 2 To 10
cod = Range("A" & i).Value
CONTR = Range("E" & i) ' colonna controllo se uguale a 0 mi scrive i dati nel foglio Rima
If cod = codice And CONTR = 0 Then
qta = Range("B" & i).Value
consegna = Range("C" & i).Value
End If
Next i
' scrivere i dati nelle colonne B e C
Sheets("rima").Select
Range("B" & j).Value = qta
Range("C" & j).Value = consegna
Next j
End Sub