VBA wil macro niet meer draaien

[markdehaan]

Goedemiddag,

Onderstaande VBA code werkte voorheen als een zonnetje, maar nu krijg ik opeens de melding compileerfout: kan project of bibliotheek niet vinden.
Ik heb in mijn back up gekeken of er iets verandert is aan mijn code, maar dit is niet het geval.
weet iemand waarom de macro nu niet wil draaien??


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("a3:t1500"), Target) Is Nothing Then
If Selection.Value = "Gereed" Then
With Sheets("extra")
lr = .Range("a15536").End(xlUp).Row + 1
Rows(Target.Row).Cut .Cells(lr, 1)
End With
Rows(Selection.Row).Delete
End If
End If

End Sub


Bedankt alvast!

Mark

 

[HSV]

Probeer het zo eens.

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
  If Not Intersect(Range("a3:t1500"), Target) Is Nothing Then
   If Target.Value = "Gereed" Then
        With Rows(Target.Row)
         .Copy Sheets("Blad1").Range("a15536").End(xlUp).Offset(1)
         .Delete shift:=xlUp
       End With
     End If
   End If
 Application.EnableEvents = True
End Sub

 

[markdehaan]

Bedankt, maar ik had na wat speurwerk al gevonden waar het aan lag.
Toch bedankt!

 

[Haije]

Bedankt, maar ik had na wat speurwerk al gevonden waar het aan lag.
Toch bedankt!

En mogen wij ook weten wat de oorzaak was?