Avatar billede klatten Nybegynder
28. februar 2003 - 08:53 Der er 14 kommentarer og
1 løsning

Autonummerering i Excel

Hej

Jeg er ved at lave en lille nødløsning på nogle "pallesedler". Nu vi sender varer ud, skal hver palle være mærket med et unikt nummer.

Nu skal jeg have lavet ca. 200 pallesedler, med hver deres unikke nummer. Jeg har lavet en skabelon i Excel, men hvordan får jeg lavet en autonummering, så jeg kan udskrive alle samtidig.
Kunne forestille mig at jeg skulle flette med en database, men jeg har ikke Access på denne pc!
Avatar billede mugs Novice
28. februar 2003 - 09:02 #1
Marker kolonnen med det unikke nummer:

Rediger > Fyld > Serie
Avatar billede mugs Novice
28. februar 2003 - 09:03 #2
Du skal lige huske at skrive en startværdi i den øverste celle, f.eks 1
Avatar billede klatten Nybegynder
28. februar 2003 - 09:06 #3
Den funktion gør jo ikke andet end træk&slip kopiering
Avatar billede janvogt Praktikant
28. februar 2003 - 09:23 #4
Efter hvilket system skal autonummereringen ske?
Avatar billede klatten Nybegynder
28. februar 2003 - 09:29 #5
her http://home13.inet.tele.dk/kedde/PALLESEDDEL.xls

Eksemplet har nr. 2330 (og ja, jeg skal bruge den i 2 kopier)

Når jeg skriver ud, vil jeg så have fra nummer 2330 til nr 2550 ud.
Fortløbenede numre i trin af 1
Avatar billede klatten Nybegynder
28. februar 2003 - 09:31 #6
"løbenede" ...det var vel nok et flot ord, jeg lige fandt på der! :-)
Avatar billede janvogt Praktikant
28. februar 2003 - 09:35 #7
Du laver bare en løkke i VBA, som udskriver én side (med to numre), lægger én til, udskriver igen o.s.v.
Avatar billede klatten Nybegynder
28. februar 2003 - 09:36 #8
nåja, det gør jeg bare lige! :-)
Hvordan?

Har ikke forstand på VBA...ledte jo efter en indbygget funktion i Excel
Avatar billede janvogt Praktikant
28. februar 2003 - 09:43 #9
Lav først en formel i D10 som hedder =A10

Indsæt derefter følgende makro:

Sub Udskriv_pakkesedler()
    Range("A10:B10").Select
    For g = 2330 To 2550
        ActiveCell.Value = g
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next
End Sub

Når du så kører den, vil udskrive alle 221 sider.
Avatar billede janvogt Praktikant
28. februar 2003 - 09:45 #10
Måske skal du ændre linien
For g = 2330 To 2550 til f.eks.
For g = 2330 To 2332 mens du tester
for ikke helt at komme til at blokere printeren ....
Avatar billede janvogt Praktikant
28. februar 2003 - 09:47 #11
Hvis du ikke ved hvordan du indsætter makroen må du lige sige til, så vi kan lave en "manual".
Avatar billede klatten Nybegynder
28. februar 2003 - 09:49 #12
jeg vil da lige prøve!
Avatar billede janvogt Praktikant
28. februar 2003 - 09:51 #13
Ellers kan jeg også sende dig dit ark, hvor jeg har lagt koden på.
Avatar billede klatten Nybegynder
28. februar 2003 - 09:54 #14
Perfekt! 
Det virkede!
Avatar billede janvogt Praktikant
28. februar 2003 - 10:03 #15
Selvfølgelig :-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester