Code Problem
 

I'm running this code to select from one worsheet a row that places
data on another sheet. The code works great until I click on a blank
row. I get a run time error subscript out of range. Here is the code
can anyone help?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count 1 Then Exit Sub
Application.EnableEvents = False
*Debugshere Target.EntireRow.Copy Worksheets(Cells(Target.Row,
1).Value).Rows(1)
Application.EnableEvents = True
End Sub

Code Problem
 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sh as Worksheet
If Target.Rows.Count 1 Then Exit Sub
Application.EnableEvents = False
On Error Resume next
set sh = worksheets(Cells(Target.row,1).Value)
On Error goto 0
if not sh is nothing then
Target.EntireRow.Copy sh.Rows(1)
end if
Application.EnableEvents = True
End Sub

--
Regards,
Tom Ogilvy


"TC" wrote in message
m...
I'm running this code to select from one worsheet a row that places
data on another sheet. The code works great until I click on a blank
row. I get a run time error subscript out of range. Here is the code
can anyone help?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count 1 Then Exit Sub
Application.EnableEvents = False
*Debugshere Target.EntireRow.Copy Worksheets(Cells(Target.Row,
1).Value).Rows(1)
Application.EnableEvents = True
End Sub

Code Problem
 

try
If Target.Rows.Count 1 or target="" Then

--
Don Guillett
SalesAid Software

"TC" wrote in message
m...
I'm running this code to select from one worsheet a row that places
data on another sheet. The code works great until I click on a blank
row. I get a run time error subscript out of range. Here is the code
can anyone help?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count 1 Then Exit Sub
Application.EnableEvents = False
*Debugshere Target.EntireRow.Copy Worksheets(Cells(Target.Row,
1).Value).Rows(1)
Application.EnableEvents = True
End Sub

Code Problem
 

If multiple cells are selected, this will produce a type mismatch error.

--
Regards,
Tom Ogilvy

"Don Guillett" wrote in message
...


try
If Target.Rows.Count 1 or target="" Then

--
Don Guillett
SalesAid Software

"TC" wrote in message
m...
I'm running this code to select from one worsheet a row that places
data on another sheet. The code works great until I click on a blank
row. I get a run time error subscript out of range. Here is the code
can anyone help?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count 1 Then Exit Sub
Application.EnableEvents = False
*Debugshere Target.EntireRow.Copy Worksheets(Cells(Target.Row,
1).Value).Rows(1)
Application.EnableEvents = True
End Sub

Code Problem
 

The patient said "Doctor, it hurt when I do this". The doc said "Don't do
that"

--
Don Guillett
SalesAid Software

"Tom Ogilvy" wrote in message
...
If multiple cells are selected, this will produce a type mismatch error.

--
Regards,
Tom Ogilvy

"Don Guillett" wrote in message
...


try
If Target.Rows.Count 1 or target="" Then

--
Don Guillett
SalesAid Software

"TC" wrote in message
m...
I'm running this code to select from one worsheet a row that places
data on another sheet. The code works great until I click on a blank
row. I get a run time error subscript out of range. Here is the code
can anyone help?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count 1 Then Exit Sub
Application.EnableEvents = False
*Debugshere Target.EntireRow.Copy Worksheets(Cells(Target.Row,
1).Value).Rows(1)
Application.EnableEvents = True
End Sub

Code Problem
 

Not sure I understand. Do you mean if you hadn't suggested a flawed
solution, it wouldn't have been problematic? Agreed.

--
Regards,
Tom Ogilvy



"Don Guillett" wrote in message
...
The patient said "Doctor, it hurt when I do this". The doc said "Don't do
that"

--
Don Guillett
SalesAid Software

Code Problem
 

We need not understand everything, need we?

--
Don Guillett
SalesAid Software

"Tom Ogilvy" wrote in message
...
Not sure I understand. Do you mean if you hadn't suggested a flawed
solution, it wouldn't have been problematic? Agreed.

--
Regards,
Tom Ogilvy



"Don Guillett" wrote in message
...
The patient said "Doctor, it hurt when I do this". The doc said "Don't
do
that"

--
Don Guillett
SalesAid Software

Code Problem
 

Only those things we are going to give advice on, I suppose.

--
Regards,
Tom Ogilvy

"Don Guillett" wrote in message
...
We need not understand everything, need we?

--
Don Guillett
SalesAid Software

"Tom Ogilvy" wrote in message
...
Not sure I understand. Do you mean if you hadn't suggested a flawed
solution, it wouldn't have been problematic? Agreed.

--
Regards,
Tom Ogilvy



"Don Guillett" wrote in message
...
The patient said "Doctor, it hurt when I do this". The doc said "Don't
do
that"

--
Don Guillett
SalesAid Software

Code Problem
 

Tom, Lighten up.
BTW. The question was click on a blank row - not a selection of row(S)

--
Don Guillett
SalesAid Software

"Tom Ogilvy" wrote in message
...
Only those things we are going to give advice on, I suppose.

--
Regards,
Tom Ogilvy

"Don Guillett" wrote in message
...
We need not understand everything, need we?

--
Don Guillett
SalesAid Software

"Tom Ogilvy" wrote in message
...
Not sure I understand. Do you mean if you hadn't suggested a flawed
solution, it wouldn't have been problematic? Agreed.

--
Regards,
Tom Ogilvy



"Don Guillett" wrote in message
...
The patient said "Doctor, it hurt when I do this". The doc said
"Don't
do
that"

--
Don Guillett
SalesAid Software