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


Valerie wrote:

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

--

Dave Peterson

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?

"Dave Peterson" wrote:

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


Valerie wrote:

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

--

Dave Peterson

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.




Valerie wrote:

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?

"Dave Peterson" wrote:

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


Valerie wrote:

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

--

Dave Peterson


--

Dave Peterson

Thanks, Dave! You guys know so much - I love this resource!

"Dave Peterson" wrote:

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.




Valerie wrote:

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?

"Dave Peterson" wrote:

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


Valerie wrote:

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

--

Dave Peterson


--

Dave Peterson