Voorwaardelijke opmaak voor cel in kolom A

[Evelthoven]

Goedemiddag,

Ik heb een vraag gesteld in bijgaand bestandje over voorwaardelijke opmaak waar ik na veel proberen nog steeds niet uitkom.
Kan iemand mij aub. helpen?

Alvast bedankt.

 

[edmoor]

Links van Kolom A staat het rijnummer. Daaraan kan je al zien waar je bent. Dat is niet voldoende?

 

[Evelthoven]

Hallo Edmoor,

Daar heb je helemaal gelijk in, en dit weet ik ook, maar het is meer voor de duidelijkheid. Het rijnummer is nl. niet hetzelfde als de nummers van de vragen (rijen in het formulier). Dit is meer bedoeld om vergissingen zoveel mogelijk uit te sluiten.
Als het heel veel werk is dan hoeft het niet, dan moet ik gewoon beter opletten. Maar het zou fijn zijn als het wel mogelijk is.

 

[edmoor]

Het kan ook wel. Als niemand me voor is zal ik vanavond eens voor je kijken.

 

[popipipo]

Dat kan op deze manier.

 

[Demeter]

Kan met een macro komende van de msdn pagina: https://msdn.microsoft.com/en-us/library/office/ff820716.aspx#sectionSection1

plaats deze code achter je tabblad

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub
    
    Application.ScreenUpdating = False
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    With Target
        ' Highlight the entire row and column that contain the active cell
       'Verander kleurnummer naar behoeven
       'voor actieve rij
        .EntireRow.Interior.ColorIndex = 8
       'voor actieve kolom
        '.EntireColumn.Interior.ColorIndex = 8
    End With
    
    Application.ScreenUpdating = True
    
End Sub

 

[Demeter]

Popipipo,

Das een lekkere , nog maar weer eens wat van je geleerd.

Even de code eruit genomen:
Code in voorwaardelijke opmaak:

=OF(RIJ()=CEL("row"))

Lekker bezig :thumb:

 

[Evelthoven]

De laatste oplossing is bijna goed van Popipipo, maar in de kolommen C, F, I, L enz. heb ik de antwoorden gezet maar met een witte tekst en deze worden door de geboden oplossing nu zichtbaar, wat natuurlijk niet de bedoeling is.
Kan dit misschien aangepast worden. Zelf denk ik eraan om de tekst in betreffende cellen dan dezelfde kleur te geven als de kleur in de rij.

 

[popipipo]

Ik heb het bestandje aangepast zodat alleen kolom A kleurt.

Bovendien vind ik het niet handig/verstandig om de juiste uitslagen op die plaats te zetten
Je maakt spieken zo wel heeeeeeeeel gemakkelijk.

 

[Evelthoven]

Popipipo,

Daar heb je helemaal gelijk in.
Wil je misschien het bestandje nog even meesturen? Helaas vergeten denk ik.

 

[popipipo]

Zie #5

 

[Evelthoven]

Dag Popipipo,

Misschien begrijp ik het niet helemaal, maar als ik de code uit #5 kopieer en plak in mijn werkblad van het originele bestand kleurt er een hele rij. De bedoeling is dat bij een bepaalde selectie alleen de corresponderende cel in kolom A kleurt. Doe ik iets fout of zie ik iets over het hoofd? Sorry dat ik misschien vervelend ben.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub
    
    Application.ScreenUpdating = False
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    With Target
        ' Highlight the entire row and column that contain the active cell
       'Verander kleurnummer naar behoeven
       'voor actieve rij
        .EntireRow.Interior.ColorIndex = 8
       'voor actieve kolom
        '.EntireColumn.Interior.ColorIndex = 8
    End With
    
    Application.ScreenUpdating = True
    
End Sub

 

[popipipo]

Je haalt nu de 2 oplossingen van Demeter en mij door elkaar.

Bekijk dit voorbeeldje eens.

 

[Evelthoven]

Popipipo, ik heb je voorbeeldbestandje geopend en het werkt hier perfect. Daarna heb ik gekeken naar de code en daar zie ik staan bij dit werkblad:

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

Deze code heb ik gekopieerd en daarna geplakt in het betreffende werkblad, blad1, van mijn bestand. Bestand daarna opgeslagen en als ik het nu probeer gebeurt er helemaal niks. Het is ook een hele korte code, dus ik denk dat er van alles tussen moet, maar dat kan ik in jouw bestandje nergens vinden. Ik ben niet blond, maar toch....! sorry!

 

[popipipo]

Er zit ook nog een voorwaardelijk opmaak in (A4:A14) daar vroeg je immers om

 

[Evelthoven]

Het is nu gelukt! Hartstikke bedankt.
Zou je me nu als laatste ook a.u.b. nog uit willen leggen wat er precies gebeurt? Ik heb het nu domweg allemaal gekopieerd, maar ik snap echt niet wat er allemaal gebeurt.
Hierna zal ik mijn vraag op opgelost zetten.

 

[popipipo]

Cell("row") geeft de rij weer waarin de cursor staat.
Deze vergelijkt hij met het rij nummer
Dit komt overeen dus de stelling is waar dus regel wordt gekleurd.

Let wel ik heb hem niet zelf verzonnen maar komt uit mijn archief van formules e.d.

 

[Evelthoven]

Popipipo bedankt en natuurlijk ook alle anderen die er mee bezig zijn geweest.

 

[VenA]

Maak van

Application.Screenupdating = True

eens

Application.Calculate

scheelt een hoop geflikker.

 

[Evelthoven]

Beste VenA,

Bedankt voor de aanvulling. Het klopt, het geflikker is nu helemaal weg. Super! Maar ik was al dik tevreden met de oplossing van Popipipo.