voorwaardelijke opmaak

[Guidolavespa]

Als cel c3 active is moet de cel a3 de opmaak krijgen van groene achtergrond.

iets met voorwaardelijke opmaak?

mvg guidolavespa

 

[[FJ]Hydra]

Wat bedoel je met "Active"? Als deze wordt gewijzigd of iets dergelijks?

 

[Guidolavespa]

als de cursor op de cel c3 staat moet de cel a3 een gele achtergrond krijgen,
als de cursor op de cel c4 staat moet de cel a4 een gele achtergrond krijgen,

enz...

 

[[FJ]Hydra]

Zet deze code in ThisWorkBook:
Code gemaakt door J.K. Pieterse (MVP) http://www.jkp-ads.com/

Option Explicit

Dim oPrevCell As Range

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Target.Interior.ColorIndex = 3
If Not oPrevCell Is Nothing Then
oPrevCell.Interior.ColorIndex = 0
End If I
Set oPrevCell = Target
End Sub

:thumb: :thumb: :thumb:

 

[Guidolavespa]

Fantastische code.

uitdaging:

hoe de range te beperken en de cel die 2 naar links staat laten oplichten.

mvg Guidolavespa

 

[[FJ]Hydra]

Ben al even voor je bezig geweest, maar kom er niet uit.

Zijn het vaste cellen waar je mee werkt?? VB: Je mag alleen maar in de cellen A1 en A2 de cursor zetten. (Ik noem maar wat...)

 

[Guidolavespa]

Ik mag enkel de cellen kunnen bewegen in de kolom G
en de cellen moeten oplichten in de kolom B


Thanks!

 

[[FJ]Hydra]

Zo... het heeft even moeten duren, maar eindelijk iets gevonden....

In dit voorbeeld wordt er een waarde in C1 gezet, omdat ik er van uit ga dat daar niets staat.

Zet deze code in Blad1

Option Explicit

Private Sub WorkSheet_Change(Byval Target As Range)
Range("C1") = Target.Row
End Sub

Geef Rij C een kleur.
Zet in (A3) een "Voorwaardelijke Opmaak": Formule : =RIJ(A1)=$C$1.
Geef als "Patroon" een gele kleur. En klik op OK...

Kopieer de vooraardelijke opmaak naar betreffende cellen en voila.....

Ik ben nog bezig om het alleen nog maar voor rij (C) te laten gelden.

 

[[FJ]Hydra]

Nou zeg... dat heeft wat aarde in de voeten gehad, maar uiteindelijk de code kunnen bemachtigen voor je. Overigens wel na enige hulp van een andere

Deze code geldt alleen maar voor kolom (C) & (A)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 then
Column(1).Interior.ColorIndex = 0 '(Wit)
Else
Range("A" & Target.Row).Interior.ColorIndex = 6 ' (Geel)
Column(1).Interior.ColorIndex = 0


:thumb: :thumb: :thumb: :thumb:

Dit is hem helemaal....

 

[[FJ]Hydra]

Even iets anders tussendoor... Hoe plaats je waarderingen? Uiteraard alleen op jouw eigen vraag, maar ik kan dat nergens vinden in de FAQ of dergelijks..

 

[Guidolavespa]

rechts onderaan de pagina juist onder de mogelijkheid om de vraag opgelost af te vlaggen.

gr

 

[Guidolavespa]

Eigenlijk zocht ik naar dit : GEVONDEN door uw hulp thanks. PS waarom moet in Worksheet... ervoor zetten en u niet??



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column <> 3 Then

Worksheets("Blad2").Columns(1).Interior.ColorIndex = 0 '(Wit)

Else
Worksheets("Blad2").Range("A" & Target.Row + 1).Interior.ColorIndex = 0 ' (wit)
Worksheets("Blad2").Range("A" & Target.Row - 1).Interior.ColorIndex = 0 ' (wit)
Worksheets("Blad2").Range("A" & Target.Row).Interior.ColorIndex = 6 ' (Geel)

End If

End Sub

 

[Guidolavespa]

Nog een lijntje toegevoegd , want werkte het niet bij het klikken met de muis in de kolom 3.

PS wel moet nog een beveiling ingebouwd worden als de cel A1 geselecteerd wordt want -1 gaat dan niet.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column <> 3 Then

Worksheets("Blad2").Columns(1).Interior.ColorIndex = 0 '(Wit)

Else
Worksheets("Blad2").Columns(1).Interior.ColorIndex = 0 '(Wit)

Worksheets("Blad2").Range("A" & Target.Row + 1).Interior.ColorIndex = 0 ' (wit)
Worksheets("Blad2").Range("A" & Target.Row - 1).Interior.ColorIndex = 0 ' (wit)
Worksheets("Blad2").Range("A" & Target.Row).Interior.ColorIndex = 6 ' (Geel)

End If

End Sub

 

[[FJ]Hydra]

Bij mij staat er immers ook Worksheet....
Private Sub Worksheet_
Ik denk dat jij hem in een Module hebt geplaatst... Ik heb de code gewoon in Blad1 of Blad3 gezet, dan hoeft dat namelijk niet. :thumb: