lv
-
Items
38 -
Registratiedatum
-
Laatst bezocht
Inhoudstype
Profielen
Forums
Store
Berichten die geplaatst zijn door lv
-
-
Op 9/7/2019 om 07:37, lv zei:
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 xFilePathRange("A2:G5000").Select
Selection.Copy
Windows("DUBBELE WAARDES BASIS - KOPIE.xlsm").ActivateRange("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 = FalseRows("11:11").Select
Selection.EntireRow.Hidden = True
ActiveWindow.ScrollRow = 1
Range("H12").SelectEnd 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?
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 xFilePathRange("A2:G5000").Select
Selection.Copy
Windows("DUBBELE WAARDES BASIS - KOPIE.xlsm").ActivateRange("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 = FalseRows("11:11").Select
Selection.EntireRow.Hidden = True
ActiveWindow.ScrollRow = 1
Range("H12").SelectEnd 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?
-
12 minuten geleden, lv zei:
Volgens mij werkt die niet. Ik krijg dan Compileerfout: Syntaxisfout.
Hij werkt wel!! Super bedankt!
-
5 uren geleden, bakerman zei:
Probeer deze eens.
Sub Rijen_Verwijderen() Application.ScreenUpdating = False lrow = Range("B" & Rows.Count).End(xlUp).Row For Each cl In Range("B2:B" & lrow) If Left(cl, 2) = 53 Then Do While (Left(cl.Offset(1), 2) <> 51) * (Left(cl.Offset(1), 2) <> 53) cl.Offset(1).EntireRow.Delete Loop End If Next Application.ScreenUpdating = True End Sub
Volgens mij werkt die niet. Ik krijg dan Compileerfout: Syntaxisfout.
-
3 minuten geleden, emielDS zei:
bestand vergeten?
Sorry, beetje dom. Inderdaad vergeten.
-
6 minuten geleden, emielDS zei:
Waarom is B5 dan rood gekleurd?
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.
-
3 minuten geleden, emielDS zei:
om door voorwaardelijke opmaak uw cellen te kleuren heb je een voorwaarde nodig in de vorm van een formule. Aan de hand van die formule kun je via vba bewerkeingen uitvoeren op die cellen.
De groene cellen hebben voorwaarde, begint met 51. De rode cellen hebben de voorwaarde, begint met 53. Is dat wat jij bedoeld?
-
Op 28/6/2019 om 14:18, emielDS zei:
dat is zeer goed mogelijk als je weet hoe de cellen hun vo kleur krijgen.
Hoe bedoel je dat? Ik gebruik voorwaardelijke opmaak en dan rood, kleur 255.
-
Op 27/6/2019 om 07:09, bakerman zei:
Vanaf XL2010 kan je gebruik maken van volgende functie gebruiken om de celkleur van VO te bepalen. Kan momenteel niet testen maar misschien kan emielDS hier wel wat mee om je verder te helpen.
Function getCellColorForReals(r As Range) As Long getCellColorForReals = r.DisplayFormat.Interior.Color End Function
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
-
23 uren geleden, bakerman zei:
Vanaf XL2010 kan je gebruik maken van volgende functie gebruiken om de celkleur van VO te bepalen. Kan momenteel niet testen maar misschien kan emielDS hier wel wat mee om je verder te helpen.
Function getCellColorForReals(r As Range) As Long getCellColorForReals = r.DisplayFormat.Interior.Color End Function
Ik kan momenteel ook niet verder, kijk er na het weekend even naar. Bedankt.
-
12 uren geleden, emielDS zei:
waarom wil je de cellen die mogen blijven staan eerst kleuren, je kan evengoed de cellen die niet aan de voorwaarde voldoen verwijderen.
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.
-
15 minuten geleden, emielDS zei:
dat komt omdat de cel erboven met een ander soort rood is opgevuld.
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?
-
3 minuten geleden, bakerman zei:
Je bestand is een mengeling van manueel aangebrachte kleuren en kleuren door VO.
Is dit in het echte bestand ook zo ? Want kleuren aangebracht met VO worden door deze code niet herkend (daarom blijft Rij 4 ook staan)
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.
-
3 minuten geleden, emielDS zei:
bedoel je zoiets?
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
-
Op 21/6/2019 om 19:16, Haije zei:
waarom moet rij 2 blijven staan?
en wat moet er met de rijen 7 en hoger gebeuren?
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.
-
2 uren geleden, lv zei:
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?
bijgevoegd een bestandje. In dit geval zouden dus alleen de gekleurde rijen en rij 2 behouden mogen blijven. Rij 4 & 6 zouden moeten vervallen
-
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?
-
6 minuten geleden, kweezie wabbit zei:
Als je verder geen vragen of problemen meer hebt, geef dan een seintje zodat we dit onderwerp kunnen afsluiten.
Prima! Voor mij is het zo voldoende! Bedankt
-
Op 15/6/2019 om 21:20, emielDS zei:
vandaag wat meer tijd gehad, dit zou volgens mij moeten kloppen zoekt zowel op de waarde uit B en de waarde uit C
Dit is inderdaad zoals ik het bedoelde. Ik ga met deze macro verder aan de slag!
Bedankt voor de moeite!
-
Op 14/6/2019 om 16:10, bakerman zei:
Kijk eens of je hiermee verder kan.
Onthoud wel dat het kopieêren van de afbeeldingen alles enorm vertraagd.
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.
-
13 uren geleden, emielDS zei:
bedoel je zoiets?
Ja! Verzamelen met foto is exact wat ik zoek. Ontzettend bedankt voor je hulp!
-
Hiervan is inderdaad geen artikelnummer bekend
Rijen tussen cellen met bepaalde kleur(en) verwijderen
in Archief Excel
Geplaatst:
Bedankt, ik ga hiermee aan de slag.