Gemme en faktura i endatabase

Skal databasen være i Excel eller i Access? Det er jo også muligt af gemme hver faktura som en fil forsig med fakturaNr som navn?
Er der kun en faktura i Excel (i et ark) ad gangen?
Hvor mange linier er der afsat til en faktura.

Jeg ville helst hvis det kunne være en database i excel, da jeg ikke er så sikker i access. Og sådan at den gemmer hver enkelt faktura under faktura nummeret. Fakturaen fylder kun et ark i excel og der er afsat 54 linier og 4 koloner til den. Den er ikke større end at den kan være på 1 A4 ark når den bliver udskrevet.

I hvilken celle står fakturanummer?

Det gør det i celle D8.

Jeg har lavet en løsning, der går ud på følgende:

Faktura er lagret som skabelon .xlt (Har anvendt den færdige fakturaskabelon fra Excel, som grundlag).

Der er i denne tilføjet en knap, der udskriver og gemmer den producerede faktura under navnet: Faktura_<fakturanr> i samme mappe.
Knappen har forbindelse med denne makro, der er lagret i et modul.

Endvidere opdateres fakturanr, der gemmes i en tekstfil - i samme mappe.

Sub UdskrivGemFaktura()
Const xsti = "d:\Eksperten\ExcelFakturaDB\"                'Tilpasses
Dim faktNr
    On Error Resume Next
   
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
   
    faktNr = ActiveWorkbook.Sheets(1).Cells(3, 13)          'Skal tilpasses
   
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Eksperten\ExcelFakturaDB\faktura_" + CStr(faktNr) + ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
   
Rem Opdater FakturaNr
    faktNr = faktNr + 1
   
    Open xsti + "næsteFakturaNr.txt" For Output As #1
    Write #1, faktNr
    Close #1
   
    ActiveWorkbook.Close
End Sub

Når der ønskes udformet en ny faktura - kaldes fakturaskabelonen og fakturanummeret hentes fra tekstfilen:

Denne makro er placeret i ThisWorkbook i skabelonen:

Sub workbook_activate()
Const xsti = "d:\Eksperten\ExcelFakturaDB\"              'Tilpasses
   
Rem Hent næste fakturaNr
    Open xsti + "næsteFakturaNr.txt" For Input As #1
    Input #1, fakturanr
    Close #1
   
    ActiveWorkbook.Sheets(1).Cells(3, 13) = fakturanr    'Tilpasses
End Sub


Cellen, hvor fakturanr er lagret er p.t. i M3 (cells(række_3,kolonne_13) -tilpasses til D8 (cells(række_8,kolonne_4)

I givet fald kan du få mit eksempel - send en mail til: pb@supertekst-it.dk

Super program. det virkede bare.

Det var jo godt :-)

Vi skal vel afslutte "sagen"?

ja, det synes jeg vi skal, jeg skal bare lige hjave fundet ud af hvordan jeg får givet dig nogle point.

Hvis du vil fortælle mig det, skal jeg give dig dem med det samme. undskyld for vente tiden, men er helt ny her inde, og skal lige finde ud af det.

Mvh.

Hepygula

OK - der skulle være en liste over de modtagne svar - udpeg det ønskede svar - mener det er noget i den retning - har ikke selv prøvet det.