Regel in excel de kleur blauw geven

[Robert Smidt]

Dag Helpmijers,

Ik heb een code en daar wil ik een coderegel aan toevoegen dat wanneer ik kies voor "Akkoord" de hele tekstregel blauw van kleur wordt.

[SQL]Case "Akkoord"
Application.Goto .Offset(, -9)
Selection.NumberFormat = "0000-00-000"
Application.Goto .Offset(1, -11)
???
[/SQL]
Alvast hartelijk bedankt,

Robert

 

[HSV]

Ik vermoed dat je het met de Change-Event doet.

Ik weet niet of het zo naar de zin is, anders moet je het hier en daar maar aanpassen Robert.

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 21 Then
Select Case .Value
Case "Akkoord"
   .Offset(, -9).NumberFormat = "0000-00-000"
   .EntireRow.Interior.ColorIndex = 8
Application.Goto .Offset(1, -20)
  End Select
    End If
 End With
End Sub

 

[Robert Smidt]

Harry bedankt voor de snelle service,

Ik bedoelde eigenlijk dat alleen de tekst blauw moet worden en de regel zelf...verder werkt het prima.

Alvast weer bedankt.

Robert

 

[snb]

kleur nooit een hele regel of kolom, dat is vragen om (te) grote bestanden.

 

[HSV]

Dit bedoel je?

.EntireRow.Font.ColorIndex = 8

 

[snb]

bijvoorbeeld.
Het heeft nl. ook meteen effekt op de omvang van de 'usedrange'

 

[Robert Smidt]

Het werkt perfect

Harry, zo is het helemaal perfect en iedereen bedankt die mee hebben gedacht, ben hier enorm mee geholpen.

Fije avond, Robert