Update data records

Closed
Report
Posts
2
Registration date
Friday June 7, 2013
Status
Member
Last seen
June 28, 2013
-
 Blocked Profile -
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

1 reply


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.
0