Hello
I have a workbook with 2 sheets ( default names), data is stored on Sheet1 in row A ( DOG1 - DOG10), I have created a list box on Sheet2 that pulls in that information and populates the list box. I have the following code
Code:
Private Sub ListBox1_Click()
'Select first empty cell in column C
Cells(Rows.Count, "C").End(xlUp).Offset(1).Select
'Paste in the value from the listbox
ActiveCell.Formula = ListBox1.Value
End Sub
its job is to paste the selected DOG from the listbox into the next row down in Sheet 2 column C, it works fine as long as each DOG selection is different, if I select the same DOG more than once it only inputs the first click and ignores all others until I change to a different DOG, if the same DOG wins twice, I would like it to appear in the list on Sheet2 column C, twice.