Possible to have 2 x BeforeDoubleClick events ?

[ipbr21054]

Morning,
I use the following code shown below.

Currently when i double click a cell in column A my userform opens.
What i would like to also be able to do is to double click a cell in column B & copy & paste cell values to another worksheet within the same workbook.

Example.
Double click cell B100
"Code will now copy cell values & paste to another worksheet in same workbook"
Worksheet DATABASE copy cell value R100 & paste to worksheet INVOICE cell G14
Worksheet DATABASE copy cell value S100 & paste to worksheet INVOICE cell G15
Worksheet DATABASE copy cell value T100 & paste to worksheet INVOICE cell G16

The cell that is double clicked will always be column B
The cell values to be copied will always be from columns R,S & T on the same row.
The paste locations will always be cells G14,G15 & G16

Thanks

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Range("A6", Cells(Rows.Count, "A").End(xlUp)), Target) Is Nothing Then Exit Sub

Cancel = True

Database.LoadData Me, Target.Row

End Sub

 

[RoryA]

Try this instead:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   If Not Intersect(Range("A6", Cells(Rows.Count, "A").End(xlUp)), Target) Is Nothing Then
  
      Cancel = True
  
      DATABASE.LoadData Me, Target.Row
     
   ElseIf Not Intersect(Range("B6", Cells(Rows.Count, "B").End(xlUp)), Target) Is Nothing Then
  
      Worksheets("INVOICE").Range("G14:G16").Value = Application.Transpose(Worksheets("DATABASE").Cells(Target.Row, "R").Resize(, 3).Value)
  
   End If

End Sub

 

[ipbr21054]

Hi,
With that code i see a RTE 450, Wrong number of arguements or invalid property asignment.
Then this is shown in yellow.

Worksheets("INVOICE").Range("G14:G16").Value = Application.Transpose(Worksheets("DATABASE").Cells(Target, Row, "R").Resize(, 3).Value)

 

[RoryA]

Sorry - there was a typo. I have corrected it above.

 

[ipbr21054]

Ah perfect thanks,got there in the end.
Just a thought, should i wish to also copy / past the following of which are from different cells how would i add that into the code.
It would be from the same row but cells arent next to each other.

So
Copy cell vale DATABASE column D to INVOICE L14
Copy cell vale DATABASE column L to INVOICE L16

 

[RoryA]

Add this:

Worksheets("INVOICE").Range("L14").Value =Worksheets("DATABASE").Cells(Target.Row, "D").Value
Worksheets("INVOICE").Range("L16").Value =Worksheets("DATABASE").Cells(Target.Row, "L").Value

 

[ipbr21054]

Many thanks & have a good Christmas

 

[RoryA]

You too!

 

[ipbr21054]

Can the code in Post #2 have pastespecial added to it so where it is pasted on the other worksheet the formula in the cell isnt erased ?
If so please advise how i can do this