Bij bepaalde waarden, bepaalde opmaak

Status
Niet open voor verdere reacties.
R

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Allen,

Via welke code zou ik kunnen zeggen;

als er dit staat (bepaalde terugkerende "codes") : 'En', 'en', 'KPO', 'WD',...

deze moeten steeds in hoofdletter en mogen niet in het vet?

Bedankt alvast
 
Ron verklaar je nader! Bij voorkeur met een bestandje.

Ze moeten dus altijd met hoofdletters? Thats all?
 
Laatst bewerkt:
Bestand in bijlage...

In Range ("E17:AB74") moeten dus bepaalde waarden steeds met hoofdletters en mogen deze NIET in het vet...
BV: KPO, v, Tk, WD, WN, EDUC, NACHT,...
 

Bijlagen

  • sneldienst.xlsm
    310,7 KB · Weergaven: 37
zoiets?

Code: 
Sub SjonR()

Dim cl As Range

For Each cl In Range("E17:AB74")
    Select Case UCase(cl.Value)
    Case "KPO", "V", "TK", "WD", "WN", "EDUC", "NACHT", "X"
            cl.Value = UCase(cl.Value)
            cl.Font.Bold = False
    End Select
Next
End Sub
 
Zalig...:)

Nu ga ik deze nog wat aanpassen naar mijn behoefte...

Enkel nog vraagje;
-Het "denken" duurt wel ff, kan ik dit misschien verminderen? Screenupdating....
-Ik zou deze code enkel nog willen laten lopen vanaf huidige week tot laatste aanwezige week in file (de weken die voorbij zijn heeft geen nut meer en anders gat het ook maar steeds langer duren)...

Bedankt!
 
ja , screenupdating op False maakt het sneller.
 
Heb ik er nu van gemaakt....

Code: 
Sub waarden_GROOT_en_vet()

Application.ScreenUpdating = False

Dim cl As Range

For Each cl In Range("E16:AB75")
    Select Case UCase(cl.Value)
    Case "N", "A", "CH", "T"
            cl.Value = UCase(cl.Value)
            cl.Font.Bold = False
            cl.Value = "NACHT"
    End Select
Next

Dim cl2 As Range

For Each cl2 In Range("E16:AB75")
    Select Case UCase(cl2.Value)
    Case "KPO", "V", "TK", "WD", "WN", "EDUC", "NACHT", "Z", "OPL", "HW"
            cl2.Value = UCase(cl2.Value)
            cl2.Font.Bold = False
    End Select
Next

Dim cl3 As Range

   For Each x In Range("E16:AB75")
      x.Value = UCase(x.Value)
   Next

Application.ScreenUpdating = True

End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan