Bruge samme sub fra flere excel-filer

hvis du smider dine subs i din personlige projektmappe, behøver du dem ikke i de andre ark.

hvis du ikke ved hvordan du får dem i den personlige projektmappe, eller ikke har en endnu, så får du den frem ved at gøre følgende.

Vælg indspil ny makro, i boksen der kommer frem vælger du Personlig makroProjektmappe, tryk ok maker en  celle og stop makroen.

nu er din personlige projektmappe dannet.

Slet den makro du lige optog og smid dine andre subs derover.

Personlig projektmappe indlæses altid, når du åbner Excel

Jeg har gjort som du siger men jeg får fejlmeddelelsen:

""
Der opstod en kompileringsfejl:
Sub eller Funcion-procedure ikke defineret
""

jeg skriver

Call Timesag_Person

for at kalde sub'en.

du skal ikke call, kør makroen som normalt

Call Person.xls!Timesag_Person

Jamen jeg kører den normalt ved, at den ligger inde i en makrokode, der afspilles når jeg trykker på en knap. Knappen aktiverer "Private Sub CommandButton1_Click()" som jeg har lagt koden i i alle de excel-filer, jeg bruger.

Det jeg så ville var at lade knappen aktivere følgende:

Private Sub CommandButton1_Click()
call Timesag_Person
End sub

Men den går ikke. Hvordan kan jeg ellers "køre makroen som normalt"? (jeg er lidt langsom).

Application.Run "Person.xls!Timesag_Person"

undskyld, hjernen tog en slapper, det sidste skulle virke ;-))

Nu fandt jeg ud af det. Man kan simpelthen afvikle den ved:

Application.Run ("timesag.xla!timesag_person")

Oversat:

Application.run("navnpåxlafil.xla!navnpåmakro")

Tak for hjælpen kabbak. Smid et svar :-)

et svar,

Havde du prøvet det med den personlige mappe før ??.
Jeg bruger den meget, men jeg laver en menulinie med knapper til makroerne, så er de altid ved hånden.

Jeg smider lige koden til en menulinie og en makro.

Sæt dem ind i din personlige mappe, gem og luk så excel.

næste gang du så åbner excel, er menulinien kommet.

Håber at det er noget du kan lege med.

Sub auto_open()
    For Each cbar In CommandBars
        If cbar.Name = "kabbak" Then
            cbar.Delete
        End If
    Next
    Set cbar1 = CommandBars.Add(Name:="kabbak", Position:=msoBarTop)

    cbar1.Visible = True
    Set newItem = CommandBars("kabbak").Controls.Add(Type:=msoControlButton)

    Set newItem = CommandBars("kabbak").Controls.Add(Type:=msoControlButton)
    With newItem
        .BeginGroup = False
        .Caption = "( Gentag overskrift)"
        .Style = msoButtonCaption
        .OnAction = "linie"
    End With

    Set newItem = CommandBars("kabbak").Controls.Add(Type:=msoControlButton)
    With newItem
        .BeginGroup = False
        .Caption = "(Sti)"
        .Style = msoButtonCaption
        .OnAction = "Sti"
    End With
Slut:
End Sub

Sub Sti()
    A = MsgBox("Vil indsætte stien til XL Regnearket i sidefoden ", vbYesNo, "FILPLACERINGEN BLIVER ANGIVET PÅ UDSKRIFT  v.Kabbak ©")
    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
Sub Linie()
    On Error GoTo Slut
    A = MsgBox("Vil du gentage en eller flere linier på alle udskrevne sider", vbYesNo, "OVERSKRIFT PÅ UDSKRIFT  v.Kabbak ©")
    If A = 6 Then
        B = InputBox("Hvor mange linier", "Antal linier", 1)

        With ActiveSheet.PageSetup
            .PrintTitleRows = "$1:$" & B
            .PrintTitleColumns = ""
        End With
    Else

        Exit Sub
    End If
Slut:
End Sub

Mange tak. Det vil jeg prøve.