celkleur

[wally1968]

Hoi allemaal

Is het mogelijk dat ik bijvoorbeeld cel A1 op tabblad 1 een celkleur geef, dat dan cel A1 van tabblad 2 automatisch dezelfde kleur krijgt

Dus A1 in tabblad 1 rood dan A1 in tabblad 2 automatisch rood
A1 in tabblad 1 blauw dan A1 in tabblad 2 automatisch blauw

Dank bij voorbaat

 

[Hoornvan]

Zet deze code achter blad2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If [Blad1!A1].Interior.ColorIndex = 3 Then [A1].Interior.ColorIndex = 3
  If [Blad1!A1].Interior.ColorIndex = 5 Then [A1].Interior.ColorIndex = 5
End Sub

 

[Roncancio]

@Hoornvan

Je kunt de kleur afstemmen met de kleur van de betreffende cel.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[A1].Interior.ColorIndex = [Blad1!A1].Interior.ColorIndex
End Sub

Met vriendelijke groet,


Roncancio

 

[wally1968]

Dit werkt niet
Ik werk met office 2003, ik weet niet of dat een verschil maakt
Ik heb even een bestandje bij gedaan

 

[Hoornvan]

Deze is beter neemt de kleur over van Blad1 cel A1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
  [A1].Interior.ColorIndex = [Blad1!A1].Interior.ColorIndex
End Sub

 

[Roncancio]

In ThisWorkbook:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
[Blad2!A1].Interior.ColorIndex = [Blad1!A1].Interior.ColorIndex

End Sub

Met vriendelijke groet,


Roncancio

 

[Hoornvan]

Je moet wel even in een cel klikken, maak niet uit welke.
Heb hier tevens de andere code gezet, nu pakt hij elke kleur die je op blad1 in cel A1 zet.

 

[Hoornvan]

Roncancio,
De code in this workbook is inderdaad beter.:thumb:

 

[wally1968]

Ok
Maar als ik een kleur gekozen heb in blad 1 dan moet ik op de cel klikken in blad 2 om de kleur te laten veranderen maar dat mag eigenlijk niet de bedoeling zijn
Waar ik het wil voor gebruiken is een cel laten kleuren in combinatie met vertikaal zoeken
Als dat mogelijk is natuurlijk

 

[Hoornvan]

Gebruik de code van Roncancio in ThisWorkbook sla het op sluit het en open hem weer.

Waar ik het wil voor gebruiken is een cel laten kleuren in combinatie met vertikaal zoeken

Waarom kom je niet gelijk met deze vraag?

 

[wally1968]

Ok dat van die kleuren werkt al maar nog niet in combinatie met vertikaal zoeken

 

[Roncancio]

Ok dat van die kleuren werkt al maar nog niet in combinatie met vertikaal zoeken

Nu wel. (zie bijlage)

Met vriendelijke groet,


Roncancio

 

[wally1968]

Ah bedankt

Dit is weeral netjes opgelost