macro botst met andere macro

[markdehaan]

hallo allemaal,

De onderstaande macro botst met een macro die in het tabblad gegevens plakt.


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("a3100"), Target) Is Nothing Then
If Selection.Value = "Voltooid" Then
With Sheets("test")
lr = .Range("a65536").End(xlUp).Row + 1
Rows(Target.Row).Cut .Cells(lr, 1)
End With
Rows(Selection.Row).Delete
End If
End If
End Sub


Als ik die andere macro laat draaien dan licht hij de volgende zin van bovenstaande macro uit:
If Selection.Value = "Voltooid" Then

Heb ik per ongeluk iets verkeerd staan in deze macro?
Of ligt het waarschijnlijk toch aan de andere macro?
Mochten jullie meer informatie nodig hebben, dan hoor ik het graag.

Alvast bedankt

 

[leofact]

Zonder de andere macro te kennen kun je naar twee dingen kijken.

Deze selecteert w.s meerdere cellen waarin wat veranderd wordt, waarna het change event wordt afgevuurd.
Dit verhelp je mogelijk door naar de waarde van de target te kijken ipv de selectie.

Een andere optie is om de eerste macro events uit te zetten met

Application.EnableEvents = False

Zo voorkom je dat er naar het Change event wordt gesprongen.
Aan het eind van de routine moet je events dan weer true zetten.
Hopelijk kun je hier iets mee.
Mvg Leo

 

[markdehaan]

Bedankt!

het werkt perfect!

 

[leofact]

Mooi. Goed dat je weer verder kunt.
Mvg Leo