Navigation


   problem med side fod
Ville gærne kunde lave en text som er auto genereret den del har jeg løst men jeg vil kærne kunde kombinere dem

det jeg vil lave er en fodnote med følgne text (er det auto genereret)
Opdatere af: (bruger der har gemt sist)    -    Opdateret den: (Siste gemdte dato og kl dd/mm/yyyy hh:mm:ss)

Jeg kan lave celler med data og kan lave en VBA til at læge en celle ned i side foden

jeg arbejder 3 veje enten at få det i en celle eller få lavet VBA som læger det ind så den læger det ind fra flere celler eller en siste muligehed er at få vba der læger det i side foden til at træke data direkte så det ikke skal ind i en celle først

nogle der har nogle gode bud


kode (laver celle A1 med texten usernavn og celle B2 dato og tid når den gemmes)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("A1").Value = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
    Range("B1").Value = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Sub


Kode (til at lave sidefod fra celle A1)

For Each Worksheet In Me.Worksheets 'activeworkbook
    Worksheet.PageSetup.LeftFooter = Worksheet.Range("A1").Value
    
Next Worksheet


End Sub

Navigation

VBA til Sidefod