bakerman

Private Sub Workbook_SheetActivate(ByVal Sh As Object) Select Case Sh.Name Case "Herinnering" Sh.[A2:B10] = Sheets("factuur").[A2:B10].Value Case "factuur" Sh.[A2:B10] = Sheets("Herinnering").[A2:B10].Value End Select End Sub

Een ideetje. annvdb.xlsx

Dit zet je misschien op weg. Getallen in kolom A. Sub tst() For Each cl In Range("a1", Range("A" & Rows.Count).End(xlUp)) If Left(cl, 1) = Chr(45) Then cl.Value = Mid(cl.Value, 2, Len(cl.Value) - 1) & Chr(45) End If Next End Sub

Cor-Assa, Je hebt je Item lijst een regel naar beneden verplaatst, wat uiteraard niet goed is voor de werking van de code. In kolom H heb je 3x dezelfde naam (Bamboe) voor 3 verschillende afbeeldingen. Dit kan NIET. Elke afbeelding moet een unieke naam krijgen. In het voorbeeldbestand heb ik aangegeven hoe het zou kunnen. Ik heb er ook een code bijgevoegd die alle afbeeldingnamen uit de dir haalt. Wijzig het pad naar de dir (met backslash op het eind) en klik op de knop. Alle namen komen in kolom I. Sub test1() Path = Sheet1.Range("H1") ' // Create an array of files in the folder by extension With CreateObject("Shell.Application") Set Files = .Namespace(Path).Items Files.Filter 64, "*.jp*" End With j = 2 For Each file In Files j = j + 1 Cells(j, 9) = file.Name Next End Sub Cor-Assa_II - Mijn vervolg.xlsm

Plaats eens een voorbeeldbestandje zonder gevoelige info, dat praat makkelijker.

Ik ben meer fan van Index-Vergelijken. Mark Katarzynski.xlsx

Wijzig in kolom +400 naar +650 en je hebt je oplossing.

Cor-Assa, Ben helemaal niet boos, gewoon kort van stof. Heb het ontwerp lichtjes gewijzigd. De afbeeldingen komen nu op blad2 op dezelfde rij als waar je de namen invult op het 1ste blad. Als je nu een naam verwijderd op Blad1 wordt op dezelfde rij in Blad2 de afbeelding en naam verwijderd. 2 beprekingen: 1) GEEN duplicaten in de C-kolom op Blad1 2) Namen moeten 1 per 1 verwijderd worden. Als je dus 2 namen onderling wil wisselen moet je eerst beide namen verwijderen alvorens je ze terug invoert op de juiste plaats. Komen we nu al dichterbij ? Cor-Assa_II.xlsm

In je 3de post vroeg je zelf om een voorbeeldbestand te posten omdat je zelf nog niets uitgewerkt had. Ondertussen heb je dat nu maar kom je tegelijkertijd vertellen dat dit niet werkt en dat niet werkt terwijl je helemaal nog niet uitgelegd hebt wat je nu werkelijk wil. Dus misschien kan je ons nu verduidelijken wat je eigenlijk wil bereiken zodat we daar naar toe kunnen werken.

Heb 'm net nog even getest en werkt nog steeds perfect. Dus de trefwoorden staan in H-kolom, de namen v/d afbeeldingen in I-kolom, het pad (met laatste \ ) in H1. Dan telkens je een trefwoord in C-kolom invult verschijnt de afbeelding op 2de werkblad. Draai anders deze eens voordat je namen invult in kolom C Sub tst() Application.EnableEvents = True End Sub

Nog een gokje. DirkJan86.xlsx

Een wilde gok. Hanne25.xlsx

Maar die Algemene Catalogus blijft toch bestaan. 😲 Je voegt enkel een kolom toe met de naam v/d afbeelding. Deze naam wordt dan door de formule in ALLE artikelbestanden uit de gesloten Algemene Catalogus gehaald en dan gebruikt om de foto te laden in eender welk artikelbestand. Maar blijkbaar is het onoverkomelijk voor jou om een centrale map te hebben met ALLE afbeeldingen van ALLE artikels uit ALLE afdelingen. Ik heb je nu 2 oplossingen geboden dus gebruik ze naar eigen goeddunken, voor mij stopt het hier.

