Regel en Kolom inkleuren

[Hoornvan]

Hallo helpers.

Ik heb een vraag en wel de volgende;
Een poosje terug heb ik ergens gelezen dat iemand een code geschreven had om de regel en kolom in te kleuren, om zo te zien welke geselecteerd zijn.
normaal zie je dit aan de regel zijkant en boven aan de kolom.

Dit heb ik ook voorelkaar gekregen en nu wil ik de code vergelijken om te zien of deze hetzelfde is, of dat de code van mij korter kan.

Maar waar stond deze code, ik dacht dat dit in een vraag voorkwam, maar welke?
Ik heb al met Doorzoek dit forum gezocht maar weet niet meer welke vraag het was.
Het is ongeveer 1,5 week geleden, misschien kan iemand dit zich nog herinneren.

Mijn code ziet er zo uit en staat achter het werkblad;

Public Sub Worksheet_SelectionChange(ByVal Target As Range)
'Cel A1 moet de eerste keer met de hand worden in geuld.
ActiveSheet.Unprotect
  [B1].Value = ActiveCell.Address 'Dit is de geselecteerde cel.
  WasCel = [A1].Value 'Dit was de vorige Activecel.

  Range(WasCel).EntireRow.Cells().Interior.ColorIndex = xlNone
  Range(WasCel).EntireColumn.Cells().Interior.ColorIndex = xlNone

  [A1] = [B1].Value
  [A1] = ActiveCell.Address
  ActiveCell.EntireRow.Cells().Interior.ColorIndex = 15
  ActiveCell.EntireColumn.Cells().Interior.ColorIndex = 15
ActiveSheet.Protect
End Sub

Dit gebruik ik om mijn sudoku op te lossen.
Zie bijlage.

 

[danny147]

Beste Hoornvan

Heb hier nog een bestandje zitten hetgeen je bedoelt.

Groetjes Danny. :thumb:

 

[Ron321]

Hier nog één.

 

[Hoornvan]

danny147 en Ron321,

Sorry dat ik zolaat reageer maar moest even weg.
Hartelijk bedankt voor de bestandjes, ik had helemaal niet aan de voorwaardelijke opmaak gedacht.
Het werkt uiteindelijk het zelfde maar dit is een stuk korter.

Hier kan ik verder mee,

 

[danny147]

Beste Hoornvan

Een sudoku speler lees ik.

Als je een bestandje wilt over sudoku, ga dan eens naar mijn site bij spelletjes.

Moet eens naar dat bestandje kijken hoe het in elkaar zit.
Vergeet mijn gastenboek niet

Groetjes Danny. :thumb:

 

[RB_online]

Bedoelde je deze vraag?

http://www.helpmij.nl/forum/showthread.php?t=430521

mvg
René

 

[Hoornvan]

RB_online,

Nee dit bedoelde ik niet, misschien was het wel de vraag.
danny147 en Ron321 gaven mij het geen ik bedoelde.

In ieder geval bedankt.

danny147
Ik zal eens op je site kijken, bedankt.