On Sat, 01 Sep 2007 23:28:59 -0700, Macbet wrote:

Every day I have to write data to different worksheets.
So there is written as example in
sheet2 E80 value = 40.00
sheet3 E34 value = 25.50
sheet4 E78 value = 140.75

I would like to have this data automatically copied to
sheet1
Columns B2 = sheet2 E80
Columns B3 = sheet3 E34
Columns B4 = sheet4 E78

By the next daily entry the row will increase
And should copy
Columns B2 = sheet2 E81
Columns B3 = sheet3 E35
Columns B4 = sheet4 E79

Has somebody an idea, how to do this with excel?

Thanks in advance
macbet

Hi Macbet,

try this code:
---
Function GetLastCell(rRange As Variant) As Variant
GetLastCell = rRange.Cells(rRange.Rows.Count, 1).End(xlUp)
End Function
---

It will get you the last data of first column in given range, so if you use
it like this:

B2: =GetLastCell(Sheet2!E:E)
B3: =GetLastCell(Sheet3!E:E)
B4: =GetLastCell(Sheet4!E:E)

you will get your data.
You can substitute smaller range (I've used entire E columns) if you have
some another data below in those columns.

Regards,
B.