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