Archive
 

If I have two cells say A1 and B1 and I always use these cells to input my
data. How can I archive this information to another cell. For example: If
A1 = 5 and B1 = 6 and I want this information inserted in C1 and D1. The
next time A1 = 10 and B1 = 11. I want these values inserted into cells C2
and D2 and so on. So what ever I insert into cells A1 and B1 it contantly
archives the information into cells C1 and D1 and down. Please help!!!

Hi
this is not possible using formulas alone. This would require VBA

--
Regards
Frank Kabel
Frankfurt, Germany

"John Hunt" schrieb im Newsbeitrag
...
If I have two cells say A1 and B1 and I always use these cells to
input my
data. How can I archive this information to another cell. For
example: If
A1 = 5 and B1 = 6 and I want this information inserted in C1 and D1.
The
next time A1 = 10 and B1 = 11. I want these values inserted into
cells C2
and D2 and so on. So what ever I insert into cells A1 and B1 it
contantly
archives the information into cells C1 and D1 and down. Please
help!!!

That is what I was afraid of. Thanks for the reassurance though.

"Frank Kabel" wrote in message
...
Hi
this is not possible using formulas alone. This would require VBA

--
Regards
Frank Kabel
Frankfurt, Germany

"John Hunt" schrieb im Newsbeitrag
...
If I have two cells say A1 and B1 and I always use these cells to
input my
data. How can I archive this information to another cell. For
example: If
A1 = 5 and B1 = 6 and I want this information inserted in C1 and D1.
The
next time A1 = 10 and B1 = 11. I want these values inserted into
cells C2
and D2 and so on. So what ever I insert into cells A1 and B1 it
contantly
archives the information into cells C1 and D1 and down. Please
help!!!

John

If you want the VBA, try this.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo stoppit
Application.EnableEvents = False
If Target.Address = "$A$1" And Target.Value < "" _
And IsNumeric(Target.Value) Then
ActiveSheet.Cells(Rows.Count, 3).End(xlUp) _
.Offset(1, 0).Value = Target.Value
End If
If Target.Address = "$B$1" And Target.Value < "" _
And IsNumeric(Target.Value) Then
ActiveSheet.Cells(Rows.Count, 4).End(xlUp) _
.Offset(1, 0).Value = Target.Value
End If
stoppit:
Application.EnableEvents = True
End Sub


NOTE: it will place first two numbers from A1 and B1 into C2 and D2

Just delete C1 and D1(shift cells up) and then you're good to go from then on.

Right-click on your sheet tab and select "View Code". Copy the above code
into the module that opens.

Gord Dibben Excel MVP

On Tue, 2 Nov 2004 13:44:06 -0500, "John Hunt" wrote:

That is what I was afraid of. Thanks for the reassurance though.

"Frank Kabel" wrote in message
...
Hi
this is not possible using formulas alone. This would require VBA

--
Regards
Frank Kabel
Frankfurt, Germany

"John Hunt" schrieb im Newsbeitrag
...
If I have two cells say A1 and B1 and I always use these cells to
input my
data. How can I archive this information to another cell. For
example: If
A1 = 5 and B1 = 6 and I want this information inserted in C1 and D1.
The
next time A1 = 10 and B1 = 11. I want these values inserted into
cells C2
and D2 and so on. So what ever I insert into cells A1 and B1 it
contantly
archives the information into cells C1 and D1 and down. Please
help!!!

Thank You very much. It works!!! This exactly what I was after.

Thanks!
John

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
John

If you want the VBA, try this.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo stoppit
Application.EnableEvents = False
If Target.Address = "$A$1" And Target.Value < "" _
And IsNumeric(Target.Value) Then
ActiveSheet.Cells(Rows.Count, 3).End(xlUp) _
.Offset(1, 0).Value = Target.Value
End If
If Target.Address = "$B$1" And Target.Value < "" _
And IsNumeric(Target.Value) Then
ActiveSheet.Cells(Rows.Count, 4).End(xlUp) _
.Offset(1, 0).Value = Target.Value
End If
stoppit:
Application.EnableEvents = True
End Sub


NOTE: it will place first two numbers from A1 and B1 into C2 and D2

Just delete C1 and D1(shift cells up) and then you're good to go from then
on.

Right-click on your sheet tab and select "View Code". Copy the above code
into the module that opens.

Gord Dibben Excel MVP

On Tue, 2 Nov 2004 13:44:06 -0500, "John Hunt" wrote:

That is what I was afraid of. Thanks for the reassurance though.

"Frank Kabel" wrote in message
...
Hi
this is not possible using formulas alone. This would require VBA

--
Regards
Frank Kabel
Frankfurt, Germany

"John Hunt" schrieb im Newsbeitrag
...
If I have two cells say A1 and B1 and I always use these cells to
input my
data. How can I archive this information to another cell. For
example: If
A1 = 5 and B1 = 6 and I want this information inserted in C1 and D1.
The
next time A1 = 10 and B1 = 11. I want these values inserted into
cells C2
and D2 and so on. So what ever I insert into cells A1 and B1 it
contantly
archives the information into cells C1 and D1 and down. Please
help!!!