Doing that, it doesn´t return the error anymore, but the macro still doesn´t copy the information :s, is it any complication with excel 2010?
2011/7/22 Rajan_Verma <rajanverma1...@gmail.com> > *Set Wb=ActiveWorkbook* > > * * > > *From:* excel-macros@googlegroups.com [mailto: > excel-macros@googlegroups.com] *On Behalf Of *Jorge Marques > *Sent:* Thursday, July 21, 2011 10:44 PM > *To:* excel-macros@googlegroups.com > *Subject:* $$Excel-Macros$$ Help Macro doesn´t work anymore, keeps giving > same error**** > > ** ** > > Hi guys, i have this macro i use to copy a range from column D of a > worksheet of a workbook to column G of another workbook and worksheet, but > it keeps giving me the same error saying that it´s "subscript out of range" > in the line in yellow.**** > > **** > > Public wb, wbmes As Workbook**** > > Sub filldatabase()**** > > Call AbrirFile > Call left**** > > wbmes.Close**** > > End Sub**** > > Private Sub AbrirFile()**** > > Dim Filter, Caption As String > Dim SelectedFile As Variant**** > > Set wb = ThisWorkbook**** > > > Filter = "Ficheiro XLS (*.xls),(*.xls)" > Caption = "Escolha o ficheiro a importar..."**** > > SelectedFile = Application.GetOpenFilename(Filter, , Caption)**** > > If SelectedFile = False Then Exit Sub**** > > Set wbmes = Workbooks.Open(SelectedFile, 1, 1)**** > > End Sub**** > > > Private Sub left()**** > > Dim a As Double**** > > wbmes.Activate > wbmes.Sheets("Total_Refrige").Select > wbmes.Sheets("Total_Refrige").Range(Range("D2"), > Range("D2").End(xlDown)).Copy > wb.Activate**** > > If wb.Sheets("Pivot").Range("G2").Value <> "" Then > wb.Sheets("Pivot").Range("G1").End(xlDown).Offset(1, 0).Select > Else > wb.Sheets("Pivot").Range("G2").Select > End If**** > > a = ActiveCell.Row**** > > wb.Sheets("Total Refrige").Paste **** > > Application.CutCopyMode = False**** > > i = a**** > > While wb.Sheets("Pivot").Range("G" & i).Value <> "" > i = i + 1 > > Wend**** > > End Sub**** > > **** > > Do you have any idea how to solve this?1000 thanks**** > > -- > > ---------------------------------------------------------------------------------- > 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 > -- ---------------------------------------------------------------------------------- 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