is it possible to attach the sheet? You can remove the data from it or
replace the values..
On Thu, Jul 21, 2011 at 11:04 PM, Jorge Marques <leote.w...@gmail.com>wrote:
> Yes, the names are all ok, i double checked it, even try to change names,
> but doesn´t work :S
>
> 2011/7/21 Anish Shrivastava <anish....@gmail.com>
>
>> Please check if the sheet name is "Pivot".
>> if not then rename it to Pivot.
>> On Thu, Jul 21, 2011 at 10:44 PM, Jorge Marques
>> <leote.w...@gmail.com>wrote:
>>
>>> 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
>
--
----------------------------------------------------------------------------------
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
