Artikelbestand auto matisch splitsen

[avdhorst]

Beste forum leden

Heb een artikel bestand in Werkblad1.
Heb nu macro's gemaakt om de lijst zeg maar te onleden. Ben ik op deze manier op de goed weg?

Het artikelbestand krijg ik opgestuurt van de leverancier dus dat is standaard.

Groet andre

 

[Wigi]

Je bent goed bezig Andre.

Voor de autofilter code, zie op de site www.contextures.com. Bij Autofilter, dan programming en dan wat naar beneden scrollen.

Wigi

 

[Wigi]

Andre

Gelieve geen bestanden op een forum te zetten die ingrijpen in de Excel instellingen van gebruikers. O.a. nieuwe werkbalk toevoegen. Of zorg dat alles netjes opgeruimd wordt als het bestand gesloten wordt.

Wigi

 

[avdhorst]

Dank je voor de link en sorry voor de werkbalk, weet nog niet hoe ik deze kan laten sluiten.

 

[avdhorst]

heb de code gelezen maar waar geef ik nu in de code dat hij alleen merk a copieerd of merk b?

 

[Wigi]

Die code gaat ervan uit dat het filteren al gebeurd is.

En kopieert dan de gefilterde rijen.

Wigi

 

[avdhorst]

Sub Bestelling_Ophalen()
Dim sh As Long
Dim c As Variant
Dim x As Long
Range("A2100").Clear 'aangepast
Range("A1").Select

For sh = 2 To ThisWorkbook.Sheets.Count - 1
For Each c In Sheets(sh).Range("D272")
If c.Value <> "" Then
Range(c.Offset(0, -2), (c)).Copy _
Sheets("Bestellijst").Range("A65536").End(xlUp).Offset(1, 0)
End If
Next c
Next sh
Range("A2100").Interior.ColorIndex = xlNone 'aangepast
End Sub

Klopt het als ik hier de if c. Value verander in de merknaam dat het dan ook lukt?
Weet echter niet wat ik dan moet veranderen

if c. Value = merknaam Then ?

 

[avdhorst]

heb al wat geexperimenteerd en weet nu hoe ik met deze code getallen geijk aan drie kan ophalen dus ook benieuwd of het ook met tekst kan? lijkt me wel. Verder zou ik graag een hint willen wat ik moet veranderen om het juiste merk naar het juiste werkblad te krijgen.

 

[Wigi]

Wat is er met de Autofilter gebeurd? Als je redelijk wat rijen hebt gaat dat veel sneller zijn dan een lus.

Sub Bestelling_Ophalen()
    
    Dim sh As Long
    Dim c As Range 'Variant
    Dim x As Long 'mag weg
    Range("A2:D100").Clear    'aangepast
    Range("A1").Select

    For sh = 2 To ThisWorkbook.Sheets.Count - 1
        For Each c In Sheets(sh).Range("D2:D72")
            If c.Value = "Merknaam" Then
                c.Offset(0, -2).Resize(, 3).Copy Sheets("Bestellijst").Range("A65536").End(xlUp).Offset(1)
            End If
        Next c
    Next sh
    Range("A2:D100").Interior.ColorIndex = xlNone    'aangepast
End Sub

Wigi

PS: plaats eens code tags rondom je code aub Dat maakt ze leesbaar. Bedankt.

 

[avdhorst]

kwam er met autofilter niet uit en ben dus verder gegaan met hoe ik in het begin heb gepost. Zal misschien iets te hoog gegrepen zijn voor nu.