• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

cellen met bepaalde namen automatisch een kleur geven.

Status
Niet open voor verdere reacties.
Vreemd, bij mij niet (Excel 2007).
Ik zie wel dat er een cel groen gekleurd is, maar haal ik Bas eruit, en plaats Bas terug blijft de cel gewoon transparant.

Misschien dat dit beter werkt in jouw versie.

Code: 
Set c = Sheets("Payroll").Columns(2).Find(Target, , , xlwhole)

De andere "Set" is analoog.
 
Bedankt HSV

Dit werkt als een tierelier!!!

Kan ik met een gerust hart gaan slapen.
Ik had die code xlwhole al gevonden, maar wist niet dat ik 3 x een komma moest zetten.

Welterusten allemaal!!

P.s. als je zin hebt, wil je dan nog eens uitleggen waarom 3 komma's?
 
Achter de eerste komma is bedoelt voor "after" (na welke cel opgeven), en achter de tweede komma kan staan "xlvalues", "xlformulas" of ("xlcomments", "xlnotes")

Je mag het ook zo schrijven zonder komma's
Code: 
Set c = Sheets("Payroll").Columns(2).Find(Target, lookat:=xlwhole)
of:
Code: 
Set c = Sheets("Payroll").Columns(2).Find(what:=Target, lookat:=xlwhole)
 
Die bovenste regel code had ik bijna goed, ik miste alleen het =teken.:mad:
Maar ik heb weer een hoop geleerd en kan dit in de toekomst goed gebruiken.
Bedankt voor de hulp en de uitleg!

Groet, Marco
 
Beste HSV,

Ik begin bijna wanhopig te worden en vraag me af of het aan mijn systeem ligt of niet.
Zodra ik het stukje code wat je mij gegeven hebt invoeg, doet alleen de naam Anna nog kleuren uit de lijst payroll.
Elke andere naam blijft blanco.
Ik zie totaal verder geen verschil in de code, behalve wat ik erbij heb gezet om alleen exacte namen te kleuren.

Zou jij alsjeblieft eens willen kijken of de sheet bij jou wel werkt?

Ik voeg hem bij.Bekijk bijlage Werkversie003.xlsm
Namen uit de lijst UZK blijven wel gewoon werken.
 
Ik kan niet begrijpen dat alleen de naam Anna kleurt en wel alle namen uit UZK, wordt hier echt gek hahahaha!!!
 
Je kan eens beginnen met de spaties achter de namen in de tab 'Payroll' weg te halen.
 
Je wilt echt niet weten hoe lang ik al met die code aan het klooien ben.
Nooit is het me opgevallen dat er spaties achter de namen staan.
Ongelofelijk dat zoiets stoms me zoveel tijd heeft gekost, maar het werkt.
Ik kan je wel zoenen !!!!!

Ik ga een biertje drinken om dit te vieren.
Bedankt, bedankt, bedankt !!!!!
 
De credits gaan natuurlijk naar HSV.

Dat zoenen is een beetje afhankelijk van... Een biertje pakken is wel een strak plan:d

Ter controle
Code: 
Sub VenA()
For Each cl In Sheets("Payroll").Columns(2).SpecialCells(2)
    c00 = c00 & cl & " " & IIf(Len(cl) = Len(Trim(cl)), "goed", "fout") & Chr(10)
Next cl
MsgBox c00
End Sub
 
Wat doet dit?
Waar moet ik het in plakken?

Zoenen was trouwen sort of speak, maar een biertje kunnen jullie allebei krijgen, merk naar keuze ;-)

Groet, Marco
 
Wist je trouwens al dat ik maar heel beperkt iets snap van VBA code?
De code die ik van HSV heb gekregen snap ik nu door alle ellende van een zooi spaties hahaha
 
Je kan onderstaande blauwe regel even toevoegen als het nog vaker voorkomt.
Deze wist gelijk al je overtollige spaties in kolom B.
Code: 
If Not Intersect(Target, [c9:c149,e9:e149,g9:g149,i9:i149,k9:k149]) Is Nothing Then
[COLOR=#0000ff] Sheets("Payroll").Columns(2).SpecialCells(2) = Application.Trim(Sheets("Payroll").Columns(2).SpecialCells(2).Value)[/COLOR]
 
Dat zie ik in #52. (Tweede zin.) Slinger google maar eens aan.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan