Double click one cell to add data to next empty row in different worksheet

[Rextus]

I'm trying to make sort of a shopping cart. The goods are on a sheet called List and start from row 2 to row 594. There is a cell besides each item (range "E2:E594"). When I double click the cell, it transfers the data in the cells to the left to another worksheet called Cart and displays a message. The code below is what I cobbled together.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("E2:E594")) Is Nothing Then Exit Sub
Sheets("Cart").Range("D34") = Cells(Target.Row, 5)
Sheets("Cart").Range("C34") = Cells(Target.Row, 4)
If Target.Locked Then
Range("A1").Activate
MsgBox "Item added to Cart successfully", vbInformation, "Cart updated"
End If
End Sub

This code works but only for the first row of the Cart worksheet (row 34). If I then go back to the List worksheet and "add" another item by clicking another row, that new selection overrides the information in row 34 of the Cart worksheet. I'd like to have the info from the second item inserted to the 35th row in cells C35 and D35. Can anyone help?

TIA

 

[My Aswer Is This]

Please tell me in specifics what your ultimate Goal is:
I know you want to double click on a cell and or cells to perform a task
Do not say read my code.
I see the code you have here, but it is hard to see the ultimate Goal
And what does this mean:
If Target.Locked Then

So, do you have a row full of shopping items you want copied to another sheet?
So in Range E2 you have "Bread" and in Range F2 you have "Soup"
And you want this data copied to a sheet named "Cart"

 

[Rextus]

Please tell me in specifics what your ultimate Goal is:
I know you want to double click on a cell and or cells to perform a task
Do not say read my code.
I see the code you have here, but it is hard to see the ultimate Goal
And what does this mean:
If Target.Locked Then

So, do you have a row full of shopping items you want copied to another sheet?
So in Range E2 you have "Bread" and in Range F2 you have "Soup"
And you want this data copied to a sheet named "Cart"

>And what does this mean:
>If Target.Locked Then

The cells I want to double click will be locked. This is to prevent accidentally editing them after the double click, and coincidentally, I can also use Target.Locked to check if the cell is locked, so I don't get random stuff copied into the Cart worksheet whenever I want to edit the product info.


Here's an example of what the List worksheet contains:

Category	Can spoil	Brand	Product	Double click to add to cart
Groceries	Yes	Bready	Bread	Add Bready Bread to cart
Fluids	No	Soupy	Soup	Add Soupy Soup to cart

And yes, if I double click "Add Bready Bread to cart", then double click "Add Soupy Soup to cart", I want to have the two items added sequentially into the Cart worksheet. I only need Brand and Product in the cart, not the data in the entire row.

Let me know if you need more info.

Thanks!

 

[My Aswer Is This]

Try this:
Now this script does not lock or unlock
Add that to the script if you want

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified  6/23/2022  7:09:54 PM  EDT
If Target.Column = 5 Then
Cancel = True
Application.ScreenUpdating = False
Dim r As Long
Dim Lastrow As Long
Lastrow = Sheets("Cart").Cells(Rows.Count, "A").End(xlUp).Row + 1
r = Target.Row
Cells(r, 3).Resize(, 2).Copy Sheets("Cart").Cells(Lastrow, 1)
Application.ScreenUpdating = True
End If
End Sub