controleren op wijzigingen

[Lampie173]

Goedenavond allen,

Is het mogelijk om eventuele veranderingen in een werkblad te kopieren en daarmee op te slaan?

In de kolom kw.1 staan namen, stel dat ik een van de namen verander, kan ik de 'oude' en de nieuwe naam opslaan met datumstempel wanneer de wijziging heeft plaatsgevonden in werkblad 'Wijzigingen'?

En kan dat dan ook voor de andere kolommen kw.2, kw.3 en kw. 4
Zie toegevoegd voorbeeld.

 

[JEC.]

Bedoel je het zo?

Verander maar eens een van de namen. Dan zie je dat de oude naam wordt opgeslagen op het werkblad wijzigingen. Achter blad 1 vind je de vba code.
Sheet "wijzigingen" heb ik wat vorm gegeven.

 

[Lampie173]

TOP!!!!

Mijn dank is groot JVeer!!

Alleen nog 1 klein vraagje Hoe kan ik in het rooster de 'nieuwe' naam een kleurtje geven?
Kan dat met VO?

Nogmaals Dank!

Toon

 

[Lampie173]

Hmm,

IK bedenk met net om dat met een verborgen 2 hulpkolommen te doen?
hulpkolom 1: originele inhoud ; hulpkolom 2 is er verschil in naam; zo ja, dan kleur originele cel (werkblad wachtdienstrooster)

 

[Lampie173]

Nee helaas dat lijkt geen optie.

 

[JEC.]

Tip: Probeer eens te zoeken naar een match op het tabblad met oude namen. Als er een match is dan inkleureb en anders niet.

Dus kolommen met de namen vergelijken

Kun je checken met aantal.als
Als de uitkomst 0 is, zou je een kleur moeten geven

 

[HSV]

@JVeer,

msgbox Union(Range("D5:D17"), Range("I5:I17"), Range("N5:N17"), Range("S5:S17")).address
msgbox range("D5:D17,I5:I17,N5:N17,S5:S17").address

 

[JEC.]

@hsv

Hier trouwens een voorbeeldje voor de gekleurde nieuwe naam.
Ook een kleine aanpassing in de code. Als de oude naam nog leeg was zal er geen regel worden weggeschreven naar de sheet wijzigingen.

 

[Lampie173]

@HSV
Jouw aanvulling geeft alleen 2 msgboxen waarin de 4 ranges staan?

@ JVeer
Jouw aanvulling maakt dat alle (onveranderde) namen geel gekleurd worden.

Na enige tijd frubbelen heb ikzelf de volgende coderegel toegevoegd:

Target.Interior.Color = RGB(250, 200, 150)

aan jouw code.

Dat werkt wel maar wat er nu gebeurt is dat de lijnen tussen de cellen verdwijnen.

Groet,

Toon