Replies

Hi Rory

I can’t thank you enough, worked like a dream.

PS where do you get your patience from I would like to get some

Regards

Braddy

Hi Rory

I have done as you said, but it still comes up with the debug

29043-error

Many Thanks

Braddy

Hi Rory
I did make the change you suggested the full code as below
Thanks

Private Sub Workbook_Open()

Dim strFile As String
With ThisWorkbook
strFile = “c:mybackuppo_” & LCase$(.Sheets(1).Range(“B8”).Text) & “.xls”
If LCase$(.FullName) strFile Then .SaveAs strFile

End With
With Sheets(1).Range(“B8”)
.NumberFormat = “00000”
.Value = .Value + 1
End With

End Sub

Hi Rory

I am sorry if I am confusing you, It’s not an error as such, what happens is when I open it the first time it works fine, then when I open it a second time the number in B8 does not increase by 1, the message I get is the warning that there is already there is already a file with this name do you want to overwrite. As shown above.
I cant’ understand why B8 won’t increment on the second and subsequent runs.

Hope this is clearer

Many Thanks
Braddy

Hi Rory

It seems to run once then I get this 29040-error

Regards

Braddy

Hi Rory

I’m sorry if I am missing something but isn’t this in your original code

Regards
Braddy

With Sheets(1).Range(“B8”)

Hi Rory

I thought I might attach file.

Regards

Braddy29039-dpc_purchase_order-_final

Hi Rory

It appears that the B8 Won’t increment and I get this message

29038-error29037-error

Regards Braddy

Hi Rory
Sorry to bother you further but I need to add my code to increment B8, but I can’t get the sequence correct
Thanks
Braddy

Private Sub Workbook_Open()
ActiveSheet.Unprotect Password:=”aab”
With Range(“B8”)
.NumberFormat = “00000”
.Value = .Value + 1
End With
Dim strFile As String
With ThisWorkbook
strFile = “c:mybackuppo_” & LCase$(.Sheets(1).Range(“B8”).Text) & “.xls”
If LCase$(.FullName) strFile Then .SaveAs strFile(this is the part highlighted
End With
End Sub

Hi Rory

That’s great thanks, could I impose a littler further B8 is formatted with leading zeros, is it possible to for it to save as 00001
Thanks
Braddy

Hi Rory
Thanks for the reply, when I enter the code this line shows red for error Private Sub Workbook_Open()Dim strFile As String

Regards
Braddy

Hi Guys

Thanks for the prompt reply, this works for me
Regards
Braddy

Hi RockE
Thanks for your observations, there was a typo, I tried to code by hand in the end I used the wizard in Dreamweaver, it seem OK now.

Thanks again
Braddy

Hi Rory

I hear what you say, only it’s not my spreadsheet it sent to me by the creator, however I may have,as you say other alternatives

Regards
Braddy

Hi RetiredGeek

Thank you very much for your reply and information, that’s excellent.
A big thank you to all for the replies
Regards
Braddy