HockeyGuy4433
New Member
- Joined
- Jun 20, 2018
- Messages
- 6
Hi everyone,
I'm trying to create a list of specific aircraft from Air Canada that have NOT been in accidents. The aircraft organization name is in my worksheet titled "RawData" (Row K), the aircraft registration #s are in my worksheet titled "RawData" (Row C), the Air Canada registration #s are in my worksheet titled "Air Canada" (Row C), and I'm open to the way the results come out.
Simply put, I'm trying to determine which Air Canada aircraft have NOT been in an accident.
Here is the closest I've come:
I'm trying to create a list of specific aircraft from Air Canada that have NOT been in accidents. The aircraft organization name is in my worksheet titled "RawData" (Row K), the aircraft registration #s are in my worksheet titled "RawData" (Row C), the Air Canada registration #s are in my worksheet titled "Air Canada" (Row C), and I'm open to the way the results come out.
Simply put, I'm trying to determine which Air Canada aircraft have NOT been in an accident.
Here is the closest I've come:
Code:
Sub CountMatch()
' Variable declarations
Dim i, j, k As Integer
Dim LastRowA As Integer
Dim LastRowB As Integer
Dim LastRowC As Integer
Dim frequency As Integer
' Range & clear answer cells
LastRowA = Worksheets("RawData").Cells(Rows.count, "K").End(xlUp).Row
LastRowB = Worksheets("RawData").Cells(Rows.count, "C").End(xlUp).Row
LastRowC = Worksheets("AirCanada").Cells(Rows.count, "C").End(xlUp).Row
' Start of code
For i = 2 To LastRowA
' Search for Air Canada planes
If Worksheets("RawData").Cells(i, "K") = "Air Canada" Then
If Worksheets("RawData").Cells(i, "C") = Worksheets("AirCanada").Cells(i, "C")
Worksheets("RawData").Activate
With ActiveSheet
Worksheets("RawData").Range(.Cells(ColVal, 1), .Cells(ColVal, 20)).Select
Selection.Copy
End With
End Select
Next
End Sub