Voorwaardelijke opmaak in vba voor getal,text en lege cel

[bontekite]

Kan iemand mij hiermee helpen want ik loop een beetje vast.

Ik heb een probleempje met de voorwaardelijke opmaak in vba

ik verplaats een aantal kolomen van een ander blad naar een nieuw werkblad.
daarna wil ik een voorwaardelijke opmaak op elke cel maken.
Deze moet voldoen aan de eis dat wanneer de cel gewijzigd wordt, deze van kleur veranderd.
de inhoud van de cel kan een getal zijn maar ook tekst of leeg.

Ik heb wel iets kunnen vinden voor een getal maar deze geeft foutmeldingen als deze een tekst tegenkomt of een lege cel.
=====================================

X = Range("" & kolom & "" & xx & "").value
Range("" & kolom & "" & xx & "").Select

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="=" & X & ""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With

==========================================

 

[danny147]

Beste bontekite

Waarom niet in Voorwaardelijke Opmaak zonder VBA ?

zie bestandje.

Groetjes Danny. :thumb:

 

[bontekite]

Bedankt voor de tip maar voor mijn geval gaat dit niet op.

Het is de bedoeling dat ik gegeven met VBA automatische verplaats en deze voorzie van een voorwaardelijke opmaak.
Het maakt niet uit wat er in de cel staat, maar als deze gewijzigd wordt moet de cel van kleur wijzigen )

 

[danny147]

Beste bontekite

In mijn voorbeeld kan je dan ook een Voorwaardelijke Opmaak maken voor gans het werkblad.
Het maakt dan niet uit waar er in een cel een getal of cijfer wordt geimporteerd via VBA.
De VO past zich aan van zodra er iets in de cel komt te staan.

Groetjes danny. :thumb:

 

[bontekite]

vba code

Hallo Danny,

hierbij een voorbeeld wat ik wil .

druk maar eens op de toets verplaats .


echter hij gaat fout bij de tweede kolom na het lege veld omdat het text is is er een conflict.
eigenlijk hat ik het lege veld ook wit willen hebben .

als je de vba beeindigd dan kan je in de eerste kolom een waarde wijzigen en dan verkleurt deze, wordt de waarde weer het zelfde als zoals deze was dan wordt de cel weer wit .

alleen ik kan niet de goede vba code vinden die zowel getallen als tekst als lege velden aankan.


groeten
Ben Bekijk bijlage Kleuren%20in%20VO%20(Danny%20147)(1).xls

 

[danny147]

Beste bontekite

Een foutje in je code nl. :

       Formula1:="=" & X & ""

Moet zijn :

       Formula1:=" " & X & ""

En je VO nog wat aanpassen.

Groetjes Danny. :thumb:

 

[bontekite]

vba

hallo danny ,

ik krijg hem niet aan de praat .
nu stop hij al op het lege veld.


wat bedoel je met VO

ik ben nog niet zo lang bezig met vba



groeten ben

 

[danny147]

Beste bontekite

Zie bestandje met de aangepaste code en met VO.

Groetjes Danny. :thumb:

 

[bontekite]

vba code

inmiddels heb ik al een oplossing voor het lege veld .

ik lees het veld eerst in en als blijkt dat dit leeg is dan zet ik er een - neer dan opnieuw inlezen en nu werkt de aangepaste code wel.

hartelijk bedankt

groeten ben :thumb::thumb::thumb::thumb::thumb:

 

[bontekite]

vbo code

hierbij de uiteindelijke code
Bekijk bijlage Kleuren%20in%20VO%20(Danny%20147)(ok).xls

nogmaals bedankt :thumb::thumb::thumb::thumb::thumb: