Opgelost actuele cel highlighten

[edmoor]

Klopt.
Daar staat de code die jverkerk voor je maakte.
Dat doet wat je vroeg in #1.

De code staat in dit geval dus "achter" ThisWorkbook.
Of "in" als je dat beter vind.

 

[Angela69]

Klopt.
Daar staat de code die jverkerk voor je maakte.
Dat doet wat je vroeg in #1.

Als dat zo is, dan zou de cel "geel" moeten zijn, en dat is het niet

<br><br> ' Geef de huidige geselecteerde cel een kleur<br> Target.Interior.Color = RGB(255, 255, 0) ' Geel<br>

 

[edmoor]

RGB(255, 255, 0) is geel.
Doet het hier prima.

Of zo:

    ' Geef de huidige geselecteerde cel een zwarte achtergrond en witte tekst
    Target.Interior.Color = RGB(255, 255, 0) ' Geel
    Target.Font.Color = RGB(0, 0, 0) ' Zwart

 

[Angela69]

RGB(255, 255, 0) is geel.
Doet het hier prima.

Wat gaat in bijgaand bestand dan niet goed?

 

[AD1957]

De code moet in blad1

 

[Warme bakkertje]

Deze wel.

 

[jverkerk]

er is verschil tussen worksheetselection, de code in #8 is workbookselection.
Volgens mij moet je die code achter het workbook plaatsen.
Wat niet goed is de plaats waar je het geplaatst hebt. Het moet achter blad1 en die van #8 achter het workbook, dan geld het voor het hele workbook.
Kijk naar de bovenkant van de code of er worksheet of workbook staat.
Hier heb je hem weer terug

 

[Angela69]

De code moet in blad1

Top, dit zijn duidelijke antwoorden,bedankt

er is verschil tussen worksheetselection, de code in #8 is workbookselection.
Volgens mij moet je die code achter het workbook plaatsen.
Wat niet goed is de plaats waar je het geplaatst hebt. Het moet achter blad1 en die van #8 achter het workbook, dan geld het voor het hele workbook.
Kijk naar de bovenkant van de code of er worksheet of workbook staat.

Dank je wel, het werkt nu in ieder geval, maar hoe geef ik de tekstkleur aan?

 

[jverkerk]

Die staat in #8 voor het gehele werkbook.

 

[Warme bakkertje]

Misschien toch maar beter even apart vermelden. LOL

Target.Font.Color = RGB(255, 255, 255) ' Wit

 

[edmoor]

Er is verschil in het laten werken van code op een werkblad of voor alle werkbladen.
De code in het test document laat het voor ieder werkblad gelden.

 

[Angela69]

Die staat in #8 voor het gehele werkbook.

Ja veel dank, maar het wordt voor mij lastiger nu ik het in mijn sheet mag plaatsen, zie nu veel modules en bladen, ik weet hier geen raad mee, zou je dit voor mij kunnen oplossen?

In bijgaand (beveiligd) bestand moet slechts in het blad "invoer scores" de betreffende code werken, zou je die voor mij willen plaatsen? Alvast bedankt

 

[edmoor]

Dat gaat niet werken met een beveiligd werkblad.
Daarvoor is het wachtwoord nodig.

 

[jverkerk]

Dan moet ik het ww weten

 

[edmoor]

Of zo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static PreviousCell As Range ' Houd de vorige cel bij
    
    ' Beveiliging opheffen
    ActiveSheet.Unprotect "Je Wachtwoord"
    
    ' Zet de vorige cel terug naar standaardkleur (indien van toepassing)
    If Not PreviousCell Is Nothing Then
        PreviousCell.Interior.ColorIndex = xlNone
    End If
    
    ' Geef de huidige geselecteerde cel een kleur
    Target.Interior.Color = RGB(255, 255, 0) ' Geel
   
    ' Beveiliging terug zetten
    ActiveSheet.Protect "Je Wachtwoord"
    
    ' Sla de huidige geselecteerde cel op als de vorige cel
    Set PreviousCell = Target
End Sub

Zelf even je wachtwoord invullen tussen de dubbele quotes.

 

[peter59]

Ik zie dat de "Focuscel" welke ik in #7 noemde, wel werkt maar alleen in de niet beveiligde cellen.
Ik vraag mij ook af welke kleur je gaat gebruiken voor de cel welke dient te markeren.
Het is nu al een behoorlijke kleurplaat geworden.

 

[Warme bakkertje]

En de tekstkleur niet vergeten.

 

[jverkerk]

@peter59 Waar zet jij die focuscel aan, ik heb ook 365 maar kan die niet vinden.

 

[peter59]

@jverkerk
Zie #7.
Je dient wel, dacht ik de "insiders" versie te hebben.

 

[jverkerk]

@peter59 Vanmorgen kon ik hem niet vinden en nu ineens wel. Vreemd