Nog eentje waar de afbeelding niet in een ImageControl komt maar rechtstreeks in een aantal samengevoegde cellen. Artikels_MergedArea.xlsm

Heb je in kolom H dezelfde namen ingebracht die je ook in C1:C10 inbrengt ? Is het pad juist (met achteraan de Backslash) ?

Aangezien je verknocht bent aan je Algemene Catalogus een andere insteek. Zoals gezegd kan je wel data uit een gesloten bestand halen dus wat als we de naam v/d afbeelding ipv de afbeelding zelf uit je Algemene Catalogus zouden halen. Ik heb in de Algemene Catalogus een extra kolom gebruikt (kolom C) met daarin de naam v/d afbeelding. In het artikelbestand de formule in de NameManager ( CATALOGUS) aangepast naar de nieuwe situatie en dan de met opgehaalde naam uit het gesloten bestand icm de methode van dotchiejack de afbeelding uit de Algemene map met ALLE afbeeldingen halen. Algemene Catalogus.xlsx Artikels.xlsm

Het is niet dat we je niet willen/kunnen helpen, maar jij schijnt niet te willen begrijpen dat de manier waarop jij het wil NIET werkt. Data kan je ophalen uit gesloten bestanden, Afbeeldingen uit een gesloten werkmap ophalen gaat niet. De enige oplossing is een map aanmaken met alle afbeeldingen en deze dan via de Artikel-bestanden opvragen uit deze map.

Aangezien er nog geen reactie gekomen is een 1ste ideetje. In C1:C10 komt de data die je wil afbeelden. H1 is het pad naar je afbeeldingen. In de Tabel komen links de trefwoorden en rechts de namen v/d overeenstemmende afbeeldingen. Hebben je afbeeldingen dezelfde naam als de trefwoorden heb je mits een kleine aanpassing aan de code de tabel niet nodig. De afbeeldingen komen aangepast aan de celgrootte op Sheet2 te samen met het ingetypte trefwoord. Cor-Assa.xlsm

Maar op je Blad Lijsten had je 1 grote tabel gemaakt van de 3 kolommen Team, Tank en Lijn. Ploegoverdracht 09012021.xlsm

Private Sub UserForm_Initialize() T_00.Value = WorksheetFunction.Max([TSESNrs]) + 1 T_01.Value = Format(Date, "dd/mm/yyyy") T_02.List = [lab_tbl].Value T_03.List = [mn_tbl].Value T_13.List = Split("OK NOK") T_14.List = [met_tbl].Value T_15.List = Split("OK NOK") T_12.List = [tnk_tbl].Value T_18.List = [ln_tbl].Value Cmd_01.Enabled = False Cmd_03.Enabled = False With LB_00 .List = [TSESdata_tbl].Value .ColumnCount = [TSESdata_tbl].CurrentRegion.Columns.Count .ColumnWidths = "0;70;80;70;70;110;60;60;40;40;40;60;40;30;80;30;0" For i = 0 To .ListCount - 1 .List(i, 1) = Format(.List(i, 1), "dd/mm/yyyy") Next i End With End Sub Als het over bovenstaande gaat verwijs je bij T_12 en T_18 naar niet-bestaande tabellen en dat genereert foutmeldingen bij het openen van Tankstalen form.

Als ik het dan goed begrijp zal volgende voldoen. Alhoewel ik de bedoeling niet vat aangezien Materiaalnummer al gevuld wordt met deze lijst bij het openen v/h formulier. Ploegoverdracht 09012021.xlsm

Je stuurt een bestand zonder data. Hoe kunnen wij weten waarop te zoeken als de mn_tbl waarnaar je verwijst leeg is ?

@dotchiejack Zitten enkele foutjes in je code. LB_00.List = Bron.Worksheets("Catalogus").Range("A2:C2" & Lrij).Value moet zijn LB_00.List = Bron.Worksheets("Catalogus").Range("A1:C" & Lrij).Value

Graag gedaan en bedankt voor de feedback.

Alléé vooruit dan maar, als niemand zich geroepen voelt om de oefening te maken. Logis1114.xlsm