Just nu i M3-nätverket
Gå till innehåll

Cellvärde i sidhuvudet


mr Nobody
 Share

Go to solution Solved by mr Nobody,

Rekommendera Poster

Hej.

 

Skulle behöva hjälp med att få upp ett cellvärde till sidhuvudet. 

Jag hittade några svar på forumet men det verkar inte funka för mig, kan vara

att dessa guider är för äldre varianter på Excel, använder själv Office 365.

 

Har förstått att man måste använda sig av VBA men jag lyckas inte få till koden så att

detta funkar klockrent.

 

Det jag vill göra är att värdet som finns i cellen J2 ( AND211010-3 ) i det aktuella bladet

skall finnas i det högra sidhuvudet i samma blad, så att det blir som på bilden. 

Jag antar att raden ovanför ( &Page/7 ) måste finnas med i koden också.

Går det att få så att detta uppdateras automatiskt så fort värdet i J2 ändras?

 

mvh Patrik

Skärmklipp.JPG

Länk till kommentar
Dela på andra webbplatser

Ove Söderlund

Det korta svaret är; Nej, det du vill göra stöds tyvärr inte i Excel.

 

Den enkla lösningen är att koppla ett makro till en knapp eller kortkommando och lägga in en kod i stil med:

 

Sub Test()

    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = "&P / &N" & Chr(10) & CStr(ActiveSheet.Range("J2"))
    End With

    ActiveSheet.PrintOut
    
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
    End With

End Sub

 

Du kan kanske labba med att simulera cell-referenser som beskrivs på följande sida:

How can I put a value from a cell into a footer or page header? / answers.microsoft.com

Lite som att gå över ån efter vatten att ge sig på detta kan jag tycka i detta fall...

 

 

  • Gilla 1
Länk till kommentar
Dela på andra webbplatser

  • Solution

Hej.

 

Tack för hjälpen, nu lyckades jag få till det så att allt funkar. Jag kopplade koden till samma knapp som används vid utskriften så nu funkar det klockrent. Det vart inte så mycket kod i slutändan när man visste vilka som skulle användas 😏

 

Citat

Sub Utskrift_akt() '
 

Application.ScreenUpdating = False

 

Dim i As String


i = Sheets("Arbetsprotokoll").Range("AA22")


 Sheets(i).PageSetup.RightHeader = ""
        
 Sheets(i).PageSetup.RightHeader = "&P / 7" & Chr(10) & CStr(Sheets(i).Range("J2"))

Application.ScreenUpdating = True


Application.Dialogs(xlDialogPrint).Show Arg1:=2, Arg2:=1, Arg3:=7, Arg4:=1, Arg12:=3


End Sub

 

Länk till kommentar
Dela på andra webbplatser

 Share

×
×
  • Skapa nytt...