ExcelBanter - R/T 438

ExcelBanter (https://www.excelbanter.com/)

- Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)

- - R/T 438 - Why? (https://www.excelbanter.com/excel-discussion-misc-queries/153749-r-t-438-why.html)

JMay

R/T 438 - Why?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
CurRow = ActiveCell.Row
Range("A" & CurRow & ":E" & CurRow).Copy
Worksheets("Sheet4").Range("A65536").End(xlUp).Row <<< Error here!!
End Sub

Why, please !!

R/T 438 - Why?

what are you trying to do?
the line is not a command

"JMay" wrote:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
CurRow = ActiveCell.Row
Range("A" & CurRow & ":E" & CurRow).Copy
Worksheets("Sheet4").Range("A65536").End(xlUp).Row <<< Error here!!
End Sub

Why, please !!

JMay

R/T 438 - Why?

trying to paste the copied range..

"bj" wrote:

what are you trying to do?
the line is not a command

"JMay" wrote:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
CurRow = ActiveCell.Row
Range("A" & CurRow & ":E" & CurRow).Copy
Worksheets("Sheet4").Range("A65536").End(xlUp).Row <<< Error here!!
End Sub

Why, please !!

R/T 438 - Why?

Worksheets("Sheet4").Select
Range("A65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, 1).Select
ActiveSheet.Paste

will paste below the last cell in column a

"JMay" wrote:

trying to paste the copied range..

"bj" wrote:

what are you trying to do?
the line is not a command

"JMay" wrote:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
CurRow = ActiveCell.Row
Range("A" & CurRow & ":E" & CurRow).Copy
Worksheets("Sheet4").Range("A65536").End(xlUp).Row <<< Error here!!
End Sub

Why, please !!

All times are GMT +1. The time now is 12:57 PM.