| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 !! |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 !! |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 !! |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 !! |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Hybrid Mode
