Copy to next row (not working)

[psyclone101]

But I can't run this simple piece of code.

////////////////////////

Sub Selectnxtempty()

Dim A1_store As Range

Dim Anext_store As Range

Set Anext_store = Range("A1").End(x1Up).Offset(1).Value.Select

Anext_store.Value = A1_store

End Sub


//////////////////////////////////

"1004 Run time error"


Can anyone help.
I want to try to store data from (a set of cells) one Worksheet into a table on another Worksheet,
Then change those cell values (on initial sheet) and store the new data on the next row down of the table on worksheet with the table.

I should mention the about code doesn't transfer data between Worksheets. I'm just trying to get a feel for the code.

I hope that makes sense.

[psyclone101]

can't post link to where I saw this code.

[PCI]

For a real first beginning change

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

What is the contains for A1_store, where to pick up value ?

BTW
Use code tags

[psyclone101]

Cell A1, I can see now I have not linked the value in Cell A1 to A1_store,
But
the following line is causing an error

[psyclone101]

///.////////

[PCI]

You try to go up before cell "A1"
Use (NOT tested)

Please Login or Register  to view this content.

[psyclone101]

Thanks for your help.
I'm still getting an error

When I hover over x1Up --> it says it's empty. could this be the problem?
Is there a setting I need to adjust to run this code?

[PCI]

If you want to use the cell just after the last cell in column "A", Use

Please Login or Register  to view this content.

[psyclone101]

Thanks for that. That works,
I've tried running the following code and I've seen someone on run on youtube - but it won't run on my machine?
I'm using Excel 2007 I don't know if that's got something to do with it.

Youtube:
"#Excel VBA to Select the Next Empty Cell or Row - Macros"

[PCI]

Try

Please Login or Register  to view this content.

To be sure it is good, do Ctrl +C and Ctrl + V

[psyclone101]

Thank-you for your perseverance, PC1
It worked.
it was the "l" in xlUp - I used No 1 not "L"

[PCI]

it was the "l" in xlUp - I used No 1 not "L"

Yes, what's why you had better to copy paste.
In the other hand, as far as you are using the Range statement you will have a menu appearing when typing the ".": "Range("A" & Rows.Count)."
Use this menu
Enjoy Excel, and thx for the Rep ...