Code error
I'm trying to get this program done to make work go faster, but since I've givin up and am going to bed right now, I'm going to post it and see if anyone can point out my mistake.
Private Sub CommandButton1_Click()
i = 1
j = 1
k = 1
l = 1
Do While i <= 65536
Do While l <= 65536
If Sheet1.Cells(i, j).Value = 0 Then
ElseIf Sheet1.Cells(i, j).Value = (Left(Sheet2.Cells(l, 1), 4) & Right(Sheet2.Cells(l, 1), 4)) * 1 Then
Sheet3.Cells(k, 1).Value = Sheet1.Cells(i, j).Value
k = k + 1
l = l + 1
Else
l = l + 1
End If
Loop
If i >= 65536 And j = 1 Then
i = 1
j = 2
ElseIf i >= 65536 And j = 2 Then
ElseIf i < 65536 Then
i = i + 1
End If
Loop
End Sub
The highlighted line gives me a Type Mismatch error.
