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
