Macro for cell selection starting with Last Cell

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I want to go to the last cell on the worksheet and select it along with 16
prior cells in order to delete the last 16 rows of the worksheet at once
instead of deleting one row at a time.

Thanks!
Valerie
 
I used column A to find the last row of the worksheet.

Dim LastRow as long
with activesheet
lastrow = .cells(.rows.count,"A").end(xlup).row
if lastrow < 16 then
msgbox "are you on the correct sheet?"
exit sub
end if

.rows(lastrow -16 + 1 & ":" & .rows.count).delete
end with
 
Works! Thanks! I've always been curious - what does the "Dim" mean as far
as how it works, what it's function is, what is it telling XL to do?
 
It tells excel that you're creating a variable. In this case, I declared a
variable as Long (a counting number--no fractions).

Declaring the variables and telling excel that you want to declare variables go
hand in hand.

Option Explict

at the top of the module means that I have to declare all the variables I use.

Then if I did this:

option explicit
sub test()
dim firstrow as long
firstrow = 0
firstrow = fristrow + 1
end sub

wouldn't get close to running. (Fristrow is spelled incorrectly and excel knows
it's not a variable, since I didn't declare it.)


By declaring the variables, it'll make your code easier to debug/maintain.

And you'll even get excel's intellisense to help out.

try this:
Dim wks as worksheet
'then type wks. (with that dot)
wks.

You'll see a list of all the things that you could type next that can be used
with worksheet objects.
 
Back
Top