Conditional Formatting

[Jhon van der Bo]

Is het met een macro of Conditional Format mogelijk een cel in te kleuren als men een andere cel selecteerd, dus gewoon als ik cel B2 heb geselecteerd moet cel A2 rood worden?

 

[Hooija]

Met de volgende code moet dit lukken, klikken in kolom 2 geeft een kleur an de naaste cel in kolom 1

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim k As Integer
Dim r As Integer


k = Application.ActiveCell.Column - 1
r = Application.ActiveCell.Row
If k <> 1 Then
Exit Sub
Else
Application.Cells(r, k).Interior.Color = 0

End If
End Sub

 

[Jhon van der Bo]

Het werkt niet helemaal zoals ik bedoel.
Als ik een cel in kolom B selekteer dan wordt de cel ernaast (in kolom A zwart). Maar als ik dan een andere cel in kolom B selekteer dan blijft de vorige cel in A ook nog zwart, deze zou dan gewoon weer wit moeten worden.
Als ik een cel in kolom C,D,E,F enz selekteer werkt het niet (had ik vergeten te vermelden).

****************************
Het volgende heb ik aangepast / toegevoegd. Nu word de cel in kolom A Blauw met rode vetgedrukte letters.

Application.Cells(r, k).Interior.Color = RGB(0, 0, 255)
Application.Cells(r, k).Font.ColorIndex = 3
Application.Cells(r, k).Font.Bold = True
****************************

 

[Jhon van der Bo]

Als ik van de -1, -2 maakt dan gaat het in kolom C. Het zou zoiets moeten zijn als (-1, -10), maar dan krijg ik een foutmelding bij Column

 

[Hooija]

misschien is dit meer in de richting van wat je wil!

 

[Ingrid B]

Hooija,

als je deze regel:

Application.Cells(RO, KO - 1).Interior.Color = RGB(255, 255, 255)

vervangt door:

Application.Cells(RO, KO - 1).Interior.ColorIndex = xlNone

dan wordt de achtergrondkleur terug verwijderd ipv op wit te zetten, de rasterlijnen blijven dan zichtbaar.

 

[Hooija]

Goeie tip :thumb:

 

[Jhon van der Bo]

zo ver zo goed.
Is het mogelijk om ALLEEN de cellen in kolom A te laten kleuren. Als een cel in b.v. kolom c,d,e,f,g,h enz. geselekteerd is tot dan alleen de cel in A inkleurt, en niet altijd de cel naast de actieve cel?

 

[Hooija]

Dat kan ook

 

[Jhon van der Bo]

werkt goed.
Kan men ook het bereik vaststellen? Ik wil deze functie van cel A1 t/m X100. Buiten dit bereik moet deze functie gewoon vervallen

 

[Hooija]

Door de getallen 23 en 100 in de regel aan te passen kun je zelf bepalen waar het wel werkt en waar niet.

If k = 0 Or kr > 23 Or r > 100 Then

 

[Jhon van der Bo]

Precies zoals ik het bedoel.

Hooija, bedankt :thumb: