Wie kan helpen

[JohnBoy]

Hallo helpmij-ers,

Heb een werkmap met een aantal kolommen/rijen met gegevens. Het aantal rijen kan variabel zijn
Nu wil ik via vanuit deze werkmap een sortering maken per route(kolom e)steeds op een apart werkblad. Hoe kan ik dit het beste regelen. Dus in werkblad 2 zoiets als;

ALS(WERKBLAD1:E2:E1000="ROUTE 1 HEEN";DEZE HELE RIJ NAAR WERKBLAD2.

In de bijlage een voorbeeldje van de basisgegevens

Als dit eenmaal geregeld is dan wil ik uiteindelijk van alle werkbladen, met uitzondering van het origenele een print kunnen maken in 1 handeling

Wie heeft een idee??

 

[kcnuts]

Er zit een compileerfout in die automatisch kan worden hersteld.

Maar de vraag:
=SOM(Blad1!E1:E1000)
Dit gebruik je op Blad 2!

Jan

 

[JohnBoy]

Jan

Ik denk dat we elkaar niet helemaal begrijpen:

Wat ik wil is dat als in kolom E1:E1000 de waarde "Route 1 Heen" voorkomt, dan wil ik de hele rij waar dit in voor komt kopieren/plakken naar BLAD2.
Wat niet in het voorbeeldje zit maar in de praktijk wel het geval is; een waarde kan meerdere keren voorkomen in kolom E1:E1000

Eigenlijk zou er een formule te bedenken moeten zijn om volgende te regelen:

Zoek in kolom E1:E1000 naar "waarde" en kopieer alle gevonden rijen naar BLAD2. of iets dergelijks.
Ik hoop dat ik dit duidelijk genoeg heb omschreven

 

[Roncancio]

Onderstaande macro kijkt op het 1e werkblad net zo lang in kolom E totdat hij een lege waarde tegenkomt.
Vervolgens kijkt de macro of er in een cel in kolom E begint met het woord "Route".
Zo ja dan wordt de regel van werkblad 1 gekopieert naar de werkblad van het Routenummer +1.

Route 1 heen --> naar werkblad 2
Route 2 heen --> naar werkblad 3
Route 8 heen --> naar werkblad 9

etc.

Sub Route()
Dim BeginRij As Integer
Dim SchrijfRij As Integer
BeginRij = 1
SchrijfRij = 1
Do Until Worksheets(1).Cells(BeginRij, "E") = ""
If Left(Worksheets(1).Cells(BeginRij, "E"), 5) = "Route" Then
Rows(BeginRij & ":" & BeginRij).Select
Selection.Copy
Worksheets(Mid(Worksheets(1).Cells(BeginRij, "E"), 7, 1) + 1).Select
Do While ActiveSheet.Cells(SchrijfRij, "E") <> ""
SchrijfRij = SchrijfRij + 1
Loop
Rows(SchrijfRij & ":" & SchrijfRij).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Activate
End If
Application.CutCopyMode = False
BeginRij = BeginRij + 1
Worksheets(1).Activate
Loop

End Sub

 

[CorVerm]

Hier nog een oplossing.

 

[JohnBoy]

Heren

Ziet er op dit moment naar uit dat ik hiermee verder kan. Ga dit vanavond ook direct proberen. Superbedankt voor de reacties.

Waar zouden we zijn zonder de mensen van helpmij???