Advertisement
Guest User

9.10

a guest
Jul 6th, 2015
221
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.08 KB | None | 0 0
  1.  
  2. Option Explicit
  3.  
  4.  
  5.  
  6. Sub findFlights()
  7. Dim arrayA(1 To 150) As String, arrayB(1 To 150) As String, arrayC(1 To 150) As String
  8. Dim cities As Integer, i As Integer, cell As Range, j As Integer, columnH As String
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15. 'On Error Resume Next
  16. i = 1
  17. j = 0
  18.  
  19.  
  20. With wsData.Range("A1")
  21. cities = Range(.Offset(1, 0), .End(xlDown)).Rows.Count
  22. For Each cell In Range("origin")
  23. For i = 1 To cities
  24. arrayA(i) = .Offset(i, 0).Value
  25. arrayB(i) = .Offset(i, 1).Value
  26. arrayC(i) = .Offset(i, 2).Value
  27. If arrayA(i) = cell Then
  28. If arrayB(i) = "Los Angeles" Then
  29. Range("H2").Offset(j, 0) = arrayA(i)
  30. Range("I2").Offset(j, 0) = arrayB(i)
  31. Range("J2").Offset(j, 0) = arrayC(i)
  32. j = j + 1
  33. End If
  34. If arrayB(i) = "San Francisco" Then
  35. Range("H2").Offset(j, 0) = arrayA(i)
  36. Range("I2").Offset(j, 0) = arrayB(i)
  37. Range("J2").Offset(j, 0) = arrayC(i)
  38. j = j + 1
  39. End If
  40. If arrayB(i) = "Tucson" Then
  41. Range("H2").Offset(j, 0) = arrayA(i)
  42. Range("I2").Offset(j, 0) = arrayB(i)
  43. Range("J2").Offset(j, 0) = arrayC(i)
  44. j = j + 1
  45. End If
  46. If arrayB(i) = "New York" Then
  47. Range("H2").Offset(j, 0) = arrayA(i)
  48. Range("I2").Offset(j, 0) = arrayB(i)
  49. Range("J2").Offset(j, 0) = arrayC(i)
  50. j = j + 1
  51. End If
  52. End If
  53.  
  54. Next
  55.  
  56.  
  57. Next
  58. End With
  59. 'ReDim arrayA(1 To cities)
  60. 'ReDim arrayB(1 To cities)
  61.  
  62. End Sub
  63.  
  64. Sub clearCells()
  65.  
  66. Dim Clear As Range
  67. Range("h2:z1111") = ""
  68.  
  69. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement