Hi,

My sheet has about 30 rows. I want the user to select only one row and
that row gets copied to a new sheet.

The Code to let the user select the row is

Set rng = Application.InputBox(prompt:="Select Column to Work on",
Type:=8)
rng.Select

How do I make sure the sure only one row is selected?

If more than one row is selected I need to display an error message.

Thanks

something like this

Sub test()
If Selection.Rows.Count 1 Then
MsgBox "please select only 1 row"
Else
'your code
End If

End Sub

--


Gary


"NickHK" wrote in message
...
If rng.Rows.count 1 then
MsgbOx "Single row only"
...etc

However, you Input Prompt is somewhat confusing. Instead of "Select Column
to Work on", use "Select a single row".

NickHK

wrote in message
oups.com...
Hi,

My sheet has about 30 rows. I want the user to select only one row and
that row gets copied to a new sheet.

The Code to let the user select the row is

Set rng = Application.InputBox(prompt:="Select Column to Work on",
Type:=8)
rng.Select

How do I make sure the sure only one row is selected?

If more than one row is selected I need to display an error message.

Thanks

If rng.Rows.count 1 then
MsgbOx "Single row only"
....etc

However, you Input Prompt is somewhat confusing. Instead of "Select Column
to Work on", use "Select a single row".

NickHK

wrote in message
oups.com...
Hi,

My sheet has about 30 rows. I want the user to select only one row and
that row gets copied to a new sheet.

The Code to let the user select the row is

Set rng = Application.InputBox(prompt:="Select Column to Work on",
Type:=8)
rng.Select

How do I make sure the sure only one row is selected?

If more than one row is selected I need to display an error message.

Thanks

Gary & NickHK,

Thanks for you help. It worked.

Dhruba

Gary Keramidas wrote:
something like this

Sub test()
If Selection.Rows.Count 1 Then
MsgBox "please select only 1 row"
Else
'your code
End If

End Sub

--


Gary


"NickHK" wrote in message
...
If rng.Rows.count 1 then
MsgbOx "Single row only"
...etc

However, you Input Prompt is somewhat confusing. Instead of "Select Column
to Work on", use "Select a single row".

NickHK

wrote in message
oups.com...
Hi,

My sheet has about 30 rows. I want the user to select only one row and
that row gets copied to a new sheet.

The Code to let the user select the row is

Set rng = Application.InputBox(prompt:="Select Column to Work on",
Type:=8)
rng.Select

How do I make sure the sure only one row is selected?

If more than one row is selected I need to display an error message.

Thanks

Or just use the top row of any selection:

Set rng = Application.InputBox(prompt:="Select a Row to Work on", _
Type:=8).rows(1)

rng.select

wrote:

Hi,

My sheet has about 30 rows. I want the user to select only one row and
that row gets copied to a new sheet.

The Code to let the user select the row is

Set rng = Application.InputBox(prompt:="Select Column to Work on",
Type:=8)
rng.Select

How do I make sure the sure only one row is selected?

If more than one row is selected I need to display an error message.

Thanks

--

Dave Peterson