VBA Vlookup returns 1004 error

I am trying to make a for if statement that returns a value in column b if one of two conditions are met.
Spreadsheet View.JPG

If I put in On Error Resume Next it will skip the if condition and still place a value on the next sheet. How do I get it to ignore the condition if there is no ABC or DEF for other lines?

Sub Code()

Dim totalrows As Long
Dim i As Integer

Sheets("Data").Activate

totalrows = Sheets("Data").UsedRange.Rows.Count

i = 1

For x = 1 To totalrows
If Sheets("Data").Cells(x, 1).Value = 0 Then
If WorksheetFunction.VLookup(Sheets("Data").Cells(x, 2) & "ABC", Sheets("Data").Columns("A:I"), 9, False) > 30 Or WorksheetFunction.VLookup(Sheets("Data").Cells(x, 2) & "DEF", Sheets("Data").Columns("A:I"), 9, False) > 30 Then
Sheets("Notifications").Cells(i, 1) = Sheets("Data").Cells(x, 2)
i = i + 1
End If
End If
Next x

Sheets("Notifications").Select

End Sub

My apologies. I just created my account so I am still figuring these things out.

I am trying to make a for if statement that returns a value in column b if one of two conditions are met.
Spreadsheet View.JPG

If I put in On Error Resume Next it will skip the if condition and still place a value on the next sheet. How do I get it to ignore the condition if there is no ABC or DEF for other lines?

I worked on this some more and got the previous issue to resolve but now the problem is it is still returning value 3 despite both numbers in column I being less than 30

Sub Code()
Dim totalrows As Long
Dim i As Integer
Dim a As Variant
Dim b As Variant
Dim c As Variant

Sheets("Notifications").Cells.Clear
Sheets("Data").Select

totalrows = Sheets("Data").UsedRange.Rows.Count

i = 1

On Error Resume Next

For x = 1 To totalrows
a = WorksheetFunction.VLookup(Sheets("Data").Cells(x, 2) & "ABC", Sheets("Data").Columns("A:I"), 9, False)
b = WorksheetFunction.VLookup(Sheets("Data").Cells(x, 2) & "DEF", Sheets("Data").Columns("A:I"), 9, False)
c = WorksheetFunction.VLookup(Sheets("Data").Cells(x, 2) & "GHI", Sheets("Data").Columns("A:I"), 9, False)
If Sheets("Data").Cells(x, 1).Value = 0 Then
    If a > 30 Or b > 30 Or c > 30 Then
        If a < 30 Or b < 30 Or c < 30 Then
    Sheets("Notifications").Cells(i, 1) = Sheets("Data").Cells(x, 2)
            i = i + 1
        End If
    End If
End If
Next x

Sheets("Notifications").Select

End Sub

I'm using the On Error Resume Next in order to have VLookup not give me the 1004 error since there is not a matching value all the time.

I want it to ignore the error for VLookup when there is no matching value and go on to the next VLookup.

The values of a,b, and c change for each value of x.
How do i check the values of a, b, and c in the Locals Window?
Does it show me the value of a,b, and c for each value of x?

I'm using the On Error Resume Next in order to have VLookup not give me the 1004 error since there is not a matching value all the time.

I want it to ignore the error for VLookup when there is no matching value and go on to the next VLookup.

The values of a,b, and c change for each value of x.
How do i check the values of a, b, and c in the Locals Window?
Does it show me the value of a,b, and c for each value of x?

That did stop the runtime errors but it then only returns values in the next sheet it only returned value 4 since 1 2 and 3 don't have ABC,DEF,and GHI. I want to be able to have it return a value on the next sheet if even if ABC,DEF, and GHI are not all listed under each number.
The result I am looking for is on the next sheet to have 1,3,4 in the first 3 cells going down column A. This would be because in column I on the first sheet one of the numbers is above 30 and one would be below.

Here is the workbook. I hope I attached it correctly.

Tool.xlsm

My apologies. Since I am still new to this forum. I didn't know how to get rid of one of my replies. The result I want is the one stated in #9 not #8.
I'm sorry for the misunderstanding. Would you be able to tell me how to get rid of replies I have made so if I make one of the mistakes shown above like posting twice or having a typo that I can fix it so it doesn't cause misunderstandings

I got it thanks to your code. I just had to change the if error result to 30 so that it doesn't prove either of my statements true.
Thank You for all your help. It is much appreciated.

This is the code that worked:

Sub Code()

Dim totalrows As Long
Dim i As Long
Dim a As Variant
Dim b As Variant
Dim c As Variant

    Sheets("Notifications").Cells.Clear

    totalrows = Sheets("Data").UsedRange.Rows.Count

    i = 1

    For x = 1 To totalrows

        If Sheets("Data").Cells(x, 1).Value = 0 Then

            a = Application.VLookup(Sheets("Data").Cells(x, 2) & "ABC", Sheets("Data").Columns("A:I"), 9, False)
            b = Application.VLookup(Sheets("Data").Cells(x, 2) & "DEF", Sheets("Data").Columns("A:I"), 9, False)
            c = Application.VLookup(Sheets("Data").Cells(x, 2) & "GHI", Sheets("Data").Columns("A:I"), 9, False)
            
            a = IIf(IsError(a), 30, a)
            b = IIf(IsError(b), 30, b)
            c = IIf(IsError(c), 30, c)
            
                If a > 30 Or b > 30 Or c > 30 Then
                    If a < 30 Or b < 30 Or c < 30 Then
                        Sheets("Notifications").Cells(i, 1) = Sheets("Data").Cells(x, 2)
                        i = i + 1
                    End If
                End If
           
        End If
    Next x

End Sub