Søg
Avatar billede michaelmce Nybegynder
26. juni 2006 - 23:32 Der er 4 kommentarer og
1 løsning

Åbne en anden projektmappe fra "knap"

Hej.

Jeg håber der er nogle af Jer der kan hjælpe mig.

Jeg har oprettet et par "knapper" i mit regneark, fra dem vil jeg gerne have åbnet nogle andre projektmapper.

Jeg har prøvet at optage en makro, men det er ikke gået så godt.
Jeg kan godt få projektmappen til at åbne, men problemet er, at hvis jeg trykker en gang til på knappen kommer der en infoboks frem og spørger om jeg vil genåbne filen. Kan man begrænse sådan at man kun kan aktivere knappen én gang? Eller er der en helt anden måde det skal gøres på?

Med venlig hilsen
Michael
Avatar billede kabbak Professor
27. juni 2006 - 09:12 #1
Sub DinMakro()
    If Not WB_Loaded("dinprojektmappe.xls") Then
        Workbooks.Open "C:\Dinmappe\dinprojektmappe.xls"
    Else
        Windows("dinprojektmappe.xls").Activate
    End If
End Sub


Public Function WB_Loaded(WB) As Boolean
    Dim W As Workbook
    For Each W In Workbooks
        If W.Name = WB Then
            WB_Loaded = True
            Exit Function
        End If
    Next W
    WB_Loaded = False
End Function
Avatar billede michaelmce Nybegynder
27. juni 2006 - 09:51 #2
1000!! Tak

Det var lige den løsning jeg søgte.
Avatar billede kabbak Professor
27. juni 2006 - 09:52 #3
et svar ;-))
Avatar billede michaelmce Nybegynder
27. juni 2006 - 10:30 #4
Kan man ikke lave stien til sin projektmappe relativ, så den automatisk ændrer sig hvis man flytter projektmappen over på eksempelvis en usb-stick??
Avatar billede kabbak Professor
27. juni 2006 - 13:16 #5
Hvis de ander projektmapper ligger samme sted som den du har koden i, så kan denne bruges.

Sub DinMakro()
    If Not WB_Loaded("dinprojektmappe.xls") Then
        Workbooks.Open ThisWorkbook.Path & "\dinprojektmappe.xls"
    Else
        Windows("dinprojektmappe.xls").Activate
    End If
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 00:59 Mobilepay app virker ikke mere på Xiaomi Redmi Note 13 Pro Af henrixx i Apps til Android
I går 19:09 Download Win 11 - 25H2 Af ErikHg i Windows
30/0410:42 Access Import af csv fil - forkerte datatyper Af Henrik Berg Hansen i Andet software
29/0419:37 Hente CSV fil, indsætte CSV data i TABEL for JAVASCRIPT Af snestrup2000 i Programmeringsværktøjer
29/0412:23 Facebook Af hkv i Sociale medier
White papers
Flere white papers »