select last 20 cells

vba code for selecting last 20 cells, if cells less than 20, say10
select A2:B11.
plse see attached file.

One very direct way
[vba]Dim lastrow As Long
Dim selectnum As Long

lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Select Case True
Case lastrow > 20: selectnum = 20
Case lastrow > 10: selectnum = 10
Case lastrow > 5: selectnum = lastrow
End Select

Cells(lastrow - selectnum + 1, "A").Resize(selectnum).Select
[/vba]

Quote:

---

Originally Posted by xld

One very direct way
[vba]Dim lastrow As Long
Dim selectnum As Long

lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Select Case True
Case lastrow > 20: selectnum = 20
Case lastrow > 10: selectnum = 10
Case lastrow > 5: selectnum = lastrow
End Select

Cells(lastrow - selectnum + 1, "A").Resize(selectnum).Select
[/vba]

---

thank you for quick reply.
your vba select only A11:A30 but I want A11:B30

[vba]
Cells(lastrow - selectnum + 1, "A").Resize(selectnum, 2).Select [/vba]