2 kriterier i et Lopslag

Skal vi forstå det sådan at opslaget skal foregå til forskellige ark alt efter et andet kriterie?

Ellers tror jeg ikke lige jeg forstår.

Godaften jeg vender lige tilbage i morgen med en bedre forklaring

KW

Jeg er heller ikke sikker på at jeg forstår spørgsmålet. Hvis du har en Lospalg til et andet ark, og der er data i dette, er det vil ligegyldigt om de er tastet eller importeret?

Hej igen så prøver jeg med lidt bedre forklaring.

Jeg importerer Ark fra en anden mappe ved hjælp af en knap (overfør ark) på Fanebladet VPL 2021.
Det jeg så gerne vil have Excel til er at overføre værdien til celle E8 i Fanebladet 6101. Den værdig finder jeg i Fanebladet VPL 2021 kolonne B.
Hvis jeg bare laver et LOPSLAG kommer der en kæde og den vil jeg ikke have. Jeg har prøvet med et LOPSLAG og INDIREKTE, men kan ikke få det til at funger. 

Jeg har også oploadet filen til Dropbox, håber det hjælper på forståelsen
https://www.dropbox.com/sh/dezoh2wa5t4j2ty/AACfn2FzbhjyjkRAr4J5wwxia?dl=0
KW

Hvis du med "kæde" mener, at der indsættes en reference til den mappe, du henter fra, tror jeg ikke at det kan undgås, da det jo er en anden fil.

En vba kan naturligvis finde værdien og sætte den ind fladt i dit ark hvis det er det den skal?

Udfordringen er at du får en kæde i dit originale 6101 ark? Det kan du komme til livs ved at indsætte opslagsformlen efter du har kopieret arket ind.

Formlen du skal have ind er noget a la dette:
=XLOOKUP(M11;'VPL 2021'!$E:$E;'VPL 2021'!$B:$B)

Derfor skal du have tilføjet i din vba:
utestet: sheets("6101").range("E8").formula = "xlookup(M11,'VPL 2021'!E:E,'VPL 2021'!A:A)
Husk på at du sikkert har variabler for fanenavne der fungerer bedre.

P.S Anders And bor på ParadisÆBLEvej ;-)

Hej Ja det er det. Det forstår jeg ikke rigtig den del der omkring VBA. Hjælp.

Tak for hjælpen med Hr. And det er længe siden jeg har læst Anders And :-)

KW

Hej igen Kim1a ref.#6 ja det er det den skal

KW

Hej igen
Nu har jeg prøvet kan ikke rigtig se hvor jeg skal sætte VBA koden ind. Hvis jeg kun tager LOPSLAGet kommer kæden med og det er den jeg ikke ønsker.

KW

Godmorgen
Jeg har fundet denne VBA kode og prøvet at indsætte den i filen Ankomstseddel  6101 men kan ikke få den til at fungere. Nogen hjælp.

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets

With ws
    .Range("E8").Formula = "=VLOOKUP(h6,VPL 2021!$A$3:$b$47,2,0)"
End With

End Sub



KW

Brug denne i stedet:
Sub Rektangelafrundedehjørner1_Klik()

Path = Range("h1")

Filename = Dir(Path & "*.xlsm")

Do While Filename <> ""

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Copy After:=ThisWorkbook.Sheets(1)

ActiveSheet.Range("E8").Value = Application.XLookup(Range("M11"), ThisWorkbook.Sheets(1).Range("E:E"), ThisWorkbook.Sheets(1).Range("B:B"))

Next Sheet

Workbooks(Filename).Close

Filename = Dir()

Loop
                   
End Sub

Jeg har indsat denne linje:
ActiveSheet.Range("E8").Value = Application.XLookup(Range("M11"), ThisWorkbook.Sheets(1).Range("E:E"), ThisWorkbook.Sheets(1).Range("B:B"))

På den måde slår den værdien op hver gang du kopierer nyt ark.

Hej Kim1a
Jerg kikke på det når jeg kommer hjem, på for hånd tak
KW

Hej Kim1a
Jeg har prøvet at indsætte den VBA kode. Men jeg for en fejl i

ActiveSheet.Range("E8").Value = Application.XLookup(Range("h6"), ThisWorkbook.Sheets(1).Range("E:E"), ThisWorkbook.Sheets(1).Range("B:B"))
Jeg har ændret Application.XLookup(Range("M11"), til Application.XLookup(Range("h6"),
Men det skulle vel ikke gøre noget :-)

KW

Jo du kan ikke lave om på dele af det, og ikke resten. For H6 er kasserne nummer, så skal den jo ikke slå op i B kolonnen, men i A kolonnen?

Virker formlen hvis du taster den  ind manuelt?

UPS ja h6 skal slå op i kolonne A og finde skibs nr. i kolonne B og overføre det til celle E8

Ja det gør den.

Prøv at bruge F8 i editoren, så du tager det skridt for skridt. Jeg tænker det er noget med hvilket ark der er aktivt når den skal skrive formlen.

Takker

Hej Kim1a
Nu har jeg justret og  F8 i editoren det gør aat Excel springer rigtig mange linjer over, og men jeg kan ikke se hvorfor den ikke udføre opgaven. Hvis du vil hjælpe mig med at forstå fejlen i denne linje ville det være dejligt.

ActiveSheet.Range("E8").Value = Application.XLookup(Range("H6"), ThisWorkbook.Sheets(1).Range("A:A"), ThisWorkbook.Sheets(1).Range("B:B"))

Jeg kan se at den skal indsætte værdigen i E8 og at den skal søge efter værdigen i H6. Jeg kan også se at den skal kikke i kolonne A efter værdigen fra H6. Og finde værdigen i kolonne B.

Er det nogenlunde rigtig set.
KW

Ja det er 100 % korrekt. Find værdi fra H6 i kolonne A i faneblad VPL 2021 og returner kolonne B fra samme faneblad.

Jeg tror stadig det er henvisningen til faneblad der går galt. Hvis ikke du er velkendt med F8 måden at springe i en programmering, så prøv i stedet at lave et break lige inden den skal til den linje du gengiver. Så kan du i immidiate vinduet skrive:
? thisworkbook.sheets(1).name for at se hvad den opfatter.

Hej igen
Tak det hjælpe virkelig med forståelsen, jeg for det til at køre det eneste der nu sker er at jeg for en fejl #VÆRDI i E8 faneblad 6101.

E8?

Godmorgen Kim1a
Ja når jeg overføre ark til mit opsamling ark sådan som du har hjulpet mig med køre alt men hvor den så skal skrive det skibs nummer den henter fra kolonne B i E8 på faneblad 6101, kommer der denne fejl fejl #VÆRDI.

KW

Sorry det var mig, synes det var en anden celle vi talte om før.

Hvad sker der hvis du taster formlen manuelt i E8? Virker den så?

Jeg du prøvet dette:
prøv i stedet at lave et break lige inden den skal til den linje du gengiver. Så kan du i immidiate vinduet skrive:
? thisworkbook.sheets(1).name for at se hvad den opfatter.

For hvis formlen virker manuelt så er det vbaen der indsætter forkert.

Godaften Kin1a

Formlen fungere når jeg indtaster den manuelt i E8.

Jeg prøver lige videre.

KW