automatisk numerering

Kan du ikke uddybe??? - er det en VBA genereret autonumber??

JEG SKAL BRUGE AUTONUMERING I TILBUDS FORMULARER SÅ DET ER EN VBA GENERERET AUTONUMMER DER TÆLLER 1 OP HVER GANG JEG ÅBNER EN NY FORMULAR

ja det er ikke så svært du kan bruge en txt fil til at holde nummeret eller du kan ligge det ind i registerdatabasen
med savesetting og hente den igen med getsetting
txt metoden
kan jeg skrive til din mail hvis du skriver den her
\\Tonny

klik på mit navn på denne side, så har du min e-mail

her er en enkelt kode der virker opret en faknr.txt på dit c drev og skriv det sidste faknummer du brugte i den
Open "c:\FakNr.txt" For Input As #1
    Line Input #1, a$
Close #1
fak = Val(a$)
fak = fak + 1
Open "c:\FakNr.txt" For Output As #1
    Print #1, Str(fak)
Close #1
Selection.TypeText Text:="Faktura " + Str(fak)
ActiveDocument.PrintOut

du skal oprette en makro og derefter redigere og copy ovenstående text ind

\\Tonny

jeg ved ikke hvor jeg skal placere den

jeg har oprettet en txt fil på c:\og skrevet  nr 500 i den makroen er oprettet i mit tilbuds ark (excel)men jeg får en fejl 
runtime error´52`bad file name or number

har du husket at kalde filen faknr.txt

Sub Makro1()

det er her du skal paste altså mellem sub makro og end sub

End Sub

Makro1 Makro
' Makro indspillet 18-04-2000 af dfi as
'
' Genvejstast:Ctrl+z
'Open "c:\tilbud nr.txt" For Input As #1
Line Input #1, a$
Close #1
til = Val(f$)
til = til + 1
Open "c:\tilbud nr.txt" For Output As #1
Print #1, Str(til)
Close #1
Selection.TypeText Text:="tilbud " + Str(til)
ActiveDocument.PrintOut
End Sub her er makroen filen på c drevet hedder "tilbud nr"og er TXT fil wodpad syntaxen er en kopi af makroen

'Open "c:\tilbud nr.txt" For Input As #1
fjern ' foran open
til = Val(f$)
a$ istedet for f$

Sub Makro1()

copy alt som det er her under og opret så faknr.txt og se om ikke det virker
det skal virke det er begynder kode
jeg har selv lige testet
Open "c:\FakNr.txt" For Input As #1
    Line Input #1, a$
Close #1
fak = Val(a$)
fak = fak + 1
Open "c:\FakNr.txt" For Output As #1
    Print #1, Str(fak)
Close #1
   
Label1.Caption = "tilbud" + Str(fak)

lav en form med en knap og en label
paste ovenstående ind i knap koden

så kan du se om det virker

ja og så er det jo exel vi skriver til så deeeettt
ActiveCell.FormulaR1C1 = "tilbud " + Str(til)

nu skulle der ikke være nogen undskyldning her er hele koden igen men denne gang til excel :0)

sub makro1()
Open "c:\FakNr.txt" For Input As #1
    Line Input #1, a$
Close #1
fak = Val(a$)
fak = fak + 1
Open "c:\FakNr.txt" For Output As #1
    Print #1, Str(fak)
Close #1
    ActiveCell.FormulaR1C1 = "Faktura 450-" + Str(fak)
    Range("A2").Select
end sub

du kom til igen at kalde dukomentet for faktura som følge deraf fik jeg en fejl jeg omdøbte straks txt filen og nu virker det  næsten den skriver 450-1 450-2 450-3 osv er det så meningen at jeg skal køre makroen hver gang jeg åbner et dokument (nyt tilbud)det er ikke undskyldninger jeg kommer med jeg er bare ikke klogere

nu har jeg fjernet 450 og - så nu virker den når jrg skriver 500 i txt fil tæller den 1 op hver gang jeg køre makroen 501 502 503 osv nu mangler jeg kun at finde en smart måde at køre makroen på det kunne være en besked box i starten en  makro der udskriver og markere cellen hvor jeg ønsker at tilbuds nummeret udskrives i når jeg åbner en nyt tilbud tilbudet er færdig

du kan tildele en genvej på tastaturet eller lave en menulinie knap
jeg laver bare sjov med undskyldninger
hvis du ikke kan få den til at lave genvej eller ikon så skriv lige så kan jeg forklare det :0)

\\Tonny

du kan med !!range("CELLE").select!! angive hvilken celle der skal skrives i

det med faktura er fordi jeg bruger koden til en af mine faktura
(jeg er vognmand :0)