=idag() må ikke ændres dagen efter

Skal det være i en enkelt håndtering - eller i en makro, der gør det automatisk?

Den manuelle håndtering er simpel. Kopiér cellen med datoen, marker den samme celle > Rediger > Indsæt speciel > Værdier. Tryk OK. Så har du fjernet formlen, men datoen står tilbage.

Gem fakturadatoen i en celle
så er formlen fakturadatoen +D31

klarede den sådan
-------------------------------
Sub TestAfGem()

    Range("E7:G7").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B8:G8").Select

Dim A, C
Set A = Range("B8")
Set C = Range("C17")

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


VAPTI = "C:\" & A & C & ".xls"
 
        ActiveWorkbook.SaveAs Filename:=VAPTI, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
       
    Range("E7:G7").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("B8:G8").Select

End Sub
-------------------------------

mange tak til jer begge
smid nogle svar

Kommer her!

Vil lige nævne for en god orden - at det er x-lars der har lavet det resterende i makroen :)

tillægsspg.
fakturanummer skal være +1 hvergang ovenstående makro køres - hvordan gør jeg det ?

/søren

Private Sub fakturanummer()
Application.ScreenUpdating = True
If Range("A1").Value <> "" Then
MsgBox "BILAGET ER ALLEREDE NUMMERERET!!"
Exit Sub
End If
Range("A1").Select
Open "C:\fakt.txt" For Input As #1
Line Input #1, a$
Close #1
fak = Val(a$)
fak = fak + 1
Open "C:\fakt.txt" For Output As #1
Print #1, Str(fak)
Close #1
ActiveCell.FormulaR1C1 = Str(fak)
Range("B2").Select
End Sub

Lav først en fil i Wordpad, der hedder "fakt.txt". Den skal ligge i C:\ og den skal kun indeholde et 0 (nul).

Det virke meget avanceret iforhold til at excel bare skal:

find celle
læs tal
plus tal med 1
skriv nye tal

/søren

Excel kan ikke huske indholdet af anvendte variabler fra gang til gang. Alt er væk, når du lukker programmet. Derfor er omvejen, hvor du gemmer det sidst anvendte fakturanummer i en særskilt fil, nødvendig.

ok - tak for hjælpen