fakturanr - oprette i exel regneark

vis lige dit loop, så vi kan se hvad det er der skal overføres

Koden er som følger:

Sub fakturanr()

Dim x, y
x = 1 (kan sætte variabelt)
y = 10 (kan sætte variabelt)
Do While x<y
Debug print x (dette er for at se om koden virker)
x = x + 1
Loop

End Sub

Så vidt jeg kan se vil din kode altid returnere nr. 9
Hvis det er det samme regneark du åbner hver gang for at lave en faktura kunne koden ligne det her. Den tæller 1 op når den åbnes og gemmer derefter sig selv og er så klar til at du kan skrive i den og tilsidst gemme i nyt navn. Du skal ændre A1 så det passer med den celle du ønsker nummeret i.

sub auto_open()
x=range("A1").value + 1
range("A1").value=x
thisworkbook.save
end sub

Hej bak
tak for det !
Det virker - jeg har også prøvet at tilknytte koden til en makorknap, og det virker også
Hilsen Hanne

hanne > det med makroknappen er også bedst, ellers skal min makro vist laves lidt om, for når man åbner den nye faktura vil den jo også blive talt een op.
Måske er det derfor du tog pointene selv :-)

Eller også må jeg jo lære at svare og ikke bare kommentere ;-)

undskyld "bak" jeg er ny i dette forum, du har virkelig hjulpet mig og jeg beklage det med pointene - jeg har ikke være opmærksom på, hvordan man afslutter problemet. Men jeg er virkelig glad for din løsning - endnu engang undskyld
Hanne

helt iorden, Hanne og velkommen. :-)

Jeg har været lidt for hurtig - koden virker godt nok, men dækker ikke helt mit behov. Jeg vil meget gerne have fakturaen er en skabelon, og åbnes fra skalbelonbiblioteket. Men det kan godt være at man så ikke kan sætte fakturanr. på v.h.a. makroknap. Alternativet er måske at den automatisk sætte nr. når den åbnes, dette kan også accepteres. Er der nogen der kan hjælpe mig ??

Hilsen Hanne

Ok, Hanne.
Hvis det er en skabelon du vil bruge kan nedenstående kode benyttes. (Der er faktisk mange måder at gøre det her på).
1. Opret en tekstfil i notepad.
2. Skriv det første fakturanr. du ønsker i første linie og gem filen    hvor du ønsker (lokalt eller på nettet hvis flere skal bruge den)
3. Kør makroen

Den åbner tekstfilen (du ændrer selv 1. linie), henter nummeret,
lukker tektfil igen.
Åbner den igen og lægger 1 til nummeret, og gemmer igen.
Tilsidst placerer den det sidste nummer i feltet A1.


Sub faknr()
FakFil = "C:\Dokumenter\Faktura.txt"
Open FakFil For Input As #1
Line Input #1, GlNr
Close #1
Open FakFil For Output As #1
NyNr = Val(GlNr) + 1
Print #1, NyNr
Close #1
Range("a1").Value = NyNr
End Sub

Hej Bak
Nu er jeg "forvirret på et højere plan". Hvorfor skal notepad involveres ? Jeg har prøvet at gøre som du sidst har skrevet, men det giver ingen mening. Det eneste der kommer frem, når jeg åbner filen efter at have lavet hele proceduren  er  en blank side med et nr. oppe i venstre hjørne (altså ingen regneark) Er det fordi jeg tester koderne i et regneark, hvori  jeg kun har oprettet formlen der skal beregne fakturanr, eller er det fordi den sidste kode du har skrevet til mig skal tilknyttes den makro jeg allerede har lavet, og i givet fald er det så "den skabelon" hvor den er tilknyttet, der skal gemmes som .txt fil ? Eller va...
(Jeg håber du kan forstå, hvad jeg mener !)
Ideen med mit projekt var, at jeg kunne åbne:
-exel
- vælge filer og ny
- vælge skabelonen "min faktura" og så vil fakturaen komme frem. Jeg skal så udfylde faktura (med diverse beregninger) klikke på makroknappen "tildel fakturanr" og så er fakturanr. (som selvfølgelig skal være fortløbende)sat på fakturaen.
- udskrive min faktura
- gemme fakturaen i "mappe faktura..."
- lukke exel
Jeg ved godt at der allerede findes i "standardfaktura" i exel, der kan opfylde ovennævnte betingelser, men den er ikke god nok, idet jeg på fakturaen skal have angivet nogle ting, den ikke tager højde for. Jeg har selvfølgelig også prøvet om jeg kunne se koderne bag denne - men der skal adgangskode til for at komme ind og se VBA'en bag dem.
Jeg er naturligvis åben for alle andre løsninger - hvis jeg altså kan finde ud af dem.

P.S. Hvad skal jeg gøre for at du får de point, jeg skylder dig og som du så rigeligt har fortjent ?
Hanne

Hanne > Det er ikke meningen at du skal åbne tekstfilen i notepad mere end 1. gang hvor du ligger første nummer ind. Derfter skal du glemme alt om den. Excel skal nu bruge den til at holde styr på hvilket nummer du er nået til.
Nu putter du makroen (den sidste) ind i din skabelon og tilknytter en knap og gemmer skabelonen.
Når du nu vælger ny og "min faktura", trykker du på knappen og A1 vil så indeholde et nyt nr.
Hvis du er i tvivl så send lige en mail til tommybak@netscape.net evt. med telefon nr.
Bak

Bak > Nu har jeg fattet det. - selvfølgelig  - .txt filen er en "hjælpefil", der håndtere nummereringen af fakturanr.  Jeg har afprøvet det, og det virker.TAK
:o)Hanne