Automatisch inhoud wissen geeft foutmelding

[Hex1976]

Hallo,

In de bijlage heb ik een worksheet gezet waarin ik een VBA code heb geschreven om de inhoud in kolom BG t/m BV te verwijderen afhankelijk van de waarde in kolom Y t/m AN. echter als ik nu in een willekeurige andere kolom een waarde kopieer en plak (test dit met de waarde van Blad1 kopieer en plak deze in cel A12) geeft de VBA code een foutmelding op regel If Target.Column = 25 And Target.Value = "" Then .
Ben ik wat vergeten in mijn code ?

Als ik de bewerking beëindig pakt hij de regel wel weer automatisch op maar ik wil die foutmelding net meer zijn

Alvast bedankt voor de hulp.

Hans

 

[edmoor]

Volgens mij heb je hier voldoende aan:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Select Case Target.Column
        Case 25 To 40: If Target.Value = "" Then Target.Offset(0, 34).ClearContents
    End Select
    Application.EnableEvents = True
End Sub

 

[Hex1976]

Top bedankt werkt prima :thumb:

 

[edmoor]

Er miste nog een stukje controle.
Aangepast in #2.

 

[Hex1976]

Ik vermoede al zoiets, wel fijn dat het ook korter en simpeler kan :d