VBA range bepalen dmv formule.

[popipipo]

If Not Intersect(Target, Range("F4:DT53")) Is Nothing Then

In een bestand moeten vinkjes gezet worden dmv dubbel klikken.
Bovenstaande regel bepaald om welke range het gaat.

Echter de vinkjes mogen niet in de gehele range geplaatst worden maar in de helft daarvan.

=MOD(COLUMN()-6;4)

Alleen als de uitslag van deze formule een 0 of een 1 is mag er een vinkje geplaatst worden.

Hoe kan ik dat dmv deze formule (of op een andere manier) de juiste range bepalen.
In bijlage gaat het dus om de gele cellen.

 

[JeanPaul28]

Willem, de rode tekst er tussen zetten

If Not Intersect(Target, Range("F4T53")) Is Nothing Then
If Cells(1, Target.Column) > 1 Then Exit Sub
If Target.Value = "" Then
With ActiveCell
.Value = "P"
.Font.Name = "wingdings 2"
.Font.Size = 18
Target.Offset(1, 0).Select
End With

 

[HSV]

Dag Willem,

If Not Intersect(Target, Range("F4:DT53")) Is Nothing Then
   [COLOR=#FF0000] if (target.column - 6) mod 4 < 2 then[/COLOR]
If Target.Value = "" Then
----
----
[COLOR=#FF0000]end if[/COLOR]
 end sub

 

[popipipo]

@ Jean-Paul
Je formule werkt prima :thumb:
Echter rij 1 was er als voorbeeld in gezet om nummering weer te geven.
In werkelijke bestand staat deze er niet.

@ Harry
Alsof je het geroken had dat regel 1 niet in het werkelijke bestandje staat.
Werkt zoals ik verwacht had. :thumb: :thumb: :thumb: