Hvordan kan man lave Forløbne ark/faner hvor eksempelvis ark1 skal være 1 og den næste fane skal så være 2 og den næste skal være 3 og det skal ske automatisk når man trykker + for nyt ark
Mit problem er at jeg kører fakturering i LOTUS og vil gerne over i Exell. I Lotus når man starter i et ark kan man dobb klikke og skrive eks 6700 som faktureringsnr- og når jeg trykker på næste ark så lægger den automatisk et nummer til som så svarer til mit faktureringsprogram nummer som er tudse gammelt. Jeg ville så gerne at når jeg trykker nyt ark så siger den eks 6701 - 6702-6703 osv.
Du kan bruge denne kode. Den skal lægges på kodearket for ThisWorkbook (Denne projektmappe).
Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim Navn As Integer, Arknavn As Integer, NextSheet As Integer, NytArkNavn As Integer
Navn = Sheets.Count - 1 Sheets(Navn).Activate Arknavn = ActiveSheet.Name NytArkNavn = CInt(Arknavn) + 1 NextSheet = Navn + 1 Sheets(NextSheet).Activate ActiveSheet.Name = NytArkNavn End Sub
Den lægger 1 til det seneste nummer, som er anvendt som arkfane, når der oprettes et nyt ark. Det er vigtigt at navnet på den første fane KUN indeholder tal.
Åbn den mappe i Excel, hvor det skal bruges. Tryk Alt+F11. I ruden til venstre dobbeltklikker du på ThisWortkbook (DenneProjektmappe på dansk). Kopier koden til det store blanke område. Luk igen VBA editoren, og gem projektmappen. Så skulle det grrme virke.
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.