Voorwaardelijke opmaak met vba

[wiki]

Ik wil graag de volgende voorwaardelijke opmaak met vba in een cel plaatsen.
formule =

=rc[1]<>"""

opmaak tekst rood

gr wim

 

[wiki]

Ik heb ondertussen het volgende gevonden

ActiveCell.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:=1
                    ActiveCell.FormatConditions(1).Interior.ColorIndex = 22

deze werkt

wie weet hoe ik

Type:=xlCellValue

om kan zetten naar de formulevariant en wat moet ik doen met de operator en formula

Met de volgende aanpassing lukte het niet

ActiveCell.FormatConditions.Add Type:=xlFormula, Formula1:"=1"
                    ActiveCell.FormatConditions(1).Interior.ColorIndex = 22

 

[wiki]

Krijg nu wel de formule in het scherm van voorwaardelijke opmaak, maar de opmaak van de formule is niet goed

  ActiveCell.FormatConditions.Add Type:=xlExpression, Formula1:=1

de waarden worden weergegeven als tekst (tussen "") of ik krijg een compileerfout in vba.

gr wim

 

[Roncancio]

Zo lukt het wel.

ActiveCell.FormatConditions.Add Type:=xlExpression, Operator:=xlNotEqual, Formula1:="1"
                    ActiveCell.FormatConditions(1).Interior.ColorIndex = 22

2 wijzigingen:
- ipv xlFormula gebruik je xlExpression
- ipv Formula1:"=1" doe je Formula1:="1"

Met vriendelijke groet,


Roncancio

 

[wiki]

Zo lukt het me niet Roncancio
de output is geen formule, maar de waarde 1 zie bijlage fout
in het formulescherm van de voorwaardelijke opmaak heb ik een formule opmaak nodig zoals in bijlage juist

gr wim

 

[Roncancio]

Zo dan?

ActiveCell.FormatConditions.Add Type:=xlExpression, Formula1:="=$B$1-$C$1=1"
                    ActiveCell.FormatConditions(1).Interior.ColorIndex = 8

Met vriendelijke groet,


Roncancio

 

[wiki]

Bedankt Roncancio,

Ik weet niet wat ik fout deed maar dit werkt:thumb:

gr Wim

 

[wiki]

Roncancio, misschien kun je nog helpen met het volgende:
Ik probeer de code in te passen in de volgende regels, maar dan werkt het niet meer

If Cells(rij, 6) <> "" And Cells(rij, 7) <> "" And Cells(rij, 8) <> "" Then
               Cells(rij, 9).Formula = "=Round(5*RC[-3]/(RC[-2]*RC[-1]),0)"
               Cells(rij, 9).NumberFormat = "0"
               Cells(rij, 9).FormatConditions.Add Type:=xlExpression, Formula1:="=rc[1]<>"""
               Cells(rij, 9).FormatConditions(1).Interior.ColorIndex = 8
           Else

gr wim

 

[Roncancio]

Roncancio, misschien kun je nog helpen met het volgende:
Ik probeer de code in te passen in de volgende regels, maar dan werkt het niet meer

If Cells(rij, 6) <> "" And Cells(rij, 7) <> "" And Cells(rij, 8) <> "" Then
               Cells(rij, 9).Formula = "=Round(5*RC[-3]/(RC[-2]*RC[-1]),0)"
               Cells(rij, 9).NumberFormat = "0"
               Cells(rij, 9).FormatConditions.Add Type:=xlExpression, Formula1:="=rc[1]<>"""
               Cells(rij, 9).FormatConditions(1).Interior.ColorIndex = 8
           Else

gr wim

Wat moet de voorwaardelijke opmaak controleren?

Met vriendelijke groet,


Roncancio

 

[wiki]

als de cel rechts ervan <> ""
opmaak:celkleur rood

gr wim

 

[Roncancio]

als de cel rechts ervan <> ""
opmaak:celkleur rood

gr wim

Dan is het IF-statement m.i. niet logisch.
De voorwaardelijke opmaak wordt pas geplaatst als de 3 cellen niet leeg zijn.

Met vriendelijke groet,


Roncancio

 

[wiki]

Als de drie cellen links gevuld zijn wordt een formule in de cel geplaatst, maar als de cel rechts gevuld is zal deze voorgaan in een volgende berekening. Vandaar dat ik een waarschuwing nodig heb als de cel rechts gevuld is dgv een voorwaardelijke opmaak.

gr wim

 

[Roncancio]

In plaats van Cells(rij,6) kan je ook gebruiken
- Cells(rij,"F")
- Range("F" & rij)

Hoe dan ook, zo kan het:

If Range("F" & rij & ":H" & rij).SpecialCells(xlCellTypeBlanks).Count = 0 Then
    Cells(rij, 9).Formula = "=Round(5*RC[-3]/(RC[-2]*RC[-1]),0)"
    Cells(rij, 9).NumberFormat = "0"
    Cells(rij, 9).FormatConditions.Add Type:=xlExpression, Formula1:="=INDIRECT(""J""& RIJ())<>"""""
    Cells(rij, 9).FormatConditions(1).Interior.ColorIndex = 8

Met vriendelijke groet,


Roncancio

 

[wiki]

bedankt Roncancio is gelukt
gr wim