Oplichten kolom en rij naast de cel waarin je staat. Bestaat dit al?!? dit lijkt mij nl erg handig

Question

Ik ben erg benieuwd of het mogelijk is (in Excel) om de rij en de kolom automatisch te laten oplichten als je ergens in het blad in een cel staat.

Ik gebruik een groot bestand (ik weet dat ik titels etc kan blokkeren) en ik moet in een bepaalde kolom en dan in bijna 700 rijen iets in vullen. Ik wil graag in één oogopslag zien of ik het in de juiste cel invoer.

BV ik moet in kolom F een getal invullen en in kolom C staat de naam waar het betreffende getal op slaat en in kolom A moet soms ook iets ingevuld worden. Het nummer van de rij wordt wel lichtelijk opgelicht, maar het zo zo handig zijn dat je met 1 druk op de knop automatisch de rij en de kolom (links, rechts, boven en beneden de cel) opgelicht krijgt... een soort vuurtoren effect.

Om continu een kolom te moeten verbergen om vervolgens weer zichtbaar te maken is een beetje vervelend.

Nou ja.. het zal misschien een beetje een rare vraag zijn, maar ik ben heel benieuwd of het er is en zo niet, misschien iets om over na te denken voor de nieuwe Excel??

Ik hoor graag jullie reacties!

Groetjes Linda

Answer 1

Linda,

Je kan de volgende code gebruiken om een rij en/of kolom op te laten vallen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo err

If Intersect(ActiveCell, Range("A5:H50")) Is Nothing Then Exit Sub

    If Selection.Cells.Count > 1 Then Exit Sub

        Cells.Range("A5:H50").Interior.ColorIndex = xlNone

        Cells.Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.ColorIndex = 15

        Cells.Range(Cells(5, Target.Column), Cells(50, Target.Column)).Interior.ColorIndex = 15

        ActiveCell.Interior.ColorIndex = xlNone

err:

End Sub

Dit voorbeeld werkt binnen een bereik van A5 t/m H50 en geeft een grijze kolom en rij in dit gebied, Uiteraard is het bereik en kleur naar eigen wens aan te passen.

Johan

Answer 2

klik met de rechtermuistoets op de betreffende werkbladnaam, kies in het snelmenu 'programmacode weergeven'. De VB editor wordt geopend voor dit werkblad. plak de code erin en het moet werken.

Johan

Answer 3

Beste Johan,

Bovenstaand staat al een tijdje op het net, maar ik heb dit deze week pas gevonden en toegepast.

Het werkt maar....

Als ik A5:H50 vervang voor bijvoorbeeld Tabel1 dan werkt dit in de range van de tabel.

Sorteer ik nu een kolom in de tabel, dan kleurt de rij met tabel namen (eerste rij van de tabel), en deze kleur verdwijnt niet meer.

Alleen door de rij te selecteren en bij de celeigenschappen dan de kleur te verwijderen.

Is dit op te lossen? Misschien door Tabel1 - de header/tabelnamen rij.

Groet Robin

Answer 4

Kijk hier eens: http://www.add-in-world.com/katalog/xl-cellspot/

Theo

---

TP

Answer 5

dank je wel voor je reactie..., maar waar voer ik die code dan in?