I misread your original post. I will leave it to Shane to talk to you about
his code which does not work for me either unless the Text Workbook is
activated by the code.

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"climate" wrote in message
...
Hi sandy & shane
Thank's for your responses
Would you please explain your prior response?because not works it
correctly
or my be i can't run it.
yours
"ShaneDevenshire" wrote:

Hi,

assuming you have at least row 1 and 2 containing somethin in column I of
the Text.xls file:

Sub coppMy()
Dim myRow As Long
myRow = ActiveCell.Row
Range("H" & myRow & ":BP" & myRow).Copy

Workbooks("Text.xls").Sheets("Sheet1").Range("I1") .End(xlDown).Offset(1,
0).PasteSpecial
Application.CutCopyMode = False
End Sub


--
Thanks,
Shane Devenshire


"climate" wrote:

Hello
Please suppose that, the following is a matrix at my first file and on
sheet1.
Column H is numbered irregularly and columns I to BP is labled.

H I J K L ...........
BP
age gen weight job tall
245 28 F 42 stud 143
789 14 M 33 stud 111
7700 56 F 63 artist 164
1289 31 F 61 dentist 165
..... ... . .. ........
...
..... ... . .. ........
...
I need to a macro, when i input [245,789,7700,...] and [age,
job,tall,....]
then related data cell (28,stud,143,.....) copy to test.xls on sheet1
and set
to second row and column I.
Thank's for any help.
best regards