Makro som skal plusse en til celle værdi

Lige en lille detalje.
Mit dokument opretter et helt nyt dokument, hvordan får man den til kun at oprettet et nyt ark, men oplysningerne fra det gamle?
Den skal også lukke det nye ark igen (altså det med & filnavn & som navn)
Og så vende tilbage til det første ark og så skal den plusse 1 til celle L7 og celle L8
Koden ser således ud til hele makroen:

Sub LavFaktura()

    Columns("I:I").Select
    Sheets("Faktura Tom").Select
    Range("B1").Select
    Sheets("Faktura Tom").Select
    Sheets("Faktura Tom").Copy
    Columns("I:I").Select
    Selection.EntireColumn.Hidden = True
    Columns("J:J").Select
    Selection.EntireColumn.Hidden = True
    Columns("K:K").Select
    Selection.EntireColumn.Hidden = True
    Columns("M:M").Select
    Selection.EntireColumn.Hidden = True
    Columns("N:N").Select
    Selection.EntireColumn.Hidden = True
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("B1").Select
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
    FilNavn = Range("L7").Value
    ActiveWorkbook.SaveAs Filename:="D:\regnskab\" & FilNavn & ".xls"
   
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 1
   
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True

End Sub

Range("E8").Value = Range("E8").Value + 1

erstat E8 med dit cellenavn.

Jeg har kun svaret på dit oprindelige spørgsmål. Det er ikke helt rimeligt at du efterfølgende udvider spørgsmålet (synes egentligt at du skulle oprette et nyt spørgsmål til den del af dit problem).

Tja og så er jeg alligevel dum nok til at prøve at løse dit problem alligevel ;o)

I koden efter du har kopieret alle dine oplysninger over i det nye ark, kan du tilføje:

ActiveWorkbook.Close
Range("L7").Value = Range("L7").Value + 1
Range("L8").Value = Range("L8").Value + 1

Hvorvidt du vil gøre det før eller efter din udskrift kan jeg ikke overskue.

Sådan, du klarede det!
Jeg har så bare en lille ting!
Værdierne i de 2 felter som får plusset 1 til er f.eks.:
1 eller 4
Men når jeg så når op på 250, så ligger de jo ikke alfabetisk iorden!
Kan man på en smart måde gør så den starter med 000001 og så 000002, 000003, 000004....... 000250 osv. ?

Krycek

Heh, kan da godt lave en nyt spørgsmål med lidt flere points, hvis det er det du hentyder til?

Hvis du har fået svar på det hele her, så kan du jo bare øge pointene for dette her spørgsmål (det gør man vistnok øverst til venstre - et eller andet sted).

Prøv at ændre filnavnet til

Filnavn = Format(Range("L7"), "000000")

Smider den så bare 6 nuller foran alt? eller finder den selv ud af at der kun skal 3 nuller foran 250 ?

Prøv det!

Når talformatet angives til "000000" betyder det at det ALTID skal vises med 6 cifre. Hvis tallet kun har ét ciffer fyldes resten med 0'er. Du kan faktisk prøve at formatere en celle på den måde, så kan du se hvad jeg mener (Menuen Formater/Celler vælg fanebladet Tal og marker "Brugerdefineret" og til højre skrives så de 6 0'er i Type-feltet).

Kanon, mange tak for det

Jamen skulle det være en anden gang...  - og mange tak for pointene!