EXCEL
Closed
DUMBBRAIN70
-
Jun 30, 2009 at 03:47 PM
venkat1926 Posts 1864 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Jun 30, 2009 at 08:35 PM
venkat1926 Posts 1864 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Jun 30, 2009 at 08:35 PM
1 reply
venkat1926
Posts
1864
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
810
Jun 30, 2009 at 08:35 PM
Jun 30, 2009 at 08:35 PM
suppose the sheet name is sheet1
the cell where you enter the data is A1
the entris in A1 are to be archived in column C
In that case try this
right click the sheet tab of sheet 1 and click view code
in the resulting window copy this event code.
[code]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Target.Copy Cells(Rows.Count, "c").End(xlUp).Offset(1, 0)
application.cutcopymode=false
End Sub
[/code]
now as you go on entering the numbers (or strings) in A1 all will be archived in column C.
modify the code to suity you.
the cell where you enter the data is A1
the entris in A1 are to be archived in column C
In that case try this
right click the sheet tab of sheet 1 and click view code
in the resulting window copy this event code.
[code]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Target.Copy Cells(Rows.Count, "c").End(xlUp).Offset(1, 0)
application.cutcopymode=false
End Sub
[/code]
now as you go on entering the numbers (or strings) in A1 all will be archived in column C.
modify the code to suity you.