put sheetnames always in double quotes Sheets("PRIPRAVA_PROJEKTA").
On Thu, Jan 27, 2011 at 9:23 PM, Seba <sebastjan.hri...@gmail.com> wrote:

> Hi,
>
> I made the following change for sheet name and I get the error
> "Subscript out of range". Sheets(1) -> Sheets(PRIPRAVA_PROJEKTA)
>
> 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 As Long
> s = 1
> k = 1
>  Dim x As String
>   Dim temp As String
>
>  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(PRIPRAVA_PROJEKTA).Select
>  Workbooks.Open Filename:=Sheets(PRIPRAVA_PROJEKTA).Range("a" &
> i).Value
>  Set ask2 = ActiveWorkbook
>  Sheets(PRIPRAVA_PROJEKTA).Select
>
>  Range("A1").Select
>  ActiveCell.SpecialCells(xlLastCell).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 + 1
>
>  Range("A" & z).Select
>  ActiveSheet.Paste
>  ActiveWorkbook.Save
>  ask2.Activate
>  ask2.Close
>  End If
>
> Next i
> 'abc:
> 'Exit Sub
> Application.DisplayAlerts = True
> End Sub
>
> -------------------------
> regards
> seba
>
>
> On 27 jan., 16:44, ashish koul <koul.ash...@gmail.com> wrote:
> > shannur  can you attch the sample workbook
> >
> > On Thu, Jan 27, 2011 at 9:13 PM, ashish koul <koul.ash...@gmail.com>
> wrote:
> >
> > > 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@googlegrou...>
> >
> > >> > > <><><><><><><><><><><><><><><><><><><><><><>
> > >> > > 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 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@googlegrou...>
> >
> > >> <><><><><><><><><><><><><><><><><><><><><><>
> > >> 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 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@googlegrou...>
> >
> > >> <><><><><><><><><><><><><><><><><><><><><><>
> > >> 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 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@googlegrou...>
> >
> > >> <><><><><><><><><><><><><><><><><><><><><><>
> > >> 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
> >
> > ...
> >
> > preberite več >>
>
> --
>
> ----------------------------------------------------------------------------------
> 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

Reply via email to