Variable rows

  • Thread starter Thread starter Jwil
  • Start date Start date
J

Jwil

Hello,

How do I use a variable to select entire rows? I want to ask the user how
many rows they want to select and then use that number to select the rows.

For instance:
ActiveCell.Offset(0, 0).Rows("1:58").EntireRow.Select
selects 58 rows. I would like to replace the '58' with a variable so that I
can choose how many I want to delete.
 
Sub AircodeSampleWarning

MyUserinput = Inputbox("Please enter a number")
ActiveCell.Offset(0, 0).Rows("1:" & MyUserInput).EntireRow.Select

End Sub

You may want to consider checking the user input to make sure that it is a
valid entry before executing your selection. If they enter "sfghsg" the code
will error out when trying to select that range.

I could also see the rare but unfortunate instance where a user meant to
type "9" but accidently hits the key twice and deletes 99 rows. Perhaps
consider selecting the rows, then give the user a chance to abort if they
were to hasty and mis-entered their number of rows to delete...

HTH
Keith
 
I would use this instead of the complex statement you are using...

Rws = 58
ActiveCell.Resize(Rws).Select

where I used a variable named Rws to hold the number of rows down from the
active cell to select.
 
Thanks a lot.

ker_01 said:
Sub AircodeSampleWarning

MyUserinput = Inputbox("Please enter a number")
ActiveCell.Offset(0, 0).Rows("1:" & MyUserInput).EntireRow.Select

End Sub

You may want to consider checking the user input to make sure that it is a
valid entry before executing your selection. If they enter "sfghsg" the code
will error out when trying to select that range.

I could also see the rare but unfortunate instance where a user meant to
type "9" but accidently hits the key twice and deletes 99 rows. Perhaps
consider selecting the rows, then give the user a chance to abort if they
were to hasty and mis-entered their number of rows to delete...

HTH
Keith
Click to expand...
 
Back
Top