Double click cell, add to list

**marcosis** · 05-25-2018, 05:21 AM

Hi,

I have a list of item that i when selected, or double clicked i want to add to a list, in the order they were clicked.

For example, a list of items in column A, double click one of them and it will paste into b1. Double click the next one and it will paste into b2 etc etc.

Thanks in advance

**Marc L** · 05-25-2018, 05:31 AM

Paste next code to the worksheet module :

PHP Code:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim R&
    If Target.Column = 1 Then
        Cancel = True
        R = Cells(Rows.Count, 2).End(xlUp).Row
        Cells(R - (Cells(R, 2).Value > ""), 2).Value = Target.Value
    End If
End Sub

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

**YasserKhalil** · 05-25-2018, 05:32 AM

Try this code

Please Login or Register  to view this content.

**Marc L** · 05-25-2018, 05:43 AM

Yasser :

PHP Code:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    If Target.Column = 1 Then 
        Cancel = True 
        If [B1].Value = "" Then [B1].Value = Target.Value Else Cells(Rows.Count, 2).End(xlUp)(2).Value = Target.Value 
    End If 
End Sub

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

**YasserKhalil** · 05-25-2018, 05:44 AM

Thanks a lot Mr. Marc for guiding all the time
Best Regards

**Marc L** · 05-25-2018, 05:50 AM

You're welcome padawan, may the Force be with you !

I just edit my post #2 code …

**marcosis** · 05-25-2018, 07:42 AM

Looks perfect, for what i asked for!

Theres a more complicated query that i wondered if anyone could look at.

I have this world cup result predictor that a colleague made at work. VERY SIMPLE STUFF and he told me to leave it alone, because "it does the job"

Im not having that, i have to make it more automated that what hes done!

If you see attached, i want to be able to select a team and have them appear in the selected order, in the 1st, 2nd, 3rd and 4th Place for each group.

Any ideas? Cheers