• 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.

Rij kleuren als cel aangeklikt wordt

Status
Niet open voor verdere reacties.

Pirelo

Gebruiker
Lid geworden
26 okt 2013
Berichten
26
Heb deze code gevonden maar hier wordt de hele rij van de geselecteerde cel ingekleurd, ik zou enkel rij willen inkleuren tot een zeker punt.
BV, in geselecteerde zone "A2:AB23" of tot kolom AB .

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 36


End Sub
 
Probeer deze eens:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Interior.ColorIndex = xlColorIndexNone
    Range("A" & Target.Row & ":AB" & Target.Row).Interior.ColorIndex = 36
End Sub
 
Ok dan. Maar toch iets aangepast ;)
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Interior.ColorIndex = xlColorIndexNone
    Range("A" & Target.Row).Resize(, 28).Interior.ColorIndex = 36
End Sub

Zo is die Target.Row maar 1x nodig en hoeft er niets aan elkaar geplakt te worden.
Is netter.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan