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

hele rij van geselcteerde cel een kleur geven

Status
Niet open voor verdere reacties.
Andre175

Andre175

Gebruiker
Lid geworden
2 feb 2018
Berichten
351
hallo......

ik wil graag dat de rij van de geselecteerde cel een kleur krijgt.
nu lukt dat wel met onderstaande code...
A1 = bijvoorbeeld geel

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim kleur As String
    kleur = Range("A1").Interior.Color
    ActiveCell.EntireRow.Interior.Color = kleur
End Sub

echter blijft de kleur dan staan wanneer ik een andere rij (cel) selecteer.
hoe is het op te lossen dat de rij alleen een kleur krijgt indien er een cel geselecteerd is in die rij.

(ik gebruik dmv voorwaardelijke opmaak ook kleuren per rij, deze moeten wel blijven.
wanneer er een VO is en de rij wordt geselecteerd, dan moet de kleur wel tijdelijk veranderen.)


André
 
Zo?

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.Color = xlNone
    ActiveCell.EntireRow.Interior.Color = vbGreen
End Sub

Of wil je die kleur telkens wijzigen?
 
Omdat het nog nooit eerder gevraagd is, hier 2 bestandjes uit een archief. (het is beter dat je zelf een bestandje plaatst)
 

Bijlagen

  • active cel rij en kolom.xlsm
    18,2 KB · Weergaven: 58
  • Actieve cel kleuren.xlsm
    14,3 KB · Weergaven: 53
De vw-opmaak formule uit je archief kan wel een update gebruiken.
 
Deze:
Code: 
Dim pcell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not pcell Is Nothing Then pcell.EntireRow.Interior.Color = xlNone
    If Target.Row = 1 Then Exit Sub
    ActiveCell.EntireRow.Interior.Color = Range("A1").Interior.Color
    Set pcell = Target
End Sub

Zo kan je ook naar wens de kleur van A1 wijzigen.
 
Laatst bewerkt:
Iedereen bedankt voor hun inbreng... heb het nu bijna zoals de bedoeling was.
ik had al wel vermeld dat ik door middel van VO met kleuren werk in mijn tabel, deze blijven ook keurig zoals het was.
Wat ik niet gezegd had, en zelf ook niet aan gedacht heb, is dat ik in 1 Kolom enkele cellen handmatig een kleurtje geef.
Deze enkele handmatig gekleurde cellen verdwijnt de kleur, is echter geen ramp.

indien er toch een mogelijkheid is om de code zo aan te passen zodat ik nog wel handmatig enkele cellen kan inkleuren, hoor ik het graag.


ik heb de Code nog iets aangepast.....

Code: 
Dim pcell1 As Range
Dim pcell2 As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not pcell1 Is Nothing Then pcell1.EntireRow.Font.FontStyle = xlNone
    If Target.Row = 1 Then Exit Sub
    ActiveCell.EntireRow.Font.FontStyle = Range("A1").Font.FontStyle
    Set pcell1 = Target
    If Not pcell2 Is Nothing Then pcell2.EntireRow.Interior.Color = xlNone
    If Target.Row = 1 Then Exit Sub
    ActiveCell.EntireRow.Interior.Color = Range("A1").Interior.Color
    Set pcell2 = Target
End Sub


André
 
Laatst bewerkt:
Als je keuze op het eerste bestand van @VenA was gevallen was er niets aan de hand.

Wel die formule aangepast uit het archief van @VenA.
 

Bijlagen

  • active cel rij en kolom.xlsb
    14,8 KB · Weergaven: 53
Deze had ik gezien, echter ik vind daarin alleen de volgende code..............

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

het lijkt mij dat er meer moet zijn....:)
 
Mooi he. De rest gaat via voorwaardelijke opmaak waar een paar onnodige OR's in stonden die de werking niet in de weg stonden maar er terecht door @HSV uitgehaald zijn.
 
Meer is er niet aan code.
De rij en kolom veranderd toch van kleur?
Dat is met Voorwaardelijke opmaak gedaan.
 
:D... ach ja, waarom moeilijk doen als het simpel kan.....
weer opgelost dus.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan