counter in excel ?

Mar 7th, 2002, 07:01 AM

How can I put in a counter in the folder, it may be visible, and save it ? What I'd like to become is, next time I open a new folder the counter should be increased by one, only when I've saved the previous one. Macro's ?

Thanx

lenze · Mar 7th, 2002, 08:18 AM

This should do what you want

First, Define a Named Range "Counter" in you excel Worksheet

Then, place this code in the ThisWorkbook module.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim myCounter As Variant

myCounter = Range("Counter").Value
myCounter = myCounter + 1
Range("Counter").Value = myCounter

End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 7th, 2002, 07:01 AM	#1
Guest Posts: n/a	How can I put in a counter in the folder, it may be visible, and save it ? What I'd like to become is, next time I open a new folder the counter should be increased by one, only when I've saved the previous one. Macro's ? Thanx

Mar 7th, 2002, 08:18 AM	#2
lenze MrExcel MVP Join Date: Feb 2002 Location: Helena, MT Posts: 13,690	This should do what you want First, Define a Named Range "Counter" in you excel Worksheet Then, place this code in the ThisWorkbook module. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim myCounter As Variant myCounter = Range("Counter").Value myCounter = myCounter + 1 Range("Counter").Value = myCounter End Sub