Meerdere cellen wissen op actieve rij

[Robert Smidt]

Beste Helpmij'ers,

Onderstaande code geeft een foutmelding. Wanneer ik alleen de actieve cel in "kolom M" wil leeg maken werkt het, maar wanneer ik op de actieve rij twee of meer cellen wil leeg maken geeft deze een foutmelding.

       If Range("M" & Target.Row) <> "" And Range("H" & Target.Row) <> "Op rekening" Then [B]Range("M:N" & Target.Row)[/B] = ""

Een antwoord zie ik met veel belangstelling tegemoet.

Met vriendelijke groet,
Robert Smidt

 

[HSV]

Zo te zien staat de code in een worksheet_change event.
Heb je gebruik gemaakt van:

if target.count = 1 then

Onderstaande is ook niet goed geschreven.

Range("M:N" & Target.Row)

cells(target.row,13).resize(,2).clearcontents

lijkt me beter te werken.

 

[VenA]

Moet het niet zo zijn?

Range("M" & Target.Row & ":N" & Target.Row)

of

Range("M" & target.row).resize(,2)

Edit. Zoals HSV ook ontdekt heeft.

 

[Robert Smidt]

Ik gebruik idd if target.count = 1 then. De code werkt perfect. Heel hartelijk bedankt.