Update data records Closed

Question

I have a specific range of cells in a column. For eg

In sheet1 from D3 to D12 I keep on entering various 
alpha numberic code from 3 digit to 8 digit
eg.
AD1
AAGTR3
11259
CCRRT7789
HHYU11220
B19
123
990
The above code are for example purpose. It can be any code number.
What is required is whatever code number I enter within this range of cell
should keep on adding to the list in Sheet2 in any one column. May be for 
eg starting from A2 in sheet2. In a day i get approx 300+ code numbers.
whatever numbers I get I enter within this cell range and it keeps on adding 
one below the other in sheet2.

Thanks
Geoff

ac3mark · Answer

Good Morning.

My idea was to build a userform that finds the next cel in a range of 999, and insert it.  If you need more cells, extend the cell count from 999 to N.

Make a userform with a TextBox. Keep the textbox name as TextBox1
Create a CmdButton, keep its name CommandButton1.

now attach the follwoing code to the commandbutton1.click 

Dim LastRow As Object

          Set LastRow = Sheet1.Range("a999").End(xlUp)

          LastRow.Offset(1, 0).Value = TextBox1.Text
          TextBox1.Text = ""
          
now, just keep your userform open, and enter into the textbox.

This is a direction and advisement.  I am sorry for not providing a turn key solution.

Update data records

1 response

Similar discussions

Subscribe To Our Newsletter!