I have created my own invoice. I need a counter that automaticly counts 1
number op after printing the invoice. I schould be able to shot down the
computer an turn it of without that special number disapers. I need some kind
of of a macro to put into a cell in exel where a have created my invoice. It
has to be a macro that can be used by everyone anywhere. I havent found one
on the net yet. Funny that no one has given it a thougth that it migth be
needed. ANYONE OUT THERE WHO CAN HELP ME ?????????????

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...el.programming

I think this is a fairly common request.

see (watch for wrapping):
http://groups.google.com/group/micro...+number&qt_g=1
for a list of (some of the) responses from the generous people of this NG.

Without knowing more about your own requirements I can't really comment
- it depends on whether people will be using (indeed able to access( the
same workbook, template, network drive etc. Everyone, anywhere is a tall
order. How does someone running on a standalone laptop know what
invoices other people are generating? You could preface invoice numbers
with someone's initials maybe?

I'm sure the above link should point you in the right direction.

HTH

Vestmc wrote:
I have created my own invoice. I need a counter that automaticly counts 1
number op after printing the invoice. I schould be able to shot down the
computer an turn it of without that special number disapers. I need some kind
of of a macro to put into a cell in exel where a have created my invoice. It
has to be a macro that can be used by everyone anywhere. I havent found one
on the net yet. Funny that no one has given it a thougth that it migth be
needed. ANYONE OUT THERE WHO CAN HELP ME ?????????????

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...el.programming

I am a bookkeerer not a programer but i do use the following for purchases
orders that should be the same for you invoices. The invoice number will
change before print instead of after, but we got used to that. You will have
to save it when your done but I use Sub Workbook_Open() & Sub
Workbook_SheetActivate(ByVal Sh As Object) to clear all cells I may have put
information into on my last PO. The SheetActivate is so I can clear all by
just clicking on the tabs).

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Integer
Dim Ans As String

If Not ActiveSheet.Name = ("INVOICE") Then Exit Sub
Ans = MsgBox("Do you wish to add 1 to your INVOICE #?", _
vbQuestion + vbYesNo, Application.UserName)
If Ans = vbNo Then Exit Sub
i = [K1]
i = i + 1
[K1] = i
End Sub

The MsgBox is so the PrintPreview does not mess up the PO number.
All subs are in ThisWorkbook not a Module.
I hope this at least helps some.

--
Mike Q.


"Vestmc" wrote:

I have created my own invoice. I need a counter that automaticly counts 1
number op after printing the invoice. I schould be able to shot down the
computer an turn it of without that special number disapers. I need some kind
of of a macro to put into a cell in exel where a have created my invoice. It
has to be a macro that can be used by everyone anywhere. I havent found one
on the net yet. Funny that no one has given it a thougth that it migth be
needed. ANYONE OUT THERE WHO CAN HELP ME ?????????????

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...el.programming