Value from pull down list added to end of adjacent column

[dtwyford]

Good day.
I have a need to use a pull-down and then have the selected value moved from the pull-down cell to the next blank cell in an adjacent column. Then go back to the original pull-down list, select again and have the selected value placed in the next blank cell in the adjacent column.

[TABLE="width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]pull-down linked
to data validation list[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD][/TD]
[TD]1st selection[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD][/TD]
[TD]2nd selection[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD][/TD]
[TD]3rd selection[/TD]
[/TR]
</tbody>[/TABLE]

Thank you in advance
****** id="cke_pastebin" style="position: absolute; top: 108.5px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">[TABLE="width: 500"]
<tbody>[TR]
[TD]pull-down list linked
to data validation list[/TD]
[/TR]
</tbody>[/TABLE]
</body>

 

[My Aswer Is This]

Your wanting the script to choose the value from The Data Validation list?
Or do you mean you will choose the value from the Data Validation list and the script will copy the value to the last used row+1 in column B.
And do you want the original value you chose cleared from column A?

 

[My Aswer Is This]

Assuming you and not the script will be choosing the data From the Data Validation list in column A
Try this:

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_Change(ByVal Target As Range)
'Modified 5/9/18 12:15 AM EDT
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row + 1
Target.Copy Cells(Lastrow, "B")
End If
End Sub

 

[dtwyford]

Thank you ! Exactly what I need.

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thank you ! Exactly what I need.