code werkt al bij scrollen.

[thst]

Hoi allemaal,

Ik heb een code gezet in:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

maar nu hoef ik maar te scrollen van de ene cel naar de andere en hij begint de code al uit te voeren, zonder dat ik iets gewijzig heb.

Weet iemand daar iets op ?

Angela

 

[trucker10]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Weet iemand daar iets op ?

Angela

Angela , SelectionChange ? wat we niet zien of lezen is waarvoor je de code wil gebruiken soms los je dit op door Intersect methode bv deel van een code !

If Intersect(Target, Range(................

of

If Not Intersect(Target, Range(..............

of misschien door "Worksheet_Change" wie weet .

 

[Superzeeuw]

Angela,

De routine verklapt het al:

Selection Change.

Op het moment dat je een andere cel kiest voert deze de macro uit.
Je kunt hem laten reageren op:
een bepaalde cel target.address = "$A$1"
een bepaalde kolom target.column = 1
een bepaalde regel target.row = 1