Add data from a cell when clicking on another cell

[Darren_workforce]

Hello,

I wondered if this could be done without using Form Controls. What I was hoping to do was generate a list of names in C:D. When clicking on one of the names, that name would be added into Column A (starting at A2) and then if A2 is occupied, clicking another name from C:D would then cause that name to populate in A3, and so on and so on. Can something like that be done?

Thank you in advance!!

 

[Darren_workforce]

ok Re-tested after clearing all the names. Clicked on 1 name and it populated in A44, below some of the Row headers I have setup. I moved the data from A into L so that A was completely empty save for the A1 header. Tried and it works as designed. Thank you for sticking with me and helping out on that!!

 

[Jeffrey Mahoney]

Yeah, the code I gave you starts at the last row and goes up to the last non-empty cell in column A. Do you need that changed?

 

[Darren_workforce]

Yeah, the code I gave you starts at the last row and goes up to the last non-empty cell in column A. Do you need that changed?

At most, there may be 20 names that would need to be added into Column A on any given day. So having the range a2:a35 would be more than sufficient. Can the range be restricted like that and still work?

 

[Jeffrey Mahoney]

This code looks from the top down for the next empty cell

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim i As Range
  Dim Cel As Range
 
  Set i = Intersect(Target, Range("C:D"))
  If Not i Is Nothing Then
    Cancel = True
    Set Cel = Cells(2, 1)
    Do Until Cel.Value = ""
      Set Cel = Cel.Offset(1, 0)
    Loop
    Cel.Value = i.Value
  End If
 
End Sub

 

[Darren_workforce]

This code looks from the top down for the next empty cell

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim i As Range
  Dim Cel As Range
 
  Set i = Intersect(Target, Range("C:D"))
  If Not i Is Nothing Then
    Cancel = True
    Set Cel = Cells(2, 1)
    Do Until Cel.Value = ""
      Set Cel = Cel.Offset(1, 0)
    Loop
    Cel.Value = i.Value
  End If
 
End Sub

Yeah that's EXACTLY what I was hoping for!! Thank you @Jeffrey Mahoney