formula required (2nd time)

[Sohail khan]

dear all ,
i post this query second time, someone angry with me that plz do not
post the query multiple but still my problem was not solve if u dont mind plz
can help me anyone???? query is here under


Dera plz solve my problem, i m working in a bank my query is that
Today is 9-mar-10 my ending balance is 10,0000.00 in sheet 1 column A2 . and
this balance automatically will insert sheet2 under (ENDING BALANCE)
I want that next day on 10-MAR-10 my ending balance will that i will put in
Sheet 1 coulmn (A2 )same coulm but in sheet 2 the balance of 9-mar-10 will
not change and insert my ending balance of 10-mar-10 automatically will
appear sheet2 on next Row. Plz give me formula.
Note: Date will automatically chang in sheet1 with formula of =today()
(SHEET 1)
Date: 9-MAR-10
Today Ending Balance: 10,0000.00 (A2)

(SHEET 2)
DATE: ENDING BALANCE:
9-MAR-10 10,0000.00
10-MAR-10
11-MAR-10

 

[Fred Smith]

Nobody is angry with you. The reason you did not get a reply is that your
request is not clear.

First, you say "column A2". But A2 is a cell, not a column. Do you mean cell
A2, or column A?

Is it always sheet1!A2 that you want copied to sheet2? Or is it the last
entry in the column?
What columns are you using in sheet2? Is column A the date, and column B the
amount?

Regards,
Fred

 

[Gord Dibben]

A2 is not a column.............it is a cell address in column A

How is the "Ending Balance" calculated?

Or do you simply type it into Sheet1!A2 every day?


Gord Dibben MS Excel MVP

 

[dlw]

I think he wants to enter the ending balance in the same cell on sheet 1,
every day, and then have all the daily balances show up on the list on sheet
2.

 

[Gord Dibben]

If your assumptions are correct Russell, Sohail could try this event code in
Sheet1 code module.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Worksheets("Sheet2").Cells(Rows.Count, _
"A").End(xlUp).Offset(1, 0)
If Not Application.Intersect(Target, _
Range("$A$2")) Is Nothing Then
On Error GoTo endit:
Application.EnableEvents = False
Application.ScreenUpdating = False
With rng
.Value = Format(Now, "mm/dd/yy")
.Offset(0, 1).Value = Target.Value
End With
End If
endit:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

 

[T. Valko]

It's a language issue.

Obviously, Sohail's first language is not English. So the translation is not
clear.

 

[T. Valko]

I and others have tried to interpret his request.

That includes me!