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
