1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Worksheets("List S").Activate
Range("A1").Select
a2 = 4
Do While Range("D" & a2).Value <> "0"
a2 = a2 + 1
Loop
a2 = a2 - 1
MsgBox (a2)
For i = 4 To a2
If Application.VLookup(Worksheets("List S").Range("A" & i), _
Worksheets("N0 List").Range("A1:C1000"), 3, False) = Application.VLookup( _
Worksheets("List S").Range("B" & i), Worksheets("N0 List").Range("B1:C1000"), 2, False) Then
MsgBox ("ok")
If Application.VLookup(Worksheets("List S").Range("A4"), Worksheets("N0 List").Range("A1:h100"), 8, False) = "Floats" Then
Worksheets("List S").Range("H" & i).Value = "Floats"
Else: Worksheets("List S").Range("H" & i).Value = "FIX"
End If
End If
Next |
Partager