niet de hele rij selecteren

[don42]

Wie kan mij helpen?
ik heb deze code

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 6 ' Geel
' Columns(Target.Column).Interior.ColorIndex = 6 ' Geel
Target.Interior.ColorIndex = 3 ' Rood
End Sub

als ik nu een cel selecteer dan wordt deze rood en de rest van de rij geel
zou graag hebben dat er maar een paar cellen geel werden en niet de hele rij

voorbeeld: ik selecteer A3 dan zou het fijn zijn als B3 t/m o3 geel zouden worden
is dit mogelijk?
zou je dan ook nog iets kunnen toepassen dat het voor een bepaalde selectie van toepassing is en niet voor het hele blad
bv A3 : O90 ?

Don

 

[Cobbe]

Doe eens de test met deze:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1:R25")) Is Nothing And Selection.Count = 1 Then
 Cells.Interior.ColorIndex = xlNone
  kol = Target.Column - 2: If kol < 3 Then kol = 1
   Range(Cells(Target.Row, kol), Cells(Target.Row, kol + 10)).Interior.ColorIndex = 6 ' Geel
    Target.Interior.ColorIndex = 3 ' Rood
End If
End Sub

 

[don42]

Ja dit gaat goed, dank je.
Is het mogelijk dat het voor een sheet kan en niet voor de hele map
als ik naar rechts ga om een cel te selecteren gaat het 4 x goed dan verplaats zich het geheel
ik kan hier best mee leven maar als het niet hoeft...
ik bedoel:
stel ik heb een rij van 10 cellen: selecteer de 4de =rood 3 ervoor zijn geel 6 er achter zijn geel
altijd vanaf kolom A (tot J) =10

Oja als ik een cel selecteer buiten (A1:R25) in dit geval blijft gekleurde regel zichtbaar!

 

[don42]

kol = Target.Column - 2: If kol < 10 Then kol = 1
was het opgelost
dat viel mee,
nu graag voor 1 tabblad dat gaat even boven mijn pet

En eventueel geen gekleurde lijn bij selecteren cel buiten Range("A1:R25")

 

[Cobbe]

Zet deze dan achter je werkblad (en dus niet in ThisWorkbook):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:R25")) Is Nothing And Selection.Count = 1 Then
 Cells.Interior.ColorIndex = xlNone
  kol = Target.Column - 2: If kol < 3 Then kol = 1
   Range(Cells(Target.Row, kol), Cells(Target.Row, kol + (10 - kol))).Interior.ColorIndex = 6 ' Geel
    Target.Interior.ColorIndex = 3 ' Rood
End If
End Sub

 

[don42]

Bedankt zeg het is gelukt
dit is voor 99% wat ik graag had en ga het ook zeker gebruiken
Maar.. daar komt tie, mij opmaak van het bewuste tabblad gaat hierdoor verloren
is het niet mogelijk dat deze mooie code enkel en alleen voor een bepaalde Range("A1:R25") werkt en dat de rest ongemoeid blijft
of is zoiets teveel gevraagd.

don

 

[Cobbe]

Deze regel aanpassen:

 Cells.Interior.ColorIndex = xlNone
in
 Range("A1:R25").colorindex = xlnone

 

[don42]

IK heb er dit van gemaakt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:R25")) Is Nothing And Selection.Count = 1 Then
 Range("A1:R25").ColorIndex = xlNone
  kol = Target.Column - 2: If kol < 10 Then kol = 1
   Range(Cells(Target.Row, kol), Cells(Target.Row, kol + 10)).Interior.ColorIndex = 6 ' Geel
    Target.Interior.ColorIndex = 3 ' Rood
End If
End Sub

maar dat geeft een foutmelding (de regel: Range("A1:R25").ColorIndex = xlNone kleurt geel!
Doe ik iets verkeerd?

 

[huijb]

@don42 Code dient tussen de codetags geplaatst te worden. Hiermee is het beter leesbaar voor de helpers. Zie ook hier http://www.helpmij.nl/forum/showthr...-de-helpers-in-deze-sectie-van-dienst-te-zijn

 

[Cobbe]

Neen je deed niets verkeerd ik had de 'Interior' vergeten mee te nemen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:R25")) Is Nothing And Selection.Count = 1 Then
 Range("A1:R25").Interior.ColorIndex = xlNone
  kol = Target.Column - 2: If kol < 3 Then kol = 1
   Range(Cells(Target.Row, kol), Cells(Target.Row, kol + (10 - kol))).Interior.ColorIndex = 6 ' Geel
    Target.Interior.ColorIndex = 3 ' Rood
End If
End Sub

kol + (10 - kol) dit moet je wel zo laten anders wordt het bereik buiten A1:R25 niet ontkleurd.

 

[don42]

Jij bent echt goed
nu nog eentje en dan is het echt een 10+
een geselecteerde cel buiten de Range("A1:R25") kan deze er voor zorgen dat de gekleurde lijn verdwijnt
dat zou geweldig zijn
maar ben ook nu heel blij en tervreden met wat je voor mij hebt gemaakt, super

 

[Cobbe]

Is het zo goed genoeg?

 

[don42]

Ben ik weer heb er even mee gespeeld en het werkt prima
nu eentje hier op door gaan
is het ook mogelijk dat bij selecteren het tabblad niet beveiligd is
en bij niet geselecteerd wel beveiligd

het klopt toch dat dit script op geen enkele wijze kan werken met een beveiligd tabblad?

 

[Cobbe]

Is dit de bedoeling?

 

[don42]

Yes dit is helemaal de bedoeling
heel erg bedankt.