26. marts 2009 - 20:23
Der er
2 kommentarer og 1 løsning
auto faktura nummer
Jeg har 3 ark i en projekt mappen ark1 er faktura master ark2 kunde list ark3 oversigt og faktura beløb osv. jeg ar en makro som kopier ark1 i sammen projekt mappen hvergang jeg skal lave en faktura kan jeg gøre det til auto star med et faktura nummer i celle F15 jeg har en projekt mappen pr. mdr. her er makro Sub Nyfaktura() ' ' Nyfaktura Makro ' Makro indspillet 21-03-2009 af alijan ' ' Sheets("Master").Select Sheets("Master").Copy After:=Sheets(3) Sheets("Cutomer List").Select End Sub
Annonceindlæg fra Computerworld
AI-agenterne kommer vrimlende
Virksomheder er på vej fra store sprogmodeller, der svarer på spørgsmål, til AI-agenter, der kan udføre opgaver på egen hånd. Det gør teknologien mere nyttig – og langt mere risikabel.
26. marts 2009 - 22:45
#1
Lav din makro om til: Sheets("Master").copy After:=Sheets(3) Sheets(4).name = Str(Year(Now()) * 100000 + Month(Now()) * 1000 + ActiveWorkbook.Sheets.Count - 3) Sheets(4).range("F15").value = Sheets(4).Name Sheets("Cutomer List").Select Første faktura i april 2009 får nummer 200904001. Den næste 200904002. Arkene får fakturanummeret som navn i stedet for Master (2)
26. marts 2009 - 22:51
#2
Hvis du gerne vil have et fortløbende numerisk fakturanummer (et tal) skal makroen således i stedet: Sheets("Master").range("F15").value = Sheets("Master").range("F15").value + 1 Sheets("Master").copy After:=Sheets(3) Sheets(4).name = Sheets("Master").range("F15").value Sheets("Cutomer List").Select Du skal bare huske når du starter på en ny måned at kopiere celle F15 fra den gamle mappe til den nye.