cel laten kleuren bij aanklikken

[coolsluc]

Aan alle helpers,

Kan iemand mij helpen aub.
ik heb een goed werkende file (kaartprijskamp)
Nu zo ik graag een extra willen inbouwen?

Als ik cel B2 aanklik zou deze moeten kleuren enkel als er in cel C2 een naam is geselecteerd.
deze formule /opmaak zou ik dan kunnen doortrekken tot B...
Heb dit geprobeerd via opmaak maar ken niet veel van deze materie


ps:Er wordt alle rondes willekeurig een persoon getrokken die één natura prijs wint,deze kan ik dan gemakkelijk controleren via bovengestelde vraag.
dit liep in het verleden al eens mis (niet getrokken personen maakt aanspraak op een prijs)!!

mvg,lco Bekijk bijlage moederfile prijskamp1.xlsm

 

[coolsluc]

Aan alle helpers,

Ik heb deze code toegevoegd via Alt+F11 maar deze werkt niet

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
If target.Interior.ColorIndex = xlNone Then
target.Interior.ColorIndex = 43
ElseIf target.Interior.ColorIndex = 43 Then
target.Interior.ColorIndex = xlNone
End If
End Sub

Wat doe ik verkeerd??


mvg,lco

 

[emields]

al geprobeerd te dubbelklikken? bij mij werkt het alleszins.

 

[coolsluc]

Emields,

bedankt om te kijken

ik zou dit enkel in kolom B gebruiken
bij mij werkt het niet met dubbelklikken,er gebeurt niets??
zie nieuwe bijlage

Bekijk bijlage moederfile prijskamp1.xlsm


mvg,Luc

 

[VenA]

Je code staat niet tussen codetags.

 

[coolsluc]

Vena,

bedankt voor de opmerking.

ps:ik heb deze code van het forum gekopieerd ,maar heb geen kennis van vba (alles is samengesteld door forumleden)
heb codetags opgezocht maar begrijp er niets van SORRY


mvg,Lco

 

[edmoor]

Maak er dit van en zorg ervoor dat het achter het juiste werkblad staat:

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
    If target.Column = 2 Then
        ActiveSheet.Unprotect
        target.Interior.ColorIndex = IIf(target.Interior.ColorIndex = xlNone, 43, xlNone)
        ActiveSheet.Protect
        Cancel = True
    End If
End Sub

Betreffende de codetags:
http://www.helpmij.nl/forum/announcement.php?f=5

 

[coolsluc]

edmoor,

bedankt voor de oplossing en de verwijzing naar de codetags:thumb:
ps:nog een vraagje,hoe pas ik de vba code aan zodat deze werkt met een enkele klik i.p.v dubbelklikken

nog een probleem gevonden nl; als ik de macro blad leegmaken gebruik blijven de cellen die ik gekleurd heb staan,deze zouden terug wit moeten worden, kan dit in de macro aangepast worden aub. dit om het plaatje compleet te maken,alvast bedankt voor alle hulp


mvg,Luc

 

[edmoor]

Dat gaat met de Worksheet_SelectionChange, maar dat zal je niet willen.
Ten eerste heb je daar al code staan en ten tweede wordt dan het wisselen tussen de beide kleuren een stuk lastiger.
Je kan het wel zo doen, dan maakt het niet uit op welke cel in een regel je klikt, behalve kolom C. De cel in die regel in kolom B zal dan worden gebruikt:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ActiveSheet.Unprotect
    Cells(Target.Row, 2).Interior.ColorIndex = IIf(Cells(Target.Row, 2).Interior.ColorIndex = xlNone, 43, xlNone)
    ActiveSheet.Protect
    Cancel = True
End Sub

 

[coolsluc]

edmoor,
Waarschijnlijk ben ik niet mee maar kan de kleur niet aangepast worden met één klik,deze wordt eenmalig gebruikt en na afloop word het blad geledigd waarna
(indien mogelijk via de macro de originele achtergrond terug zou moeten verschijnen)
ps:ik vraag maar of het mogelijk is?


mvg,luc

 

[edmoor]

Zoals ik al zei in #9, dat ga je ook niet willen met 1 klik en daarbij heb ik uitgelegd waarom.
Heb je dat wel goed gelezen?
De gewijzigde code maakt alleen de dubbelklik wat eenvoudiger.

 

[coolsluc]

edmoor,

ik heb dit zeker gelezen en reeds toegevoegd (werkt perfect)bedankt daarvoor.
ps:mijn probleem blijft dat bij het ledigen van het blad via de macro de gekleurde cellen niet de originele kleur terug krijgen.
Als dit niet kan moet dit telkens manueel aangepast worden (met kans op fouten met de gekende gevolgen ,zie vraagstelling post1


mvg,Luc

 

[edmoor]

Geen idee hoe je dat blad leegt, maar via een stukje VBA kan dat zo voor alleen kolom B:

ActiveSheet.Unprotect
Range("B2:B" & Range("B2").CurrentRegion.Rows.Count).Interior.ColorIndex = xlNone
ActiveSheet.Protect

 

[coolsluc]

edmoor, Nogmaals bedankt voor de code
heb deze reeds ingebracht en werkt perfect.

ps:bij deze is de vraag opgelost ,tot later




mvg,Luc

 

[emields]

Stel dan uw vraag als opgelost in uw 1°post rechtsboven.