Lege cellen laten op kleuren hoe?

[faruknl]

Beste,

Ik heb het overal gezogd maar kan het nergens vinden.
Is er een VBA code voor velgende?:shocked:
Ik heb een lijst met gegevens, wat ik bij deze gegevens wil toepassen is volgende?

Op het moment dat ik gegevens invoer in A5 tot en met K5 de tussen liggende lege cellen indien leeg een andere kleur krijgen?
Dus als ik A5 een naam in voer en B5 tot en met K5 alles op kleurt?
Dat moet gebeuren allen maar als A5 opgevuld is.

Ik kom zelf niet uit hoe het moet?

 

[Demeter]

Moet dit gebeuren als je mbv een knop gegevens toevoegd
of wil je je voorwaardelijke opmaak terug in je blad hebben hierdoor wordt het wel allemaal wat trager, voornamelijk bij grote bladen met veel gegevens.

Groet,
Ferenc

 

[Wigi]

Zie bij Opmaak > Voorwaardelijke opmaak. Voorbeeldjes genoeg hiervan te vinden op het forum en op het wereldwijde web.

Wigi

PS:

Ik heb het overal gezogd maar ...

Dit is er toch echt wel over, niet?

 

[Demeter]

Probeer het ook eens zo:
Plaats code op je medewerkertoevoegen form, onder de regel MyRange.Range("O" & legeregel) = txbBagmangn.Text en natuurlijk ook de code aanpassen voor de regels in MyRangeII

Dim d as Range
   
                For Each d In MyRangeI.Range("A" & legeregel, "O" & legeregel)
                    If d = "" Then
                        d.Interior.ColorIndex = 34
                    End If
                Next

(Krijg zelf nog steeds die loops niet uit mijn hoofd, kan misschien nog wel efficienter?)

Groet,
Ferenc

 

[faruknl]

Wigi en Ferenc,

Al ik het (Opmaak > Voorwaardelijke opmaak) bij deze file http://www.helpmij.nl/forum/showthread.php?t=276535 toepas raakt hij helemaal in de war en gaat hij cellen kleuren die wel opgevuld zijn.
Bovendien is het wel mooier als de cellen allen maar gaan kleuren als kolom A opgevuld is en anders niet.

Hoe kan ik dat doen?

 

[Wigi]

(Krijg zelf nog steeds die loops niet uit mijn hoofd, kan misschien nog wel efficienter?)

Idd Ferenc, SpecialCells(xlCellTypeBlanks)

(maar ben niet zeker want heb de vorige topic van Faruk niet echt gevolgd. Ik zag dat daar al een andere specialist zijn hulp aanbood )

 

[Demeter]

Zet in cel B1 voor de voorwaardelijke opmaak formule:

=A1>0

en geef de cel een kleur mee.
Kopieer deze code naar de cellen opdezelfde rij die je deze opmaak wil geven
Selecteer dan de gehele rij en trek deze door naar beneden.

Thats it.

Groet,
Ferenc

 

[faruknl]

Ferenc en Wiggi,

Het werkt en ik heb hem toegepast bedankt voor jullie aandacht...

 

[crash]

Je hoeft geen misbruikmelding te geven, als je vraag opgelost is. Je kan zelf de status van de vraag aanpassen, rechts onder op de pagina van jou vraag. Nu heb ik deze voor je op "opgelost" gezet.