bakerman

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

@emielDS

Bouw de array op in het werkgeheugen en dump hem in 1 keer op je werkblad, anders kan je gerust een wandelingetje gaan maken.

Je kan de Array-size makkelijk berekenen aangezien je weet dat je 8200 rijen nodig hebt voor 1 gang, 16 gangen en 3 magazijnen.

Je bouwt dus een Array van (1 To 8200, 1 To 48)

Om de gangletters te genereren gebruik je ipv al die Ifs  gang = Chr(gan + 64)

Succes.

Maak een tabel van je gegevens dan heb je steeds het juiste aantal rijen.

Joeri.xlsx

Heb gemakshalve een hulpkolom toegevoegd die de leeftijd in maanden berekent op basis van geboortedatum en CheckIn datum.

Ben er ook vanuit gegaan dat alle CheckIn en CheckOut datums zonder uitzonderingen in 2020 vallen.

Ook zaten er enkele fouten in je data waar CheckIn datum voor de Geboortedatum viel. Heb deze gewoon even omgedraaid.