Hele stien i sidefod

Syntaks

INFO(type)

Type  er tekst, der angiver, hvilken type information der skal returneres.

Type    Returnerer
"bibliotek"    Stinavn for det aktuelle bibliotek eller den aktuelle mappe
"ledighuk"    Ledig hukommelse i byte.
"brugthuk"    Hukommelse anvendt til data
"antalfil"    Antal aktive regneark
"oprindelse"    Absolut A1-referencemåde som tekst med "$A:" foran, der skaber kompatibilitet med Lotus 1-2-3 version 3.x. Returnerer cellereferencen i den øverste venstre celle, der er synlig i vinduet.
"osversion"    Aktuel operativsystemversion i form af tekst
"genberegn"    Aktuel genberegningstilstand. Returnerer "Automatisk" eller "Manuel"
"version"    Microsoft Excel-version i form af tekst
"system"    Operativmiljøets navn:
Macintosh = "mac"
Windows = "pcdos"
"hukialt"    Samlet mængde ledig hukommelse, herunder allerede anvendt hukommelse, i byte

Aarhhh det kom til at stå lidt skidt

Løsning .... INFO("bibliotek")

HVOR skal jeg skrive det?
Det virker ikke når jeg skriver det i sidefoden.

Det kan kun lade sig gøre i makroeditoren.
Tryk Alt-F11
I project-explorer fin ThisWorkBokk og indsæt følgende makro

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.FullName
End Sub

Hmmm .... syns heller jeg kan få det til at funke .... jeg prøver mig lige  lidt frem !

Nå det ser ud til der er kommet en løsning :o)

Sub Sti()
A = MsgBox("Vil indsætte stien til XL Regnearket i sidefoden ", vbYesNo, "FILPLACERINGEN BLIVER ANGIVET PÅ UDSKRIFT  v.Holger Bak ©")
If A = 6 Then
  Application.ScreenUpdating = False
      Application.StatusBar = "Ændrer sidefod i" & ActiveSheet.Name
        ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.Path & "\" & " &F"
    Application.StatusBar = False
    End If
End Sub

Tusind tak bak, din løsning virker perfekt! Hvordan kan jeg give dig point???

bak, du må trykke "Svar", så du kan få pointene!

Tommy og Holger >> Kender i hinanden ?? ...... (bak)

Jeg tror ikke vi kender hinanden :-)

Næ, efternavnet er vist en tilfældighed

angående mit svar, så har jeg skriptet til at ligge i Person.Xls,
så kan jeg kalde det når jeg får brug for det.