lv

Bedankt, ik ga hiermee aan de slag.

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 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? 
 

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? 
 

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.

vb forumx.xlsx

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?

blanco verwijderen.xlsm 63 kB · 1 download

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

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? 

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

verzamelen (1).xlsm 1 MB · 2 downloads

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.

 

lv.xlsm 935 kB · 2 downloads

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?

verzamelen.xlsm 978 kB · 1 download

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

Hiervan is inderdaad geen artikelnummer bekend