Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Sub findFlights()
- Dim arrayA(1 To 150) As String, arrayB(1 To 150) As String, arrayC(1 To 150) As String
- Dim cities As Integer, i As Integer, cell As Range, j As Integer, columnH As String
- 'On Error Resume Next
- i = 1
- j = 0
- With wsData.Range("A1")
- cities = Range(.Offset(1, 0), .End(xlDown)).Rows.Count
- For Each cell In Range("origin")
- For i = 1 To cities
- arrayA(i) = .Offset(i, 0).Value
- arrayB(i) = .Offset(i, 1).Value
- arrayC(i) = .Offset(i, 2).Value
- If arrayA(i) = cell Then
- If arrayB(i) = "Los Angeles" Then
- Range("H2").Offset(j, 0) = arrayA(i)
- Range("I2").Offset(j, 0) = arrayB(i)
- Range("J2").Offset(j, 0) = arrayC(i)
- j = j + 1
- End If
- If arrayB(i) = "San Francisco" Then
- Range("H2").Offset(j, 0) = arrayA(i)
- Range("I2").Offset(j, 0) = arrayB(i)
- Range("J2").Offset(j, 0) = arrayC(i)
- j = j + 1
- End If
- If arrayB(i) = "Tucson" Then
- Range("H2").Offset(j, 0) = arrayA(i)
- Range("I2").Offset(j, 0) = arrayB(i)
- Range("J2").Offset(j, 0) = arrayC(i)
- j = j + 1
- End If
- If arrayB(i) = "New York" Then
- Range("H2").Offset(j, 0) = arrayA(i)
- Range("I2").Offset(j, 0) = arrayB(i)
- Range("J2").Offset(j, 0) = arrayC(i)
- j = j + 1
- End If
- End If
- Next
- Next
- End With
- 'ReDim arrayA(1 To cities)
- 'ReDim arrayB(1 To cities)
- End Sub
- Sub clearCells()
- Dim Clear As Range
- Range("h2:z1111") = ""
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement