Dropdown to populate next blank cell

[pmgreen]

Hi

This is my firs post here, not sure if this is the right thread.
have a spreadsheet that has dropdown feature. I want the value of th
drop down to populate the next blank cell.
A1 = drop down menu
A4 = first empty cell

I want the value from the A1 drop down to populate A4, next time i
will populate A5.

Is this possible?

Thank

 

[Otto Moehrbach]

One way is use a Worksheet_Change event macro as shown below. This macro
must be placed in the sheet module of that sheet. To access that module,
right-click on the sheet tab, select View Code, and paste this macro into
that module. "X" out of that module to return to your sheet.. HTH Otto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address(0, 0) = "A1" Then
If Target.Value = "" Then
Exit Sub
Else
Range("A" & Rows.Count).End(xlUp).Offset(1) = Target.Value
End If
End If
End Sub