17. november 2011 - 14:20Der er
17 kommentarer og 1 løsning
Automatisk fakturanr.
Hej Jeg har nu siddet længe og kæmpet med at få det til at virke, men nu må jeg ty til hjælp Jeg har fundet en kodelinie herinde som jeg vil bruge til nummerering af mine fakturaer
Sub auto_open() 'Denne sub køres automatisk når regnearket åbnes i Excel
filnummer = FreeFile Dim Fakturanummer As String
If IsEmpty(Range("i15").Value) Then Open "C:\Users\Peter\Desktop\faktura.txt" For Input As #filnummer Line Input #filnummer, Fakturanummer 'Putter 1. linie ind i Varenummer Close #filnummer Range("i15").Select ActiveCell.Value = Val(Fakturanummer) + 1 End If
Load frmFakturadata
End Sub
Sub auto_close() 'Denne sub køres automatisk når regnearket lukkes i Excel
Dim filnummer As Integer filnummer = FreeFile
If IsEmpty(Range("i15").Value) Then Exit Sub Else Range("i15").Select
Open "C:\Users\Peter\Desktop\faktura.txt" For Output As #filnummer Print #filnummer, ActiveCell.Value 'Skriver indholdet af celle A2 til filen Close #filnummer End If
End Sub
Denne kopierer jeg ind i Excel 2007 > F11 > Insert > Module
Dette gemmer jeg som "Mappe1" på skrivebordet I denne prøve har jeg ikke andet liggende i excel dokumentet.
Herefter har jeg oprettet "nyt tekstdokument" og kaldt det faktura, og gemt det på skrivebordet. Jeg skrev 25 i dokumentet, og intet andet står i det dokument.
Jeg har kikket i koden, (som jeg nu ikke forstår så meget af) men jeg får det ikke til at virke, Kan i give mig en hånd, så får i til gengæld 100 point
Jeg har dog valgt at lade min køre med en knap der henter nummeret når man er færdig med at skrive i den. Dette gør jo også man kan arbejde i filen over flere omgange før den skal skrives ud.
Av ja, nu vil jeg lige kikke på #2 link, men kan du ikke lige fortælle lidt om hvordan du har lavet en løsning med en knap, eller skulle jeg måske oprette en ny tråd med det spørgsmål :-)
Jeg har to knapper der ligger udenfor udskriftområdet, og de hedder "gem som" og "fakturanummer". Man kan tilføje en kanp i arket, og tildele en makro til denne knap. Er du interesseret i at se min skabelon, så send din mail adresse til mig. Er du ikke interesseret i at andre ser den, så send den over intern post. Der er flere tråde om min faktura skabelon her: http://www.eksperten.dk/list/spoergsmaal/220661
Du skal ind i indtillingerne og tilføje funktionen. Og det gøres i værktøjslinien hurtig adgang. Mener det er det samme i både 2007 og 2010 versionerne.
Så har jeg sendt den til dig. Når man indtaster navn på kunde på side 1 føres det automatisk over på de andre sider. Der hvor der stå 0 over kundenavn er fordi jeg nogle gange skal bruge feltet lige over "navn". Det bruges specielt hvis jeg skal skrive til et firma, hvor der er en henvisning til en person, som jeg så skriver under navn. Held og lykke med at prøve den. Jeg har kort i mailen fortalt hvordan den virker.
Undskyld svartiden, men har desværre været indlagt på OUH (Odense sygehus)for noget fjernelse af noget kræft.
Ja jeg kunne godt bruge din skabelon, men har ikke haft den store tid til at kikke på det endnu, men det ser godt ud. Jeg håber stadig jeg kan få hjælp herinde til trods for jeg har været væk længe
Mange tak, det er jeg glad for, og her også en ros til sundhedsvæsenet i Danmark For lidt over 14 dage før operationen fandt de ud af at det var galt fat, og her gik det så stærkt, først et hav af undersøgelser, blodprøver og hvad ved jeg, og så under kniven Det gik godt, og efter omstændighederne tror jeg det går rimeligt okay med mig, nu går det jo forhåbentligt kun fremad. Så jeg kan kun rose vores dejlige velfærdssamfund, de gør virkeligt hvad de kan med de penge de har i vores fælles økonomiske krise.
Ja en forudsætning for at blive kureret for kræft er en hurtig aktion, lige så snart man opdager det Jeg vil ønske dig en god bedring efter operationen og en god jul og nytår.
Mvh John
PS Tak for point
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
