VB in plaats van voorwaardelijke opmaak?

mnemonic · 11 okt 2017

Hallo,
Bedankt dat je alvast de tijd neemt om mijn verhaal te lezen.
Ik heb tabbladen van maandag t/m zondag.
Op elk van die tabbladen heb ik in het vak A2 t/m Q40 voorwaardelijke opmaak zitten.
Maar na een poosje dit gebruikt te hebben door verschillende personen verdwijnt steeds delen van mijn voorwaardelijke opmaak.
Nu is mijn vraag is dit ook te maken in VB zodat daar niks meer aan te veranderen is door anderen. (normaal zit er een wachtwoord op elk tabblad)
Gr. Jan
Mnemonic

Bekijk bijlage test 1.xlsm

gast0660 · 12 okt 2017

Een paar keer zelfs.

Bedankt dat je alvast de tijd neemt om mijn verhaal te lezen.

Alleen Tab woensdag was te vinden.

Ik heb tabbladen van maandag t/m zondag.

In A en Q was geen VO te speuren

.

Op elk van die tabbladen heb ik in het vak A2 t/m Q40 voorwaardelijke opmaak zitten

misschien kan je hier iets mee?
Zou normaal gezien de VO moeten terug plaatsen.

Code:

Sub dot()
    Dim ws As Worksheet
    Dim rng As Range, cel As Range
    Set ws = Sheets("Woensdag")
    Set rng = ws.Range("B2:B59")
    For Each cel In rng
        With cel.Resize(1, 14)
            .FormatConditions.AddUniqueValues
            .FormatConditions(.FormatConditions.Count).SetFirstPriority
            With .FormatConditions(1)
                .DupeUnique = xlDuplicate
            With .Interior
                    .PatternColorIndex = xlAutomatic
                    .Color = vbYellow
                End With
                .StopIfTrue = False
            End With
        End With
    Next
  End Sub

mnemonic · 12 okt 2017

Hoi gast0660,
Ik zal proberen het wat duidelijker te maken.

In het vak A2 tm Q40 zit de voorwaardelijke opmaak.
Die opmaak licht geel op als er dubbele nummers te dicht bij elkaar komen.
B.v. als ik nu in N9 nr 21 invul licht deze geel op (rood, blauw, of zwart maakt niet uit)
Als ik in N9 nr 29 invul licht deze ook op.

Dit is een deurenplanning en kolom I zijn de laaddeuren.

A2 tm H40 is de dag ervoor (dit geval de dinsdag). waarvan links van de deur 3 banen (b, c, en d) en rechts van de deur 3 banen E,F en G.

J2 tm Q40 is de woensdag. waarvan links van de deur 3 banen (K, L, en M) en rechts van de deur 3 banenN,O en P.

Vrachten van de zelfde klant mogen nooit naast elkaar staan ivm fouten daarom heb ik dit gemaakt.

Één klant kan soms wel 6 keer op één blad voor komen.

door dat er geknipt en geplakt wordt in vak J2tm Q40 (rest is beveiligd ) raak ik soms een deel van mijn formule kwijt die in de voorwaardelijke opmaak staat.

1 van de code die er nu in staat:
dubbele waarden =$K$17:$P$17;$B$17:$G$17
dubbele waarden =$N$18:$P$18;$K$17:$M$17;$E$18:$G$18;$B$17:$D$17

Het document bestaat uit vele bladen (in totaal 16) en omdat het om maandag tm zondag ging heb ik 1 blad als voorbeeld mee gedaan. (woensdag)
Hieronder heb ik wat zelfde nummers ingevuld zodat je kunt zien wanneer deze geel moet worden.
ik hoop dat het nu wat duidelijker is zo niet hoor ik het graag.
Ik zal ook even kijken of ik de code die je mij hebt gegeven kan gebruiken.
Alvast bedankt.

VB in plaats van voorwaardelijke opmaak?

mnemonic

Gebruiker

gast0660

Terugkerende gebruiker

mnemonic

Gebruiker

Bijlagen

Nieuwste berichten

Wij waarderen jouw privacy