Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
selective cells
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 |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
selective cells
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 |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
selective cells
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 |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
selective cells
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
selective cells | Excel Worksheet Functions | |||
Selective on Name | Excel Discussion (Misc queries) | |||
Selective Trendlines | Charts and Charting in Excel | |||
Selective cell changes | Excel Worksheet Functions | |||
Merging multiple worksheets (selective cells) | Excel Discussion (Misc queries) |