use 2 for second sheet or 3 for 3 rd sheet like
sheets(2).select or you can also sheets("abc").select
Workbooks.Open Filename:=Sheets(1).Range("a" & i).Value
Set ask2 = ActiveWorkbook
Sheets(1).Select
@shannur can you send a sample workbook
On Thu, Jan 27, 2011 at 9:04 PM, shannu shannu <shannur...@yahoo.com> wrote:
> Hi Ashish,
>
> Life and death matter, I have a workbook and again it has diff sheets like
> sheet 1 to sheet 11. and now my task is to copy unique names from sheet 1
> search in other sheets if it is existing then I need to copy only those row
> from the diff sheets and create a fresh new workbook and name the workbook
> with that name of the person
>
> Regards,
> Shannur
>
> --- On *Thu, 1/27/11, ashish koul <koul.ash...@gmail.com>* wrote:
>
>
> From: ashish koul <koul.ash...@gmail.com>
>
> Subject: Re: $$Excel-Macros$$ build a database from multiple workbooks
> To: excel-macros@googlegroups.com
> Date: Thursday, January 27, 2011, 2:10 PM
>
>
>
>
>
>
> On Thu, Jan 27, 2011 at 11:37 AM, ashish koul
> <koul.ash...@gmail.com<http://us.mc1200.mail.yahoo.com/mc/compose?to=koul.ash...@gmail.com>
> > wrote:
>
> Sub consolidatefromdifferentworkbooks()
> Application.DisplayAlerts = False
> 'On Error GoTo abc
> Dim ask As Workbook
> Dim ask2 As Workbook
> Dim ASK3 As Workbook
> Set ASK3 = ActiveWorkbook
> Dim i As Long
> Dim j As Long
> Dim N, z, r, s, k, d As Long
> s = 1
> k = 1
> Dim x As String
> Dim temp As String
> Dim sht As Worksheet
>
> Set ask2 = ActiveWorkbook
> Sheets(1).Select
> Range("A65356").Select
> Selection.End(xlUp).Select
> r = ActiveCell.Row
>
> Workbooks.Open Filename:=ThisWorkbook.Sheets(1).Range("b2").Value
> Set ask = ActiveWorkbook
>
> For i = 2 To r
> 'Workbooks(Range("a" & i).Value).Windows(1).Visible = False
> ASK3.Activate
> Sheets(1).Select
> Workbooks.Open Filename:=Sheets(1).Range("a" & i).Value
> Set ask2 = ActiveWorkbook
>
> For d = 1 To ask2.Sheets.Count
> Sheets(d).Activate
> Sheets(d).Select
> Range("A1").Select
> ActiveCell.SpecialCells(xlLastCell).Select
>
>
> ' Selection.End(xlToRight).Select
> '
> '
> 'temp = ActiveCell.Address
> 'x = Mid(temp, 2, (InStr(2, temp, "$") - 2))
> '
> '
> '
> ' Range("A65356").Select
> ' Selection.End(xlUp).Select
> N = ActiveCell.Row
> If N >= 2 Then
> Rows("1:" & N).Select
>
> Selection.Copy
>
> 'Sheets.Add After:=Sheets(Sheets.Count)
> ask.Activate
> ask.Sheets(1).Activate
> Sheets(1).Select
> Range("A1").Select
> ActiveCell.SpecialCells(xlLastCell).Select
>
> z = ActiveCell.Row + 2
>
> Range("A" & z).Select
> ActiveSheet.Paste
> ActiveWorkbook.Save
> ask2.Activate
> End If
> Next d
> ask2.Activate
> ask2.Close
>
> ask.Activate
> ask.Sheets(1).Activate
>
> ActiveWorkbook.Save
> Next i
> 'abc:
> 'Exit Sub
> Application.DisplayAlerts = True
> End Sub
>
>
> On Thu, Jan 27, 2011 at 11:23 AM, Squall
> <squall.l...@gmail.com<http://us.mc1200.mail.yahoo.com/mc/compose?to=squall.l...@gmail.com>
> > wrote:
>
> Hi guys,
>
> Could you please share us the coding especially when helping... it really
> help to improve those being helped (especially me) to understand the vba
> macro/coding. Sometimes when I try to open the module/code, it's protected
> by password :(
>
> Nonetheless, thanks for the help.
>
>
>
> On 1/26/2011 10:33 PM, ashish koul wrote:
>
> try this macro see if it helps
>
>
>
> On Wed, Jan 26, 2011 at 4:22 PM, Seba
> <sebastjan.hri...@gmail.com<http://us.mc1200.mail.yahoo.com/mc/compose?to=sebastjan.hri...@gmail.com>
> > wrote:
>
> Hello,
>
> how can I upload the file, as I see in the notification, this is no
> longer possible.
>
> However, if you can imagine my situation:
>
> I have data in columns from A to O and in rows from 1 to 100. The data
> is in the same rows and columns in all workbooks.
> Now I need the data to be copied from all this workbooks (and all new
> ones I create) to a new workbook serving as a database.
>
> However all columns allways contain some data, whereas the rows may
> not. It could be the case that only the 1st row contains any data.
>
> I hope this helps a bit.
>
> Thank you for the help.
>
> Best regards,
>
> seba
>
> On 17 jan., 18:38, ashish koul
> <koul.ash...@gmail.com<http://us.mc1200.mail.yahoo.com/mc/compose?to=koul.ash...@gmail.com>>
> wrote:
> > send us the sample workbook
> >
> >
> >
> > On Mon, Jan 17, 2011 at 12:10 AM, Seba
> > <sebastjan.hri...@gmail.com<http://us.mc1200.mail.yahoo.com/mc/compose?to=sebastjan.hri...@gmail.com>>
> wrote:
> > > Hello all,
> >
> > > I have a question regarding building a database. I have a workbook for
> > > each of my projects. I would like to have a macro, which would extract/
> > > copy certain data (always in the same rows and columns) to a new
> > > workbook, which would serve as a database.
> >
> > > Could anyone please help?
> >
> > > Thank you in advance.
> >
> > > Best regards,
> >
> > > seba
> >
> > > --
> >
> > >
> ----------------------------------------------------------------------------------
> > > 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 athttp://www.excel-macros.blogspot.com
> > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
> >
> > > To post to this group, send email to
> > > excel-macros@googlegroups.com<http://us.mc1200.mail.yahoo.com/mc/compose?to=excel-macros@googlegroups.com>
> >
> > > <><><><><><><><><><><><><><><><><><><><><><>
> > > Like our page on facebook , Just follow below link
> > >http://www.facebook.com/discussexcel
> >
> > --
> > *Regards*
> > * *
> > *Ashish Koul*
> > *akoul*.*blogspot*.com <http://akoul.blogspot.com/>
> > *akoul*.wordpress.com <http://akoul.wordpress.com/>
> > My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>
> >
> > P Before printing, think about the environment.
>
> --
>
> ----------------------------------------------------------------------------------
> 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<http://us.mc1200.mail.yahoo.com/mc/compose?to=excel-macros@googlegroups.com>
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
>
>
>
> --
> *Regards*
> * *
> *Ashish Koul*
> *akoul*.*blogspot*.com <http://akoul.blogspot.com/>
> *akoul*.wordpress.com <http://akoul.wordpress.com/>
> My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>
>
>
> P Before printing, think about the environment.
>
>
> --
>
> ----------------------------------------------------------------------------------
> 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<http://us.mc1200.mail.yahoo.com/mc/compose?to=excel-macros@googlegroups.com>
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
>
> --
>
> ----------------------------------------------------------------------------------
> 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<http://us.mc1200.mail.yahoo.com/mc/compose?to=excel-macros@googlegroups.com>
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
>
>
>
> --
> *Regards*
> * *
> *Ashish Koul*
> *akoul*.*blogspot*.com <http://akoul.blogspot.com/>
> *akoul*.wordpress.com <http://akoul.wordpress.com/>
> My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>
>
>
> P Before printing, think about the environment.
>
>
>
>
>
> --
> *Regards*
> * *
> *Ashish Koul*
> *akoul*.*blogspot*.com <http://akoul.blogspot.com/>
> *akoul*.wordpress.com <http://akoul.wordpress.com/>
> My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>
>
>
> P Before printing, think about the environment.
>
> --
>
> ----------------------------------------------------------------------------------
> 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
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
> --
>
> ----------------------------------------------------------------------------------
> 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
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
--
*Regards*
* *
*Ashish Koul*
*akoul*.*blogspot*.com <http://akoul.blogspot.com/>
*akoul*.wordpress.com <http://akoul.wordpress.com/>
My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>
P Before printing, think about the environment.
--
----------------------------------------------------------------------------------
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
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
