20. august 2009 - 10:01Der er
7 kommentarer og 1 løsning
Hjælp til fejl i makro
Hej,
Er der nogen der kan fortælle mig hvad jeg gør forkert her:
Private Sub Workbook_Open() End Sub Sub Navngiv_ark_celle_B9() Sheets(ActiveSheet.Name).Name = Range("B9") End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.EnableEvents = False If svar = vbOK Then Sheets("Faktura").PrintOut Sheets("Faktura").Range("B9") = Sheets("Faktura").Range("B9") + 1 End If Application.EnableEvents = True End Sub
Det jeg vil er:
Ved åbning af ark ændres fraktura nr. (det sker allerede) SAMTIDIG skal arket ændre navn til det faktura nr (det sker ikke :-S)
Det skal lige siges at jeg er MEGET nybegynder - så jeg skal have det skåret ud i pap :-)
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Så vidt jeg kan se, så mangler du at kalde din Navngiv_ark_cell_B9 procedure når Excel startes op.
Hvis du bruger denne kode så burde det virke.
Private Sub Workbook_Open() Navngiv_ark_celle_B9 End Sub Sub Navngiv_ark_celle_B9() Sheets(ActiveSheet.Name).Name = Range("B9") End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.EnableEvents = False If svar = vbOK Then Sheets("Faktura").PrintOut Sheets("Faktura").Range("B9") = Sheets("Faktura").Range("B9") + 1 End If Application.EnableEvents = True End Sub
Jeg prøver igen - jeg har rettet din kode til, der var noget jeg synes var overflødigt... eksempelvis din if sætning.
Private Sub Workbook_Open() Navngiv_ark_celle_B9 End Sub Sub Navngiv_ark_celle_B9() Sheets(ActiveSheet.Name).Name = Sheets("Faktura").Range("B9") End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Faktura").PrintOut Sheets("Faktura").Range("B9") = Sheets("Faktura").Range("B9") + 1 End Sub
hvis du mener det skal være med, kan du blot sætte det ind igen :)
Kan du ikke prøve at sende dit excelark på ck@officekonsulenterne.dk så skal jeg kigge på det :)
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.
