opmaak vraag?

[JurS]

hallo,

ik heb in mijn excelbestand een aantal onderdelen die wij gebruiken op ons werk,
met een aantal bedoel ik er rond de 2000 ''a 2500.
ik heb voor alle onderdelen een plek in het magazijn, maar een nieuweling kent dat magazijn nog niet, vandaar dat mij is gevraagd of ik een goed overzicht wilde maken van de onderdelen in het magazijn waar ze precies liggen, zodat de nieuwelingen die ook kunnen vinden in 1 oogopslag
ik ben niet zo bekend met excel, maar vind van me zelf dat ik aardig op weg ben
alleen nu het volgende,

is het ook mogelijk dat als ik op de hyperlink heb geklikt, dat de rij waarin de cel, waar ik de hyperlink heen heb gewezen zich bevind, een groene kleur krijgt?

alvast bedankt,

mvg,
JurS

 

[Cobbe]

Ik hoop dat je deze code kunt implementeren:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:A2500").EntireRow.Interior.ColorIndex = xlNone
If Not Intersect(ActiveCell, Range("I1:I14")) Is Nothing Then Exit Sub
ActiveCell.EntireRow.Interior.ColorIndex = 6
End Sub

Met de hyperlinks in I1:I14

Suc6, Cobbe

 

[JurS]

super,,

bedankt, ik zal het proberen

mvg,

JurS

 

[JurS]

heej het klopt dat de regel op kleurt, als ik in het blad op een cel ga staan,
helemaal super, alleen ik krijg elke x als ik op de hyperlink klik in blad 1, dat word ik door gelinkt naar blad 6 en daar krijg ik de volgende foutmelding:

Fout 1004 tijdens uitvoering:

Methode Intersect van object _Global is mislukt


hoe kan ik deze foutmelding verhelpen
hij verwijst met mij foutmelding naar deze regel:

If Not Intersect(ActiveCell, Range("I1:I25")) Is Nothing Then


groetjes JurS

 

[JurS]

hallo,
ik heb die regel er nu tussen uit gehaald,
en nu geeft hij die melding niet meer!

maar,
als ik de map ga beveiligen dan kleurt de regel niet meer op, want dan geeft excel ook een fout weer:

Eigenschap ColorIndex van klasse Interior kan niet worden ingesteld.

bij foutopsporen geeft hij deze regel fout aan:

Range("A1:A2500").EntireRow.Interior.ColorIndex = xlNone

ik ben zelf niet goed in deze codes
wie kan mij verder helpen,,

MVG,

JurS

 

[wally1968]

Dan moet je voor je je blad ga beveiligen de rij selecteren dan op opmaak klikken, kies dan voor celeigenschappen. Ga naar het tabblad beveiling en haal het vinkje weg bij geblokkeerd, dan op ok. En als je dan je blad beveiligd zou het wel moeten lukken.
Dit is voor de versie excel 2003, Ik weet niet hoe het moet in de versie 2007