I have many files.
Any file has data on column X and special range.
I need to a code when run it on any file, open Box similar to following:
response=InputBox("Enter new row number") and after i input row number,
then copy of data on column X and it's Range, paste to new row number on
sheet2.
Example for my first file: data on column X has Range (X2:X570),after run
code, new row number in Box is 7644,then, copy of data paste to sheet2 and
new Range
(X7644:X8214).

regards

You don't say which sheet has the original data in X2:X570 so I'll pick
Sheet1

Private Sub Workbook_Open()
Dim rng As Range
Set rng = Sheets("Sheet1").Range("X2:X570")
rownum = InputBox("enter a row number")
rng.Copy Destination:=Sheets("Sheet2").Range("X" & rownum)
End Sub


Gord Dibben MS Excel MVP

On Wed, 31 Mar 2010 01:58:02 -0700, climate
wrote:

I have many files.
Any file has data on column X and special range.
I need to a code when run it on any file, open Box similar to following:
response=InputBox("Enter new row number") and after i input row number,
then copy of data on column X and it's Range, paste to new row number on
sheet2.
Example for my first file: data on column X has Range (X2:X570),after run
code, new row number in Box is 7644,then, copy of data paste to sheet2 and
new Range
(X7644:X8214).

regards

Hi Gord
Your code work's correctly.
Thank you very much

regards
climate

"Gord Dibben" wrote:

You don't say which sheet has the original data in X2:X570 so I'll pick
Sheet1

Private Sub Workbook_Open()
Dim rng As Range
Set rng = Sheets("Sheet1").Range("X2:X570")
rownum = InputBox("enter a row number")
rng.Copy Destination:=Sheets("Sheet2").Range("X" & rownum)
End Sub


Gord Dibben MS Excel MVP

On Wed, 31 Mar 2010 01:58:02 -0700, climate
wrote:

I have many files.
Any file has data on column X and special range.
I need to a code when run it on any file, open Box similar to following:
response=InputBox("Enter new row number") and after i input row number,
then copy of data on column X and it's Range, paste to new row number on
sheet2.
Example for my first file: data on column X has Range (X2:X570),after run
code, new row number in Box is 7644,then, copy of data paste to sheet2 and
new Range
(X7644:X8214).

regards

.

Good guess<g

Thanks for the feedback.


Gord

On Thu, 1 Apr 2010 09:53:01 -0700, climate
wrote:

Hi Gord
Your code work's correctly.
Thank you very much

regards
climate

"Gord Dibben" wrote:

You don't say which sheet has the original data in X2:X570 so I'll pick
Sheet1

Private Sub Workbook_Open()
Dim rng As Range
Set rng = Sheets("Sheet1").Range("X2:X570")
rownum = InputBox("enter a row number")
rng.Copy Destination:=Sheets("Sheet2").Range("X" & rownum)
End Sub


Gord Dibben MS Excel MVP

On Wed, 31 Mar 2010 01:58:02 -0700, climate
wrote:

I have many files.
Any file has data on column X and special range.
I need to a code when run it on any file, open Box similar to following:
response=InputBox("Enter new row number") and after i input row number,
then copy of data on column X and it's Range, paste to new row number on
sheet2.
Example for my first file: data on column X has Range (X2:X570),after run
code, new row number in Box is 7644,then, copy of data paste to sheet2 and
new Range
(X7644:X8214).

regards

.