lv

Bedankt, ik ga hiermee aan de slag.

Er is hier niemand die me hiermee verder kan helpen?

Ik heb nog 2 vragen die ik zelf niet opgelost krijg. De eerste is met mijn eigen macro, die uit een ander bestand gegevens in het bestand plaatst. Onderstaande macro gebruik ik hiervoor, echter importeert die alleen de tekst, maar de afbeeldingen niet. Is hier iets op te bedenken? Sub OpenFile() Sheets("BOM").AutoFilterMode = False Dim xFilePath As String Dim xObjFD As FileDialog Set xObjFD = Application.FileDialog(msoFileDialogFilePicker) With xObjFD .AllowMultiSelect = False .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm; *.xlsb", 1 .Show If .SelectedItems.Count > 0 Then xFilePath = .SelectedItems.Item(1) Else End If End With Workbooks.Open xFilePath Range("A2:G5000").Select Selection.Copy Windows("DUBBELE WAARDES BASIS - KOPIE.xlsm").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'checktek Dim rRange As Range Dim rRange2 As Range Dim rCell As Range Dim strPath As String strPath = "U:\" Set rRange = Range("E12", Range("E49563").End(xlUp)) Set rRange2 = Range("L12", Range("L49563").End(xlUp)) For Each rCell In rRange If Dir(strPath & rCell) = vbNullString Then rCell.Offset(, 7) = "Nee" Else rCell.Offset(, 7) = "Ja" End If Next rCell ActiveWindow.ScrollRow = 1 Sheets("BOM").AutoFilterMode = False Rows("11:11").Select Selection.EntireRow.Hidden = True ActiveWindow.ScrollRow = 1 Range("H12").Select End Sub En dan heb ik nog een probleempje met het samenvoegen van de dubbele waardes, waarmee jullie me eerder geholpen hebben. Het samenvoegen opzich werkt goed, echter lager in de lijst staan verkeerde foto's bij de artikelnummers. Nu heb ik hier al een tijdje mee gestoeit, en blijkt dat de juiste foto zich bevind onder de "oude" foto van het dubbele onderdeel. Dus is er een macro waarmee enkel de bovenste laag foto's (die over de juiste laag zitten) verwijderd worden?

Hij werkt wel!! Super bedankt!

Volgens mij werkt die niet. Ik krijg dan Compileerfout: Syntaxisfout.

Sorry, beetje dom. Inderdaad vergeten. vb forumx.xlsx

Bijgevoegd het bestand waarbij de VO wel juist is. De vorige was een voorbeeld echter was ik niet op de hoogte van het verschil tussen handmatig en VO kleuren.

De groene cellen hebben voorwaarde, begint met 51. De rode cellen hebben de voorwaarde, begint met 53. Is dat wat jij bedoeld?

Hoe bedoel je dat? Ik gebruik voorwaardelijke opmaak en dan rood, kleur 255.

Hoe moet ik dit doen dan? Is het niet mogelijk om de macro die EmielDS stuurde geschikt te maken voor alleen VO gekleurde cellen ipv handmatig gekleurde cellen? Hiermee zou ik ontzettend geholpen zijn al. Heb er zelf niet zoveel verstand van, dus het is lastig inschatten of dat veel werk is of niet. Alvast bedankt

Ik kan momenteel ook niet verder, kijk er na het weekend even naar. Bedankt.

Omdat het anders lastig is vast te stellen welke rijen verwijderd mogen worden. De cellen die verwijderd mogen worden hebben namelijk niet allemaal overeenkomsten in hun inhoud oid. Bijvoorbeeld, het zijn niet altijd artikelnummers die beginnen of eindigen met een bepaalde samenstelling van cijfers.

Ja bakerman wees me erop inderdaad. De vlakken zullen in de toekomst allemaal via voorwaardelijke opmaak gekleurd worden, is het mogelijk om dan een macro te maken die hetzelfde doet als in jouw vorige bestand, alleen dan voor de vlakken opgemaakt met voorwaardelijke opmaak?

In het echte bestand zullen alle kleuren worden aangebracht door een macro, sorry, had niet in de gaten dat dit nu nog niet het geval was. De macro is een opname van het toepassen van voorwaardelijke opmaak.

Ja dit is wat ik bedoel, alleen blijft artikel 404046CC staan, deze staat ook onder een rode cel, deze zou ook moeten vervallen. Verder zou het inderdaad zijn waarnaar ik op zoek ben