Deleting a User Input Row
 

I set up a InputBox to capture the ROW that the user would
like to Delete, If Input = 6 then ClearContents of the
row, etc. I started like this:

Dim RName as Interger
RName=InputBox("Enter Row to be deleted", "Row Number")

How do I use the "RName" to select and delete the entire
row?

I used the RName like this:

If RName = 6 Then

Deleting a User Input Row
 

This should work:

Rows(RName).Delete

-Erik

"Dan" wrote in message
...
I set up a InputBox to capture the ROW that the user would
like to Delete, If Input = 6 then ClearContents of the
row, etc. I started like this:

Dim RName as Interger
RName=InputBox("Enter Row to be deleted", "Row Number")

How do I use the "RName" to select and delete the entire
row?

I used the RName like this:

If RName = 6 Then

Deleting a User Input Row
 

Erik, thanks that worked with my If statements testin if
the input was greater than 6 and =6.

How would I test (If statement) if the first cell in (user
InputRow) "RName" row is blank? I had:

If Cells(RName,0).Value ="" Then
MsgBox "Row is blank"

but this errors w/message: Run-time error 1004:
Application defined or object-defined error.

-----Original Message-----
This should work:

Rows(RName).Delete

-Erik

"Dan" wrote in
message
...
I set up a InputBox to capture the ROW that the user
would
like to Delete, If Input = 6 then ClearContents of the
row, etc. I started like this:

Dim RName as Interger
RName=InputBox("Enter Row to be deleted", "Row Number")

How do I use the "RName" to select and delete the entire
row?

I used the RName like this:

If RName = 6 Then





.

Deleting a User Input Row
 

change the 0 to 1 since indexing starts at 1:

If Cells(RName,1).Value ="" Then

"Dan" wrote in message
...
Erik, thanks that worked with my If statements testin if
the input was greater than 6 and =6.

How would I test (If statement) if the first cell in (user
InputRow) "RName" row is blank? I had:

If Cells(RName,0).Value ="" Then
MsgBox "Row is blank"

but this errors w/message: Run-time error 1004:
Application defined or object-defined error.

-----Original Message-----
This should work:

Rows(RName).Delete

-Erik

"Dan" wrote in
message
...
I set up a InputBox to capture the ROW that the user
would
like to Delete, If Input = 6 then ClearContents of the
row, etc. I started like this:

Dim RName as Interger
RName=InputBox("Enter Row to be deleted", "Row Number")

How do I use the "RName" to select and delete the entire
row?

I used the RName like this:

If RName = 6 Then





.

Deleting a User Input Row
 

Thanks Erik you fix worked great. Disregard my new post. I
was not sure if I could ask a question thru my original
post. Dan
-----Original Message-----
change the 0 to 1 since indexing starts at 1:

If Cells(RName,1).Value ="" Then

"Dan" wrote in
message
...
Erik, thanks that worked with my If statements testin if
the input was greater than 6 and =6.

How would I test (If statement) if the first cell in
(user
InputRow) "RName" row is blank? I had:

If Cells(RName,0).Value ="" Then
MsgBox "Row is blank"

but this errors w/message: Run-time error 1004:
Application defined or object-defined error.

-----Original Message-----
This should work:

Rows(RName).Delete

-Erik

"Dan" wrote in
message
.. .
I set up a InputBox to capture the ROW that the user
would
like to Delete, If Input = 6 then ClearContents of the
row, etc. I started like this:

Dim RName as Interger
RName=InputBox("Enter Row to be deleted", "Row
Number")

How do I use the "RName" to select and delete the
entire
row?

I used the RName like this:

If RName = 6 Then





.



.