1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
For i = 1 To 100
If Not IsError(Cells(i + 1, 56)) And Cells(i + 1, 56) <> "" Then
Cells(i + 1, ColDestination) = Cells(i + 1, 56)
Else
If Not IsError(Cells(i + 1, 57)) And Cells(i + 1, 57) <> "" Then
Cells(i + 1, ColDestination) = Cells(i + 1, 57)
Else
If Not IsError(Cells(i + 1, 58)) And Cells(i + 1, 58) <> "" Then
Cells(i + 1, ColDestination) = Cells(i + 1, 58)
Else
If Not IsError(Cells(i + 1, 55)) And Cells(i + 1, 55) <> "" Then
Cells(i + 1, ColDestination) = Cells(i + 1, 55)
End If
End If
End If
End If
Next i |
Partager