Hi my name is Sandy. I am trying to create an excel workbook that both my boss and I can access and edit through Dropbox. The file is an invoice with and A/R ledger. As of now I am the only one who can open the file in dropbox. When my boss tries to open the file he receives the following error message...
Excel cannot open the file GHAMasterInvoice.xlsm because the file format or file extensionis not valid. Verify that the file has not been corrupted and that the file extension matches the format of the file.
This is what my macros look like as of now:
Sub Posttoregister()
Dim WS2 As Worksheet
Dim WS3 As Worksheet
Set WS2 = Worksheets("master invoice")
Set WS3 = Worksheets("AR Ledger")
nextrow = WS3.Cells(Rows.Count, 1).End(xlUp).Row + 1
WS3.Cells(nextrow, 1).Resize(1, 4).Value = Array(WS2.Range("e3"), WS2.Range("e4"), WS2.Range("c6"), Range("e36"))
End Sub
Sub NextInvoice()
Range("E4").Value = Range("e4").Value + 1
Range("b15:D34").ClearContents
End Sub
Sub Macropdf()
Posttoregister
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\users\sraynor\Dropbox (Legend's Hospitality)\SMA-FPA-TOY\SMA\Invoices.pdf", quality:=xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, openafterpublish:=True
Range("A1").Resize(44, 6).Select
End Sub
Sorry for the lengthy post as I am a novice when it comes to excel. I thank you in advance for your help.
Excel cannot open the file GHAMasterInvoice.xlsm because the file format or file extensionis not valid. Verify that the file has not been corrupted and that the file extension matches the format of the file.
This is what my macros look like as of now:
Sub Posttoregister()
Dim WS2 As Worksheet
Dim WS3 As Worksheet
Set WS2 = Worksheets("master invoice")
Set WS3 = Worksheets("AR Ledger")
nextrow = WS3.Cells(Rows.Count, 1).End(xlUp).Row + 1
WS3.Cells(nextrow, 1).Resize(1, 4).Value = Array(WS2.Range("e3"), WS2.Range("e4"), WS2.Range("c6"), Range("e36"))
End Sub
Sub NextInvoice()
Range("E4").Value = Range("e4").Value + 1
Range("b15:D34").ClearContents
End Sub
Sub Macropdf()
Posttoregister
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\users\sraynor\Dropbox (Legend's Hospitality)\SMA-FPA-TOY\SMA\Invoices.pdf", quality:=xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, openafterpublish:=True
Range("A1").Resize(44, 6).Select
End Sub
Sorry for the lengthy post as I am a novice when it comes to excel. I thank you in advance for your help.