VBA checking if a row in a sheet contains multiple variables - vba

Question

I have a problem looping through a sheet to find a row matching some variables.
I've got 8 columns per row, and I want to find a row that contains 6 variables, one empty cell and one cell with value 0. Like this:
- | A | B | C | D | E | F | G | H |
i | x1 | | x2 | 0 | x3 | x4 | x5 | x6 |
Where i is a row number and x1, x2,.. x6 are variables obtained from a CSV file. I want to check if my 'list' of variables {x1, ,x2,0,x3,x4,x5,x6} is an existing row in a sheet. So I want the program to do something If (Ai = x1 And Bi = "" And Ci = x2 And Di = "0" And Ei = x3 And Fi = x4 And Gi = x5 And Hi = x6) and do nothing when Else.
So I need to loop through all the rows and check if all variables are in 1 row.
At the moment I tried this but it doesn't seem to work.
LastCol = 8
LastRow = ThisWorkbook.Sheets("Boekingen AMS-IAD").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
For j = 1 To LastCol
'Tried with only 1 criteria, still didn't work
If (ThisWorkbook.Sheets("Boekingen AMS-IAD").Cells(i, j).Value = x1) Then
Accept = "nvt"
End If
Next j
Next i

Answer 1

You can try something like this. I left everything pretty much as you had it with a couple of exceptions.
lastcol = 8
Dim vars
ReDim vars(1 To lastcol)
'Set vars() to the values you're looking for in the columns.
LastRow = ThisWorkbook.Sheets("Boekingen AMS-IAD").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
accept = ""
met = 0
For j = 1 To lastcol
With ThisWorkbook.Sheets("Boekingen AMS-IAD").Cells(i, j)
If .Value = vars(j) Then
met = met + 1
End If
End With
Next j
If met = lastcol Then accept = "nvt"
'At this point you have to do something with the row you just
' found--maybe leave the loop and do something, or do something
' before going to the next row.
Next i

Answer 2

I made this quick little test sub in a new excel folder, renamed Sheet1 to your sheet's name and it works excellently:
Sub testing()
Dim ws As Worksheet
Dim rng As Range
Set ws = ThisWorkbook.Sheets("Boekingen AMS-IAD")
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow
If ws.Cells(i, 1).Value = x1 And _
ws.Cells(i, 2).Value = "" And _
ws.Cells(i, 3).Value = x2 And _
ws.Cells(i, 4).Value = "0" And _
ws.Cells(i, 5).Value = x3 And _
ws.Cells(i, 6).Value = x4 And _
ws.Cells(i, 7).Value = x5 And _
ws.Cells(i, 8).Value = x6 Then
'MsgBox "nvt at row " & i
Accept = "nvt"
End If
Next i
End Sub
This should spit out "nvt" when the line follows your variables :)
PS - anyone looking to test this code, you just need to add the following under Dim rng as Range:
Dim x1 As Integer
Dim x2 As Integer
Dim x3 As Integer
Dim x4 As Integer
Dim x5 As Integer
Dim x6 As Integer
x1 = 1
x2 = 1
x3 = 1
x4 = 1
x5 = 1
x6 = 1

Answer 3

I fixed the issue, the problem wasn't in looping through the sheet, but in a value of a variable. The date was changed from D-M-Y to M-D-Y when I read it from the Excel sheet. But I fixed that, for the ones that are interested in the answer: VBA changes date format from D-M-Y to M-D-Y