Find the last row with in a range, but stop once a given row or cell is reached

[Tanner_2004]

I know there is a line of code that allows one to find the last row of a worksheet, and then work it's way to a row with a populated cell.

Let' say, I would to start of the bottom, but in my case the bottom is row 1000 and continue searchin upward (rows, 999, 998,.....) until reaching row 5 (including row 5). Then confine the search between columns D and Z, including Rows D and Z.


Does that make sense?

Thank you for reading. Your advice is always greatly appreciated and valued.

 

[drsarao]

Something like this?
Cells(1000, "D").End(xlUp).Row

 

[Tanner_2004]

Thank you...any other solutions?

 

[jamtay317]

you could try this https://www.youtube.com/watch?v=_XZDJjV2X3c

 

[Tanner_2004]

That was excellent; I just watched it. But I still want to solve for the code that would allow me to do what I had first posted.Naturally, I will want to change the last row and first and last column, but once I learn how to do the former, I will just have to replace the row and columns numbers in the code with whatever I want.

Thank you!

 

[Michael M]

Maybe like this ??
But if this doesn't help and drsarao's tip didn't help...then you will need to provide more information on exactly what you want !!!

Sub MM1()
Dim lr As Long, r As Long, c As Integer
lr = Cells(Rows.Count, "D").End(xlUp).Row
For c = 4 To 23 'columns "D" to "Z"
    For r = lr To 5 Step -1 'lastrow to row 5
        if cells(r,c).Value = '"some value here" then
            'do stuff
        End If
    Next r
Next c
End Sub

 

[Michael M]

Or for last row and last column

Sub MM1()
Dim lr As Long, r As Long, c As Integer, lc As Integer
lc = Rows(1, Columns.Count).End(xlToLeft).Column
lr = Cells(Rows.Count, "D").End(xlUp).Row
For c = 4 To lc
    For r = lr To 5 Step -1
        if cells(r,c).Value = '"some value here" then
            'do stuff
        End If
    Next r
Next c
End Sub

 

[Tanner_2004]

They all helped, but this last one was the one I was looking for. Thank you very, very much!

 

[Michael M]

Glad it helped...