Opmaak cellen middels VBA

[allard1]

Excel vrienden,

Nu is mijn VBA kennis zo groot als een doperwt dus vandaar dat ik deze vraag hier stel.
Ik heb een sheet waarin ik de invulvakken middels een andere kleur wil aangegeven (bijvoorbeeld oranje). Nu heb ik een macro opgenomen om aan te geven dat ik die cellen oranje wil hebben. Echter als ik de macro afspeel springt hij elke keer naar die cel. Dit is logische omdat in het VBA script staat dat hij die cellen moet inkleuren. Hoe kan ik ervoor zorgen dat de te vullen cellen variabel zijn??? heeft iemand een idee hoe ik dit kan klaren?

Alvast bedankt.

Groet,
Allard :thumb:

 

[koosl]

Allard1,

Allereerst nog de beste wensen voor 2007


Je kunt je cellen zo kleuren zonder ze eerst te selekteren.

Range("B8").Interior.ColorIndex = 45

Deze kleurt cel B8 oranje zonder te selekteren.

Heb je er zo iets aan?


Koosl.

 

[allard1]

Allard1,

Allereerst nog de beste wensen voor 2007


Je kunt je cellen zo kleuren zonder ze eerst te selekteren.

Range("B8").Interior.ColorIndex = 45

Deze kleurt cel B8 oranje zonder te selekteren.

Heb je er zo iets aan?


Koosl.

Hoi Koos,

Bedankt voor je reactie en natuurlijk ook de beste wensen voor 2007 !!!!
Ik heb hem geprobeerd maar ik krijg hem niet aan de praat. Waarschijnlijk komt dit omdat ik de cel aangeef in de macro (ongeacht waar ik sta, hij zal altijd B8 oranje kleuren). Wat ik zoek, en misschien ben ik in mijn vraagstelling niet helemaal duidelijk geweest , is het volgende:

Een script waarmee ik de cel kan kleuren waar ik omdat moment in sta. Dus als ik b8 selecteer en ik druk op bijvoorbeeld ctrl q dat deze dan oranje wordt. Vervolgens ga ik naar e8 en weer ctrl q en weer oranje

Ik hoop dat ik zo duidelijk ben

 

[Demeter]

Allard,

Dit is geheel op te lossen met de macrorecorder.

Selecteer een lege cel
Open de recorder, in de popup vul je de q in in het vakje voor de sneltoets
Ga naar Opmaak/Celeigenschappen (ctrl+1)
Ga naar de tab patronen en kies hier een kleur.
Sluit de celeigenschappen
Stop de macrorecorder.

Als je nu een cel slecteerd en op cntrl + q drukt dan krijgt deze netjes de kleur welke je net hebt ingesteld.

De sneltoetsen werken alleen als je deze mbv de macro recorder opneemt niet als deze handmatig in de code wordt geplaatst.

Uiteindelijk ziet het er zo ui:

Sub Macro1()
'
' Sneltoets: CTRL+q
'
    With Selection.Interior
        .ColorIndex = 45
'onderstaande kan je verwijderen
        .Pattern = xlSolid
'onderstaande kan je verwijderen
        .PatternColorIndex = xlAutomatic
    End With
    
End Sub

Groet,
Ferenc

 

[allard1]

Allard,

Dit is geheel op te lossen met de macrorecorder.

Selecteer een lege cel
Open de recorder, in de popup vul je de q in in het vakje voor de sneltoets
Ga naar Opmaak/Celeigenschappen (ctrl+1)
Ga naar de tab patronen en kies hier een kleur.
Sluit de celeigenschappen
Stop de macrorecorder.

Als je nu een cel slecteerd en op cntrl + q drukt dan krijgt deze netjes de kleur welke je net hebt ingesteld.

De sneltoetsen werken alleen als je deze mbv de macro recorder opneemt niet als deze handmatig in de code wordt geplaatst.

Uiteindelijk ziet het er zo ui:

Sub Macro1()
'
' Sneltoets: CTRL+q
'
    With Selection.Interior
        .ColorIndex = 45
'onderstaande kan je verwijderen
        .Pattern = xlSolid
'onderstaande kan je verwijderen
        .PatternColorIndex = xlAutomatic
    End With
    
End Sub

Groet,
Ferenc

Hallo Ferenc,

Allereerst eveneens de beste wensen. Heel erg bedankt, probleem opgelost. Ferenc en Koos bedankt voor jullie reactie. Deze vraag is opgelost en nu ga ik weer een nieuwe plaatsen LOL

Groet,
Allard