markdehaan
Gebruiker
- Lid geworden
- 8 mrt 2011
- Berichten
- 34
Goedemorgen,
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.
Wat zie ik over het hoofd?
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
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.
Wat zie ik over het hoofd?
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
