Thanks you sir, i will try to do it On Mon, Jul 12, 2010 at 12:45 PM, George <use...@ccx-grads.org> wrote:
> Hi Ankit, > > You can run this code and enjoy. > > Sub Macro1() > Columns("A:A").Select > Selection.Copy > Windows("as.xls").Activate > Columns("B:B").Select > ActiveSheet.Paste > Windows("a.xls").Activate > Columns("C:C").Select > Application.CutCopyMode = False > Selection.Copy > Windows("as.xls").Activate > Columns("A:A").Select > ActiveSheet.Paste > Windows("a.xls").Activate > Columns("D:D").Select > Application.CutCopyMode = False > Selection.Copy > Windows("as.xls").Activate > Columns("H:H").Select > ActiveSheet.Paste > Windows("a.xls").Activate > Columns("E:E").Select > Application.CutCopyMode = False > Selection.Copy > Windows("as.xls").Activate > Columns("D:D").Select > ActiveSheet.Paste > Windows("a.xls").Activate > Columns("F:F").Select > Application.CutCopyMode = False > Selection.Copy > Windows("as.xls").Activate > Columns("G:G").Select > ActiveSheet.Paste > Windows("a.xls").Activate > Columns("G:G").Select > Application.CutCopyMode = False > Selection.Copy > Windows("as.xls").Activate > Columns("E:E").Select > ActiveSheet.Paste > Windows("a.xls").Activate > Columns("H:H").Select > Application.CutCopyMode = False > Selection.Copy > Windows("as.xls").Activate > Columns("F:F").Select > ActiveSheet.Paste > Range("A1").Select > Application.CutCopyMode = False > ActiveWorkbook.Save > Windows("a.xls").Activate > Range("A1").Select > MsgBox ("done") > End Sub > > On 11 Лип, 20:45, Ankit Agrawal <ankit.agrawal...@gmail.com> wrote: > > hello sir, > > > > I am newly in excel. I need your help. I have two files name a.xls & > as.xls. > > File a.xls having some data and as.xls having a structure. now problem is > > that I want to copy these data into as.xls with a click because I have > more > > 100 file for same and impossible to copy & paste. I know it can happen > with > > MS excel but I dont know how? > > > > Although I am sending these file but I am giving some detail below > > > > Column 'A' of a.xls will go on column 'B' of the as.xls > > Column 'C' of a.xls will go on column 'A' of the as.xls > > Column 'D' of a.xls will go on column 'H' of the as.xls > > Column 'E' of a.xls will go on column 'D' of the as.xls > > Column 'F' of a.xls will go on column 'G' of the as.xls > > Column 'G' of a.xls will go on column 'E' of the as.xls > > Column 'H' of a.xls will go on column 'F' of the as.xls > > > > Please consider my problem and give me a solution of it.In my opinion it > may > > solve by macros but i do not know how to use the macros so please suggest > me > > > > thank you for your consideration. > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > HELP US GROW !! > > We reach over 7000 subscribers worldwide and receive many nice notes about > the learning and support from the group.Let friends and co-workers know they > can subscribe to group at > http://groups.google.com/group/excel-macros/subscribe > -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 7000 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe