Range("A1:A6").Interior.Color = RGB(0, 142, 243)

[theet]

Hoe kan ik deze formule invoeren in VBA? Ik snap wel wat er staat,
maar weet het niet te gebruiken binnen VBA...
"Private Sub..... End Sub" ???

Ik wil nl. een aantal cellen in excel een andere kleur geven dan de kleuren
die beschikbaar zijn in de eigenschappen -> patronen -> opvulkleuren....
Deze kleuren moeten er altijd zijn in de aangegeven cellen, zonder dat ik eerst
een waarde moet invullen of aan een voorwaarde moet voldoen...

 

[WinteE]

<Alt F11>, dubbelklik Blad1, Selecteer Worksheet en OnActivate, kopieer de code in het OnActivate event.

Telkens wanneer nu Blad1 geactiveerd wordt wordt deze code uitgevoerd.

 

[theet]

<Alt F11>, dubbelklik Blad1, Selecteer Worksheet en OnActivate, kopieer de code in het OnActivate event.

Telkens wanneer nu Blad1 geactiveerd wordt wordt deze code uitgevoerd.

Kijk, dit zijn berichten!

 

[theet]

Het eerste is gelukt! Nu het volgende:
ik probeer deze code in VBA, maar dan geeft hij een foutmelding:

Private Sub Worksheet_Activate()

Range("B2:B95;C2:N5").Interior.Color = RGB(0, 142, 243)

End Sub

waarom is dit? Ik wil graag zowel een aantal cellen links een bepaalde kleur geven als
ook cellen boven in het document....

 

[WinteE]

Een range is een aaneengesloten bereik, dient dus apart te worden benaderd.

Private Sub Worksheet_Activate()

Range("B2:B95").Interior.Color = RGB(0, 142, 243)
Range("C2:N5").Interior.Color = RGB(0, 142, 243)

End Sub

Erik

 

[theet]

Een range is een aaneengesloten bereik, dient dus apart te worden benaderd.

Private Sub Worksheet_Activate()

Range("B2:B95").Interior.Color = RGB(0, 142, 243)
Range("C2:N5").Interior.Color = RGB(0, 142, 243)

End Sub

Erik

Geweldig, dit werkt! Nu eigenlijk nog 1 vraag, ik wil dit ook toepassen voor een lijn
met een range van D35 t/m N35 onderin de cel zeg maar... hoe doe ik dit dan?
Kan ik deze lijn ook nog een dikte meegeven?

(ik was eerst al op een heel ander forum tweakers, maar daar waren ze niet zo blij
met deze vraag... (misschien wel het verkeerde forum)
Als je nog weinig/niets weet van VBA is dit toch vrij lastig, bedankt voor de goede hulp! :thumb

 

[WinteE]

With Worksheets("Sheet1").Range("B2").Borders(xlBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 3
End With

Deze code heb ik gekopieerd uit de VBA-help. Voor dit soort zaken is er altijd wel iets te vinden, gewoon proberen. Lukt het dan alsnog niet un je altijd nog op het forum terecht.

Erik

 

[theet]

With Worksheets("Sheet1").Range("B2").Borders(xlBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 3
End With

Deze code heb ik gekopieerd uit de VBA-help. Voor dit soort zaken is er altijd wel iets te vinden, gewoon proberen. Lukt het dan alsnog niet un je altijd nog op het forum terecht.

Erik

Heb ik nu toegepast:
With Worksheets("VERKOOP UK").Range("C13:N13").Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With

Maar hoe verwerk ik nu de juiste kleur? (.Interior.Color = RGB(0, 142, 243)
Ik heb nu de kleur "rood" als lijn... dat moet worden RGB(0, 142, 243)

Als ik de .ColorIndex = 3 verander in .Interior.Color = RGB(0, 142, 243) dan krijg ik een foutmelding...

 

[Wigi]

With Worksheets("Sheet1").Range("B2").Borders(xlBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .Color = RGB(0, 142, 243)
End With

Wigi

 

[theet]

With Worksheets("Sheet1").Range("B2").Borders(xlBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .Color = RGB(0, 142, 243)
End With

Wigi

Als je het weet is het kinderlijk eenvoudig! Reuze bedankt! :thumb: