Fill column cells as I enter into one box

[Starfleet007]

I want to fill the cells below from one box/cell I enter into. I type in box A1, press enter, and it fills A2. I then type in box A1 again, press enter, and it fills A3. The plan is to scan barcodes to fill into a column for comparative processes. THANKS!

 

[DanteAmor]

Hi and Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.

Put the following code in the sheet events.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Range("A" & Rows.Count).End(3)(2).Value = Target.Value
    Target.Select
  End If
End Sub

Note Sheer Event:
Right click the tab of the sheet you want this to work, select view code and paste the code into the window that opens up.


----- --
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
----- --

 

[Starfleet007]

Hi and Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.

Put the following code in the sheet events.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Range("A" & Rows.Count).End(3)(2).Value = Target.Value
    Target.Select
  End If
End Sub

Note Sheer Event:
Right click the tab of the sheet you want this to work, select view code and paste the code into the window that opens up.


----- --
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
----- --

THANKS!! This worked great!