Excel aut. nummerering

Kan vi se den kode, du bruger eller (hvis du bruger den præcis, som du ellers har fundet den herinde) laver du en henvisning til der, hvor du har fundet den?

http://www.eksperten.dk/spm/614711

Det er den her jeg har kigget i.

Koden er :
Private Sub Workbook_Open()

If ActiveWorkbook.Name = "Fak1" Then
    Worksheets("Faktura").Range("H13") = Worksheets("Faktura").Range("H13") + 1

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs FileName:="Fak", FileFormat:=xlTemplate
    Application.DisplayAlerts = True

    StiNavn = "C:\Faktura\"
    Filnavn = StiNavn & "Fak" & Format(Worksheets("Faktura").Range("H13"), "0000")
    If Dir(Filnavn & ".xls") = "" Then
        Worksheets("Faktura").Range("H12") = Date
        Worksheets("Faktura").Range("H17") = Date + 15 + IIf(WeekDay(Date + 15) = 1, 1, IIf(WeekDay(Date + 15, 2) = 7, 2, 0))
        ActiveWorkbook.SaveAs FileName:=Filnavn, FileFormat:=xlNormal
        Worksheets("Faktura").Range("H14").Select
    Else
        MsgBox "Fakturanummer " & Format(Worksheets("Faktura").Range("H13"), "0000") & " eksisterer allerede. Programmet afsluttes", vbCritical + vbOKOnly, "Kritisk fejl!"
        Application.Quit
    End If
End If

End Sub


Jeg har ikke brug for selve betalingsdato delen.

De første koder sjap skriver virker gangske fint, men når jeg så skal bruge

If ActiveWorkbook.Name = "Fak1" Then
    Worksheets("Faktura").Range("H13") = Worksheets("Faktura").Range("H13") + 1


så virker den ikke.

Janni

mit egentlige problem er, at når man åbner et ark der har fået tildelt et nummer, så tæller den op på det ark.

Det skal den ikke !

Havde leget lidt med ideen om at koden ikke skulle overføres til det nye ark, men jeg er ikke skide stærk i VBA.

Janni

Den første del af koden er der, hvor du siger, at det ikke virker. Men dit problem er vel egentlig ikke, at det ikke virker, men at det rent faktisk gør? Du vil ikke have, at den får et automatisk nummer? Eller hvad?

I øvrigt får den kun et nyt nummer, hvis din fil hedder Fak1 - og det gør den vel ikke, når du har gemt den og åbner den igen?

jo faktisk .. jeg åbner templaten (FAK1). Mit problem er at jeg ikke kan få den til at generere et nyt når jeg åbner templaten.

Det lyder til, at du bruger din fil forkert. Du skal ikke åbne templaten (som hedder Fak og ikke Fak1). Du skal dobbeltklikke på den, så får du en ny "tom" fil (den hedder så reelt Fak1, indtil den er gemt, hvilket sker automatisk), som:

1. laver et nyt nummer
2. gemmer filen som template (oven i den eksisterende, så templaten altid har det senest generede nummer)
3. gemmer filen igen, nu som en alm. Excel-fil og navngivet med det nummer, som lige er dannet

Hej Word-haj


Du har helt ret.
Tak for hjælpen
Smider du et svar ??


Janni

Velbekomme :-)