nenache con questo codice funziona, se ci sono delle celle vuote addirittura le lascia vuote senza modificarle !
Quote:
For i = 2 To 2189
Select Case Cells(i, 8).Value
Case "Basildon"
Cells(i, 21).Value = "United Kingdom"
Case "Carraro"
Cells(i, 21).Value = "France"
End Select
Next i
End Sub
|