VIsual basic code

[Arash_The_A_Level_Student]

Hi Could I have the code for automatically saving and exiting a workbook also when this is done 250 times I would like a message box to come up to say a custom message

 

[Arash_The_A_Level_Student]

please?

 

[Mark O'Brien]

Wow, impatient aren't we? It's only been 7 minutes from your first post, did you even try to solve it yourself?

<pre>
Public Sub Closeworkbooks()

Dim Wkbk As Workbook
Dim i As Integer

'Turn off alerts if you don't care about overwriting workbooks with the same names
Application.DisplayAlerts = False
For Each Wkbk In Workbooks
If Not Wkbk Is ThisWorkbook Then
Wkbk.Save
Wkbk.Close
i = i + 1
If i = 250 Then
MsgBox "250 workbooks have been closed by the impatient A Level Student."
End If
End If
Next
End Sub
</pre>

 

[Arash_The_A_Level_Student]

Yeah I am impatient, I tried to slove it but I was very frustrated by this, anyway thanks for helping

 

[Arash_The_A_Level_Student]

Sub Exit_Save()
'
' Exit_Save Macro
' Exits And Saves The Excel Workbook
Dim Wkbk As Workbook
Dim i As Integer

'Turn off alerts if you don't care about overwriting workbooks with the same names
Application.DisplayAlerts = False
For Each Wkbk In Workbooks
If Not Wkbk Is ThisWorkbook Then
Wkbk.Save
Wkbk.Close
i = i + 1
If i = 2 Then
MsgBox "You have Saved Your Invoice 250 Times, It's Time To Save Your Invoice Onto Removeable Media"
End If
End If
Next
End Sub

'

This is the code I have entered on the VB editor but it doesn't work could you please give more assistance, thanks

 

[Arash_The_A_Level_Student]

please

 

[Daniel Cremin]

cant help you there. Whats your minor/major project about (im doing the NEAB's A2 in ICT myself). Mines an advanced student attainment system with loads of specialised reporting features, flashy little features,etc.

 

[Arash_The_A_Level_Student]

I'm doing the minor project for AS........bloody annoying

 

[Arash_The_A_Level_Student]

It's an invoice system that every 250 times its exited the user is prompted to save his files onto a CD writer, it's alot more complicated but thats the bulk of it

 

[Daniel Cremin]

wow thats pretty cool (the 250 bit i mean especially). Mine has an update students bit where it can take student records from one workbook to another by selecting a name from a combo box and a feature that auto-saves a workbook as a pre-defined workbook