• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Cellen markeren na muisklik

Status
Niet open voor verdere reacties.

Gert Bouwmeeste

Verenigingslid
Lid geworden
28 nov 2007
Berichten
827
Ik wil op 1 rij de cellen markeren, InteriorColour toekennen via een macro.

De bedoeling is dat, als ik in het gebied A11:F100 op een cel klik, dat dan de cellen in de kolommen A t/m F van die rij een kleur krijgen.

Dus ik klik bv op B33, dan
  • moeten A33:F33 gemarkeerd worden
  • alle andere in het gebied A11:F100 niet.
  • Als de andere al een markering hebben dan moet die gewist worden.

Ik heb nu deze macro gemaakt:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A11:F100")) Is Nothing Then
       [COLOR="Red"][B]Range("A" & Row(), "F" & Row()).Interior.ColorIndex = 52 [/B][/COLOR]  'Olijfgroen
   End If
End Sub

De macro loopt vast op het gemarkeerde deel, wat volgens mij te maken heeft met een onjuist gebruik van ROW()

Wie weet een oplossing?
 
Code:
      Range("A" & ActiveCell.Row() & ":F" & ActiveCell.Row()).Interior.ColorIndex = 52

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan