Update data records

eexpert Posts 2 Registration date Friday June 7, 2013 Status Member Last seen June 28, 2013 - Jun 28, 2013 at 02:09 AM
 Blocked Profile - Jun 28, 2013 at 07:46 AM
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
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.


1 reply

Blocked Profile
Jun 28, 2013 at 07:46 AM
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.