Print og skift fakturanummer

Jeg forstår ikke helt hvad du mener. Beskriv hvad du har (Excel ark) og hvad du præcist vil med det.

Hvis du har et ark der hedder Faktura og Fakturanummeret er i Celle F1 så sæt denne kode ind i ThisWorkbook modulet.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save' gør at mappen gemmes hvis du glemmer det.
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
svar = MsgBox("Vil du udskrive faktura og opdatere fakturanummer")
Application.EnableEvents = False
If svar = vbOK Then
Sheets("Faktura").PrintOut' skriver faktuaren ud
Sheets("Faktura").Range("F1") = Sheets("Faktura").Range("F1") + 1 ' lægger 1 til fakturanummeret.
End If
Application.EnableEvents = True
End Sub

kabbak du har hermed besvaret mig spørgsmål. :)

Jeg takker mange gange.

Jeg kan se du er ny, her på eksperten.

For at give point for et rigtig svar, kræves det at vedkommende har givet et svar og ikke en kommentar.

Hvis vedkommende ikke har givet et svar, beder man om at få et svar så man kan give point.

Når så vedkommende har givet et svar, markerer man hans navn i boksen til venstre og trykker accepter.


I dette tilfælde har du selv lagt et svar og accepteret dig selv, så du har fået pointene tilbage, og jeg har ikke fået nogen.

;-))

upps sorry der, beklager.

Er der nogen måde jeg kan ændre det på ?