Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketVBA til Sidefod

 Besvar Besvar
Forfatter
TheBonden Se dropdown
Sølv bruger
Sølv bruger


Medlem: 23.Feb.2012
Status: Offline
Point: 120
Direkte link til dette indlæg Emne: VBA til Sidefod
    Sendt: 08.Apr.2021 kl. 13:11
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
Til top



Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk