VBA code herhalen

[Plaka]

Hallo,

Ik wens een celinhoud bv G10 te wissen als er in één van de volgende drie cellen bv H10:J10 een getal komt te staan.  Echter hoe kan ik dit herhalen voor meerder rijen  ? G11.....Gxxx 

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H10:J10")) Is Nothing Then
Range("G10").ClearContents
End If
End Sub

 

 

thx

 

 

[emielDS]

Waar is het voorbeeld bestand?

[alpha]

7 uren geleden, Plaka zei:

Ik wens een celinhoud bv G10 te wissen als er in één van de volgende drie cellen bv H10:J10 een getal komt te staan. Echter hoe kan ik dit herhalen voor meerder rijen  ? G11.....Gxxx 

Voor een oplossing moet iets meer bekend zijn, namelijk:

Om G10 te wissen is de inhoud van H10:J10 bepalend, maar hoe zit dat voor G11, G12, enz. ?

Is dan H11:J11,  H12:J12, enz bepalend, of blijft het altijd louter gaan om H10:J10 ?

En als de inhoud van een G-cel gewist is, moet er dan nadien (als de 3 naast-liggende cellen geen getallen bevatten) opnieuw wat geplaatst worden in die G-cel ?

31 oktober 2018 aangepast door alpha

[alpha]

@Plaka,

Vreemd, dat je niet antwoordt op een vraag die bijdraagt aan een oplossing van je probleem.

Hoe dan ook, op grond van wat je hebt vermeldt, denk ik dat je dit nodig hebt (voor de rijen 10 t/m 30):

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("H10:J30"), Target) Is Nothing Then
If Application.IsNumber(Target.Value) Then
Range("G" & Target.Row).ClearContents
End If
End If
End Sub

2 november 2018 aangepast door alpha

[Plaka]

Goedemorgen Alfa,

 

Bedankt voor je berichtjes ( ik was op vakantie)

En inderdaad, om G10 te wissen is de inhoud van H10:J10 bepalend, voor G11, G12,

dan is H11:J11,  H12:J12, enz bepalend. Nadien hoeft er niets te worden ingebracht - integendeel.

 

Ik zal het de bovenstaande oplossing eens inbrengen en kom hier zeker op terug !

 

mvg

Plaka

5 november 2018 aangepast door Plaka

[Plaka]

Hallo Alfa,

 

Dit werkt prima -

 

Kan dit ook speciefiek met datums ipv getal  in de range H10:J30 in het voorbeeld ?

zelf heb ik naar jouw voorbeeld  Application.IsDate (target.Date) even getest doch zonder resultaat.

 

 

mvg

Plaka

 

[alpha]

10 minuten geleden, Plaka zei:

Kan dit ook speciefiek met datums ipv getal in de range H10:J30 in het voorbeeld ?

Natuurlijk kan dat. In plaats van

If Application.IsNumber(Target.Value) Then

gebruik je dan:

If IsDate(Target.Value) Then

[Plaka]

Dat leek me logisch en had ik al geprobeerd doch ik krijg foutmeldingen

[alpha]

Wat jij probeerde en wat fout is: If Application.IsDate (target.Date) Then
is NIET hetzelfde als wat ik schreef: If IsDate(Target.Value) Then

5 november 2018 aangepast door alpha

[Plaka]

Mea culpa , dit werkt weer schitterend... thx alpha