Dynamisk filnavn i en kæde.
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Formler
Forum beskrivelse: Hjælp til formler i regneark og/eller brugen af disse.
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3341
Udskrevet den: 03.Dec.2024 kl. 18:57
Emne: Dynamisk filnavn i en kæde.
Besked fra: Frederik_1977
Emne: Dynamisk filnavn i en kæde.
Posteringsdato: 24.Jan.2018 kl. 13:13
|
Hej, kan det lade sig gøre at lave en "dynamisk" kæde til en anden excel-fil. Hvor det dynamiske består i at filnavnet tages fra kolonne A, så at kæden bruger filnavnet fra fx A7? Hilsen Frederik 
|
Svar:
Besked fra: Bjarnehansen
Posteringsdato: 24.Jan.2018 kl. 14:05
|
prøv at /topic662.html - upload dit ark og hvad er det du skal hente fra det andet ark? ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: Frederik_1977
Posteringsdato: 24.Jan.2018 kl. 14:32
|
uploads/2147/_HFL_Oversigt_-_Kopi.xlsx" rel="nofollow - uploads/2147/_HFL_Oversigt_-_Kopi.xlsx Dette ark henter værdier 4 værdi er fra et kalkulationsark (fx 400P206.xlsx) Vi vil gerne samle værdierne fra de forskellige kalkulationsark i dette ark (HFL oversigt), så vi i et 3. ark kan lave opslag via nr. i kolonne A (HFL oversigt). /Frederik
|
Besked fra: Bjarnehansen
Posteringsdato: 25.Jan.2018 kl. 17:54
|
hvad har du stående i kalkulationsark (fx 400P206.xlsx)som skal hentes over i HFL_oversigt? ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: Bjarnehansen
Posteringsdato: 25.Jan.2018 kl. 19:24
|
hvordan ser dit kalkulationsark ud ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: Bjarnehansen
Posteringsdato: 27.Jan.2018 kl. 09:44
|
står det i hvert sit regneark eller er det i samme regneark men på hver sin fane ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: Bjarnehansen
Posteringsdato: 27.Jan.2018 kl. 09:47
|
Prøv med:dette er en kode jeg har fra excelgaard =INDIREKTE("'["&A5&".xlsx]HFL Oversigt'!$C$5") ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: excelent
Posteringsdato: 27.Jan.2018 kl. 21:04
|
Desværre virker INDIREKTE ikke på en lukket fil. Så det er kun via VBA/Makro du kan få dynamik på filnavnene. Jeg går ud fra at dynamikken ligger i at du udskifter filnavnene i kolonne A Hvis du kan bruge en VBA løsning, så indsæt den fulde sti her i tråden Så kan jeg indsætte den i koden. hvorefter jeg /topic662.html - uploader filen. ------------- Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!! |
Besked fra: Bjarnehansen
Posteringsdato: 27.Jan.2018 kl. 21:34
|
det er fint med VBA det er dette ark jeg skal hente til har forsøgt i B12 dem fra B3 - B9 virker men kun på åbne ark uploads/397/HFL_Oversigt_-_version_0.00.02.xlsm" rel="nofollow - uploads/397/HFL_Oversigt_-_version_0.00.02.xlsm skal hente fra denne samt flere da der er et ark for hvert vare nr. men data hentes fra de samme celle i alle ark det er det der står i A som får endelsen".xlsx" sat på som giver hvilket ark der skal hentes fra. uploads/397/400p018.xlsx" rel="nofollow - uploads/397/400p018.xlsx de ligger i samme mappe ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: excelent
Posteringsdato: 27.Jan.2018 kl. 21:54
|
Du skal indsætte koden i Arkets kodemodul (højreklik på arkfanen) Du kan selv lige rette stien i de 4 linier Er ikke sikker på hvor meget der skal rettes, men Poul skal sikkert ændres Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A3:A9")) Is Nothing Then Exit Sub Target.Offset(0, 1).Formula = "='C:\Users\Poul\AppData\Local\Packages\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\TempState\Downloads\[" & Target.Value & ".xlsx]1000'!$C$5" Target.Offset(0, 2).Formula = "='C:\Users\Poul\AppData\Local\Packages\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\TempState\Downloads\[" & Target.Value & ".xlsx]1000'!$C$9" Target.Offset(0, 3).Formula = "='C:\Users\Poul\AppData\Local\Packages\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\TempState\Downloads\[" & Target.Value & ".xlsx]1000'!$N$3" Target.Offset(0, 4).Formula = "='C:\Users\Poul\AppData\Local\Packages\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\TempState\Downloads\[" & Target.Value & ".xlsx]1000'!$M$2" End Sub ------------- Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!! |
Besked fra: Bjarnehansen
Posteringsdato: 28.Jan.2018 kl. 09:30
|
Hej Poul det virker for så vidt godt nok men hvis man sletter et vare nr laver den en reference fejl og sætter havelåger i de 3 sidste kolonner de skulle jo bare blive tomme de celler hvis jeg taster 400p036 ind i vare nummer finder den info på nr selv om der ikke findes en fil med det navn ? hvor for den det fra ? ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: excelent
Posteringsdato: 28.Jan.2018 kl. 16:08
|
VBA trikker ikke på en regnearks formelfejl Du kunne omgå dette ved at lave en dataval-liste med filnavnene plus en tom/ingen til at håndtere hvis feltet efterlades tomt Det kræver så at du har en excel-fil med dette navn (tom eller ingen) i samme mappe/sti ------------- Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!! |
Besked fra: Frederik_1977
Posteringsdato: 14.Feb.2018 kl. 11:42
|
Hej, var i kommet frem til en endelig og brugbar løsning.....? Tak for indsatsen indtil videre :-) /Frederik
|