Find Last entry

[GinoZ]

Hey guys, I have the following array

A   B    C    D   E

1   5    A    4    5
2   6    V    5    4
3   4         6    3
4   7    W         3
5   0    0    0    0 
6   0    0    0    0

The fist column represents day. I need a VBA-code to find the last day that is filled in. Day that are not filled in have zero's as entry. n this example i want to find day 4. Some spaces are blanc.
Thanks in advance

Gino

 

[Lewiy]

Give this a try:

Sub MyMacro()
Dim Limit As Long
Dim c As Long
Limit = Cells(Rows.Count, 1).End(xlUp).Row
For c = Limit To 1 Step -1
    If Cells(c, 1) <> 0 Then
        MsgBox "Last day entered was day " & c
        Exit Sub
    End If
Next c
End Sub

 

[GinoZ]

Not exactly what I meant. This macro returns the last row filled in row in my sheet. It needs to lookup in the arrey and return the last row that has data greater than zero or nothing in it.

 

[Lewiy]

Sorry, I see what I did:

Sub MyMacro() 
Dim Limit As Long 
Dim c As Long 
Limit = Cells(Rows.Count, 2).End(xlUp).Row 
For c = Limit To 1 Step -1 
    If Cells(c, 2) <> 0 Then 
        MsgBox "Last day entered was day " & c 
        Exit Sub 
    End If 
Next c 
End Sub