Moving files from a MAC to windows excel 2007

[mummbles74]

I have only ever done code on a mac before and wrote this code for an Invoice generation program. I am now using a windows laptop and can't seem to get it to work. Can anyone see any issues?

Sub Create_invoice()

Dim wb As Workbook
Dim wb2 As Workbook

counter = Range("B26") + 1



Workbooks("create invoice.xls").Activate
Range("a2:a10").Select
Selection.Copy
Workbooks("blank invoice.xls").Activate
Range("a10").Select
Selection.PasteSpecial paste:=xlValues
Application.CutCopyMode = False
Workbooks("create invoice.xls").Activate
Range("a13:a23").Select
Selection.Copy
Workbooks("blank invoice.xls").Activate
Range("a20").Select
Selection.PasteSpecial paste:=xlValues
Application.CutCopyMode = False
Workbooks("create invoice.xls").Activate
Range("e13:e23").Select
Selection.Copy
Workbooks("blank invoice.xls").Activate
Range("g20").Select
Selection.PasteSpecial paste:=xlValues
Application.CutCopyMode = False
Range("g8").Select
Selection = counter

'Workbooks("create invoice.xls").Activate
'Range("b26").Select
'Selection = counter
Workbooks("blank invoice.xls").SaveAs Filename:="invoice " & Range("g8").Value & ""
'ActiveWorkbook.PrintOut Copies:=1, Collate:=True
'ActiveWorkbook.SaveAs "C:\Any Folder\" & Range("A1").Value & ".xls"
answer = MsgBox("Do you want to print ?", vbYesNo)
If answer = vbYes Then Print_sheet
If answer = vbNo Then
End If
Workbooks("create invoice.xls").Activate
Range("b26").Select
Selection = counter

End Sub

Appreciate the help in advance

 

[Norie]

Well the first thing I can think of is - why are you using Excel/VBA in the first place?

If you want to transfer files aren't there other ways.

 

[mummbles74]

Sorry. I must not of explained what I meant properly. The files are all on the same computer. I was using a mac but I am now using a windows machine with excel 2007. The vba is for generating an invoice I put a few details in the create invoice file and it opens the file blank invoice creates the invoice gives them an incrementing invoice number and saves it as that number. Hope that makes it clearer. Appreciate the help.

 

[RoryA]

In what way specifically does it not work?

 

[mummbles74]

It just come up with an error9 code and does nothing.

 

[RoryA]

Error 9 is a subscript out of range error which, based on your code, is most likely due to a workbook name being incorrect. Did you save the file with an extension other than 'xls' for example?

 

[mummbles74]

Thanks for all your help again I have managed to find the problem. I had to add a line in at the top of the code to tell it to open the second workbook first. Something that you don't have to do on the mac. Note to self.