
Sub Inserisci_numeri()
Dim cel As Range
For Each cel In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
If LCase(cel) = "verdi" Then
cel.Offset(0, 14) = 50
ElseIf LCase(cel) = "rossi" Then
cel.Offset(0, 14) = 67
ElseIf LCase(cel) = "colucci" Then
cel.Offset(0, 14) = 25
Else
cel.Offset(0, 14) = 2
End If
Next
End Sub |
