|
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 |