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

Omdat deze na een groen en voor een rood vlak komt. Deze wil ik graag behouden. Alleen rij 4&6 wil ik behouden in dit geval, de andere rijen wil ik dan gewoon onder elkaar hebben staan.

bijgevoegd een bestandje. In dit geval zouden dus alleen de gekleurde rijen en rij 2 behouden mogen blijven. Rij 4 & 6 zouden moeten vervallen VB FORUM.xlsx

Hallo, Ik ben een stukje op weg met mijn Excel bestand met macro's, zoek ik nu hulp bij het verwijderen van volledige rijen (de rijen van rode en groene cellen mogen dus nooit verwijderd worden) * vanaf rode cel tot de volgende rode cel * vanaf een rode cel tot de volgende groene cel Ook wil ik rijen NIET verwijderen vanaf een groene cel tot de volgende rode cel. Iemand die mij hiermee kan helpen?

Prima! Voor mij is het zo voldoende! Bedankt

Dit is inderdaad zoals ik het bedoelde. Ik ga met deze macro verder aan de slag! Bedankt voor de moeite!

Volgens mij werkt de macro niet in mijn document. Maar het bestand van emielDS is wat ik zoek, ik ga met dit bestand verder aan de slag! Beide bedankt voor de moeite!

Is het mogelijk om te zoeken op artikelnummer zoals emielDS hierboven beschrijft, maar wanneer daar een lege cel staat, dan voor dat artikel over te gaan naar het vergelijken van de omschrijving? Of is dit te lastig? Deze oplossingen hebben me ook al veel geholpen!

Ik zie inderdaad dat bakerman gelijk heeft met zijn reactie. Ik had steekproefgewijs een aantal getallen gecontroleerd, deze waren allemaal correct. Het is me dus niet opgevallen dat er kleine foutjes in de lijst zitten.

Ja! Verzamelen met foto is exact wat ik zoek. Ontzettend bedankt voor je hulp!

Hiervan is inderdaad geen artikelnummer bekend