danny147
Terugkerende gebruiker
- Lid geworden
- 29 apr 2007
- Berichten
- 4.744
Beste,
Dit geeft het zelfde resultaat dan deze code die ik al had
Door steeds te veranderen geraak ik niet verder
Ben wel tevreden dat iedereen zijn steentje wil bijdragen maar hou het op de bestaande code a.u.b.
Deze code en die eronder doen precies hetzelfde.
De bedoeling is nu dat ik het hele bereik niet wil maar enkel bepaalde kolommen met gegevens weg te schrijven die zichtbaar zijn na het filteren
Kolom 3 moet naar kolom 1 in tabblad "Orders na opmaakdatum"
Kolom 4 moet naar kolom 2 in tabblad "Orders na opmaakdatum"
Kolom 6 moet naar kolom 3 in tabblad "Orders na opmaakdatum"
Kolom 11 moet naar kolom 4 in tabblad "Orders na opmaakdatum"
Kolom 9 moet naar kolom 9 in tabblad "Orders na opmaakdatum"
Kolom 8 moet naar kolom 10 in tabblad "Orders na opmaakdatum"
Kolom 13 moet naar kolom 12 in tabblad "Orders na opmaakdatum"
Kolom 14 moet naar kolom 13 in tabblad "Orders na opmaakdatum"
Kolom 2 moet naar kolom 14 in tabblad "Orders na opmaakdatum"
In bijlage nog eens het bestandje.
Sommige blokken zijn niet actief geplaatst in de code zodat de "output" niet verwijderd wordt
Dit geeft het zelfde resultaat dan deze code die ik al had
Door steeds te veranderen geraak ik niet verder
Ben wel tevreden dat iedereen zijn steentje wil bijdragen maar hou het op de bestaande code a.u.b.
Deze code en die eronder doen precies hetzelfde.
Code:
With Sheets("Output").Cells(1).CurrentRegion
For j = 1 To UBound(sn)
.AutoFilter 15, sn(j, 1) & "*"
.Copy Sheets("Orders na opmaakdatum").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next
End With
Code:
For i = 1 To Sheets("Systeem").Range("AQ2").Value
zoekwaarde = Sheets("Systeem").Range("AO" & i + 1) & "*"
With Sheets("Output").Activate
ActiveSheet.Cells(1).CurrentRegion.AutoFilter Field:=15, Criteria1:=zoekwaarde, Operator:=xlAnd
Range("A1").CurrentRegion.Copy Destination:=ThisWorkbook.Sheets("Orders na opmaakdatum").Range("A500").End(xlUp).Offset(2, 0)
End With
Next i
De bedoeling is nu dat ik het hele bereik niet wil maar enkel bepaalde kolommen met gegevens weg te schrijven die zichtbaar zijn na het filteren
Kolom 3 moet naar kolom 1 in tabblad "Orders na opmaakdatum"
Kolom 4 moet naar kolom 2 in tabblad "Orders na opmaakdatum"
Kolom 6 moet naar kolom 3 in tabblad "Orders na opmaakdatum"
Kolom 11 moet naar kolom 4 in tabblad "Orders na opmaakdatum"
Kolom 9 moet naar kolom 9 in tabblad "Orders na opmaakdatum"
Kolom 8 moet naar kolom 10 in tabblad "Orders na opmaakdatum"
Kolom 13 moet naar kolom 12 in tabblad "Orders na opmaakdatum"
Kolom 14 moet naar kolom 13 in tabblad "Orders na opmaakdatum"
Kolom 2 moet naar kolom 14 in tabblad "Orders na opmaakdatum"
In bijlage nog eens het bestandje.
Sommige blokken zijn niet actief geplaatst in de code zodat de "output" niet verwijderd wordt
Bijlagen
Laatst bewerkt: