Automatisk spørgsmål om Sidehoved / fod

Anvend en userform ved åbning af en ny xls.fil - evt. på basis af en skabelon (dato, kl., sti og side)- variable data via VBA.

Jeg tror at du kan få noget ud af det

Sub kasseklade_Sideho()
    With ActiveSheet.PageSetup
        .LeftHeader = [A1].Value
        .LeftHeader = "&""Verdana,normal""&12" & [Oplysninger!B2].Value & "  " & [Oplysninger!B3].Value
        '.CenterHeader = ""
        '.RightHeader = [A3].Value
        '.LeftFooter = ""
        '.CenterFooter = "Prøve"
        '.RightFooter = ""
    End With
End Sub

Hmm, ovenstående bliver jeg ikke meget klogere af :) Så er der en venlig sjæl der vil sende userformen til mig ?

Således at når jeg opretter en ny stykliste popper der et vindue op og spørger efter de nævnte ting ?

Eller måske en lidt bredere forklaring, så jeg selv kan prøve ;)

Læg makroen ind i et mudul

Sub kasseklade_Sideho()
    With ActiveSheet.PageSetup
        .LeftHeader = [A1].Value
        .RightHeader = [A3].Value
    End With
End Sub


skrive noget i A1 + A3
og køre makroen, opretter den automatisk Højre og venstre sidefod

Hmm, nu ligner det noget :)

Men sidehovedet er forskelligt fra gang til gang

Nope, det kan jeg ikke få til at virke :(

Vil gerne have et indtastningfelt i stil med:

Varenr:
Varenavn:
Tegnnr:

Til sidehoved (venstre, midt og højre)

Og så automatisk insættelse af dato, sti og sideantal i sidefod

Jeg regner med at du tager oplysningerne et elle andet sted fra? A1 eller et andet sted. Oplysningerne Klokkeslet kan du lægge fast ind i sidehoved Sti kan du også lægge fast ind i en celle A1    =CELLE("filename";A1)
Vare nr. kan du bare skrive ind i en celle som du henviser til.
det kan også være fx. .LeftHeader = Activecelle.Value

her er det

Sub SideOpsaetning()
    Dim Tekst1 As String, Svar1 As Variant
    Svar1 = InputBox("Indtast Varenr:")
   
            With ActiveSheet.PageSetup
            .LeftHeader = Svar1
            End With
    '***************************************
    Dim Tekst2 As String, Svar2 As Variant
    Svar2 = InputBox("Varenavn:")
   
            With ActiveSheet.PageSetup
            .CenterHeader = Svar2
            End With
    '***************************************
    Dim Tekst3 As String, Svar3 As Variant
    Svar3 = InputBox("Indtast Tegnnr:")
   
            With ActiveSheet.PageSetup
            .RightHeader = Svar3
            End With
   
End Sub

Næh, virker ikke...

Vil du ikke sende et tomt Excel ark til:

jaandersen@gmail.com

Gerne hvor sidefoden også er oprettet :)

Du kan hente et eks. her
http://www.fagpolering.dk/Opsaetning/Side.xls

Jeg har sent et eksempel der er færdig med side Hoved & Side Fod

Okay,

Takker

Opret et svar og du får point :)

et svar