danny147
Terugkerende gebruiker
- Lid geworden
- 29 apr 2007
- Berichten
- 4.744
Beste, 
Heb een sheet met 5000 rijen waarvan ik gegevens moet wegschrijven volgens een aantal ijsten.
In kolom AA staan 36 prioriteit 1 loopkranen, die op blad 2 moeten geplaatst worden.
In kolom AB staan 70 prioriteit 2 loopkranen, die op blad 3 moeten geplaatst worden.
Ik gebruik nu de volgende code die perfect werkt, enkel heb ik alle prioriteit 1 kranen er allemaal handmatig ingeplaatst.
Kan men de rode gemerkte code veranderen door te verwijzen naar AA kolom waar deze allemaal staan ("AA2:AA37") en ("AB2:AB71") ?
Groetjes Danny. :thumb:

Heb een sheet met 5000 rijen waarvan ik gegevens moet wegschrijven volgens een aantal ijsten.
In kolom AA staan 36 prioriteit 1 loopkranen, die op blad 2 moeten geplaatst worden.
In kolom AB staan 70 prioriteit 2 loopkranen, die op blad 3 moeten geplaatst worden.
Ik gebruik nu de volgende code die perfect werkt, enkel heb ik alle prioriteit 1 kranen er allemaal handmatig ingeplaatst.
Code:
Sub AA_Kranen_naar_blad2()
Dim x As Long
Dim y As Long
Dim c As Variant
x = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
y = 1
For Each c In Range("C2:C2000")
[COLOR="#FF0000"] If c = "LK100" Or c = "LK101" Or c = "LK103" Or c = "LK111" Or c = "LK120" _
Or c = "LK121" Or c = "LK122" Or c = "LK132" Or c = "LK133" Or c = "LK135" _
Or c = "LK145" Or c = "LK146" Or c = "LK310" Or c = "LK311" Or c = "LK401" _
Or c = "LK402" Or c = "LK403" Or c = "LK404" Or c = "LK405" Or c = "LK100R" _
Or c = "LK101R" Or c = "LK103" Or c = "LK111R" Or c = "LK120R" Or c = "LK121R" _
Or c = "LK122R" Or c = "LK132R" Or c = "LK133R" Or c = "LK135R" Or c = "LK145R" _
Or c = "LK146R" Or c = "LK310R" Or c = "LK311R" Or c = "LK401R" Or c = "LK402R" _
Or c = "LK403R" Or c = "LK404R" Or c = "LK405R" Then[/COLOR]
c.Rows.EntireRow.Copy Sheets("Blad2").Range("A" & y).Offset(1, 0)
y = y + 1
c.Rows.EntireRow.Delete
End If
Next c
End Sub
Groetjes Danny. :thumb: