csv file bewerken

[andrevanderhors]

Heb voor wat analyse het idee dit in een excel blad te maken.
Echter lukt mij het maar niet de juiste vba code te maken. Ben al een dagje bezig verschillende forums af te zoeken, maar kom er niet echt uit.
Heb een macro opgenomen die werkt echter als ik er nog een verander dan werkt het niet meer.
Heb een klein voorbeeldje toegevoegd over het analyseren van een status.
Kan iemand mij een beetje op weg helpen?

 

[andrevanderhors]

alsnog het voorbeeld

 

[andrevanderhors]

heb vorige al opgelost met vba code die ik ergens gevonden heb.
Vraag me nu alleen af hoe ik in deze code een tweede kolom kan toevoegen in de voorwaarde om te kopieren.

Sub Bestelling_Ophalen()
Sheets("haakcontrole").Select
Dim c As Variant
Dim x As Long
Range("A2100").Clear
Range("A1").Select


For Each c In Sheets("Blad1").Range("E2:E32000")
If c.Value = "36" Then
Range(c.Offset(0, -3), c.Offset(0, 11)).Copy _
Sheets("haakcontrole").Range("A65536").End(xlUp).Offset(1, 0)
End If
Next c


Range("A2100").Interior.ColorIndex = xlNone
End Sub

Dus eigen lijk wil ik de cel c ook gebruiken voor de voorwaarde om te kopieren.

 

[snb]

Ik zie geen verband tussen de titel van je draad en je vraag.

Probeer code die je 'vindt' te analysereen en te begrijpen. Dat bespaart veel tijd.

Gebruik:

Sub snb()
    With Sheets("Blad1").Cells(1).CurrentRegion
        .AutoFilter 5, 36
        .Offset(1).Copy Sheets("Blad2").Cells(1)
        .AutoFilter
    End With
    Sheets("Blad2").Range("A1:M1").EntireColumn.Delete
End Sub