hoe bijkomende selectie inbouwen voor verwerking van rijen ?

[Kopaan]

1. In mijn VBA code staat nu oa volgende :

……
With Sheets("bestellingen")
For Each cl In Sheets("prt").Columns(9).SpecialCells(2)
If cl > 0 Then
……

Met deze code werden enkel de gewijzigde cellen in colom 9 verwerkt
wat tot heden OK was.
( in kolom 8 staat de originele hoeveelheid,
de gebruiker kan in kolom 9 zijn wijzigingen ingeven,
enkel de gewijzigde cellen moeten verwerkt worden )

kolom 8 kolom 9 kolom 10
aantal verstuurd gewijzigd
3 3 0
1 1 0
3 3 0
6 1199 1 xx
3 3 0
4 144 1 xxx
5 5 0
6 1 xx
2 2 0



2. Ik heb nu echter een andere manier moeten gebruiken om mijn gegevens op te bouwen
via volgende instructies ( dus geen formules meer copieeren maar enkel de waarde )

…
Range("in").Select
Selection.Copy
Range("instart").PasteSpecial xlPasteValues
…


Dit heeft echter als gevolg dat alle cellen in kolom 9 nu als "gewijzigd" worden aanzien
en alle cellen ook verwerkt worden wat NIET OK is.


3. vraag :

Kan ik na de code Range("instart").PasteSpecial xlPasteValues
een code ingeven zodat de kolom 9 niet als gewijzigd wordt beschouwd ?

en dat de onderstaande code terug werkt als vroeger ?
…
Range("in").Select
Selection.Copy
Range("instart").PasteSpecial xlPasteValues
…

Of
Ik heb in kolom 10 een formule toegevoegd om wijzigingen van de gebruiker op te vissen.

Maar hoe kan ik hier nu op selecteren zodat enkel de gewijzigde cellen worden verwerkt ?

 

[wampier]

Als ik er zo even naar kijk hoef je alleen de cellen nemen waar kolom 9 een andere waarde heeft dan kolom 8 (dat is wat kolom 10 doet).

For Each cl In Sheets("prt").Columns(9)
   if (cl>0 ) AND (cl.value <> cl.offset(0,-1).value) then

 

[Kopaan]

Bedankt ! Werkt nu zoals gewenst.
Perfect !