mr Nobody Postad 6 december, 2021 Share Postad 6 december, 2021 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 Länk till kommentar Dela på andra webbplatser More sharing options...
Mikael63 Postad 13 december, 2021 Share Postad 13 december, 2021 Se Länk till kommentar Dela på andra webbplatser More sharing options...
mr Nobody Postad 13 december, 2021 Trådskapare Share Postad 13 december, 2021 Har försökt med denna guide som du hänvisade till och den vill inte fungera. Länk till kommentar Dela på andra webbplatser More sharing options...
Mikael63 Postad 14 december, 2021 Share Postad 14 december, 2021 Det som står hos http://www.cpearson.com/excel/headfoot.htm dvs detta: ActiveSheet.PageSetup.LeftHeader = _ Format(Worksheets("Sheet2").Range("B5").Value) fungerar hos mig men jag måste köra koden för att det ska slå igenom/uppdateras. Länk till kommentar Dela på andra webbplatser More sharing options...
Ove Söderlund Postad 14 december, 2021 Share Postad 14 december, 2021 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... Mikael63 reagerade på detta 1 Länk till kommentar Dela på andra webbplatser More sharing options...
Solution mr Nobody Postad 17 december, 2021 Trådskapare Solution Share Postad 17 december, 2021 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 More sharing options...
Rekommendera Poster