Vba Auto Increment File Name Too Long For Destination

We have to make sure that the new increment is unique even in the case. IntMax As Integer On Error GoTo ErrorHandler 'File's name strFile. 2014 VBA Express. Vba Auto Increment File Name Length Windows. Copy Destination: =Cells. The specified path, file name. Increment a numerical string You are encouraged to.

I am looking for VBA to add to my macro that will increment the file name if the file name already exists. Current Code: Dim filepath As String Dim filename As String Dim filepatharch As String Dim filedate As String Dim filelist As String 'Grab FROM list number Sheets('TD File').Select Range('G4'). Install Xbmc On Dune Hd Solo. Select filelist = ActiveCell.Value 'Grab today's date filedate = Format(Now, 'MMDD01.'

I have a spreadsheet/file that is used as an invoice (will be attached below). Where the BLACK square is (Q25) we need to have an invoice number that will increase by one each time it's opened.

For example, if it's currently LUNV01-1, once it's saved and closed, the next time it's opened, it should say LUNV01-2, etc. And while I'm 'at it', will it matter if this is saved as a 'save as.' And he saves it by another name, should it be made a 'template' and then have him 'save as.' The reason I'm asking is so that it doesn't get 'ruined' if it's saved wrong, etc. Thanks so much! BTW, I should advise you that I'm a total neophyte when it comes to creating macros and working in VBA (I'm using Excel 2007, but my friend is using a previous version which is why it's in 'compatibility mode'.) So if I need to do this, please explain where I need to 'go' and what I need to do. And the macros that he already has come up as being turned off, but they do re-enable -- however, I had to delete all pages behind this front one to make the file small enough to attach.

But they're not relevant to the invoice numbering issue.:>) Maggie. Code: Private SaveButton_Click 'Hidden sequence number in any cell e.g. A1 Range('A1') = Range('A1') + 1 'increment hidden sequence num nosoumission = noclient & '-' & Range('A1') Sheets('Feuil1').Range('Q25') = nosoumission ActiveWorkbook.SaveAs ('c: MyFolder ' & nosoumission) 'Clear Entry fields (including cell Q25) ready for next invoice End SubWhen finished entering invoices save the workbook as the Master invoice. This will save the latest hidden invoice counter number ready when the master is opened again. Where do I do all of the above?