Loop find cell with value not working

[lowej]

Hello,

i have a little issue with a loop. it should loop through until it find a cell with a value, let say apple
and move through the rest of the loop. But when it gets to the value apple it's not doing anything and go's to the end.

        For w = 4 To lr - 1
            If IsEmpty(dbsheet.Cells(w, 1)) = False Then
                If dbsheet.Cells(w, 2).Interior.Color = lColor Then
                    x = x + 1
                    End If
                    If Databasesheet.Cells(y, 8) = 0 Then
                    GoTo nextrng
                    End If
            i = i + 1
            End If
        Next

How can i fix this issue??
thanks in advance

 

[mikerickson]

That code is not looking at a cell's value, its looking at the interior color.

 

[lowej]

Thanks for the reply.
the problem is with the first if statement isempty. I don’t know why but when it finds a value it go’s directly to end if

 

[mikerickson]

What happens if you remove that If ... EndIf?

 

[lowej]

It just counts the cell with the interior color and the loop runs normal.

 

[MARK858]

Sorry please ignore. Read it wrong.

 

[lowej]

i tested the loop with a new excel document and that works. So it seems that there is a issue with the cell.
the cell it self has a drop down list that is activated with a macro. Could the cause the issue ???