Excell vet drukken van een karakter

[ConnyBonarius]

Best forumlid,

Binnen Excell wil ik zaken kunnen benadrukken door deze vet te drukken.
Vaak gaat het om grotere hoeveelheden getallen, steeds in combinatie met een eerste letter.
Het gaat om de volgende series getallen (qua aantal karakters)' en vet drukken
(laatste cijfer vet)
M200000
m200001
m200002
M200003

of
M20 0000 01 0010
(8e cijfer vet)

of
S200004010010
(9e, 10e en 11e cijfer vet)

wie kan mij helpen?

Hartelijk dank alvast!

 

[danny147]

Beste ConnyBonarius

Ga in de menubalk staan en selecteer daar het cijfer dat je wilt vet kleuren en kleur dit vet.
Je kan dit ook in de cel doen, gewoon het cijfer selecteren en vet kleuren.

Groetjes Danny. :thumb:

 

[ConnyBonarius]

Excell karakter vet drukken

Beste Danny

Dank je. Voor een individueel getal weet ik het wel. Maar stel dat je zo honderd getallen moet doen? Heb je dan ook een slimme oplossing?

Dank je bij voorbaat!

Conny

 

[danny147]

Beste ConnyBonarius

Dit is op te lossen met VBA code, maar dit moet ik overlaten aan mijn collega's.

Groetjes Danny. :thumb:

 

[zapatr]

Het gaat om de volgende series getallen (qua aantal karakters)' en vet drukken (laatste cijfer vet)
M200000
m200001
m200002
M200003

Dat is simpel, omdat het steeds om hetzelfde - laatste - teken gaat.
Als bovenstaande gegevens in A1:A4 staan:

Sub macro1()
Range("A1:A4").Characters(7, 1).Font.Bold = True
End Sub

Bij je andere voorbeelden gaat het steeds om karakters die op niet-dezelfde plaatsen staan in de tekst.
Je begrijpt natuurlijk wel dat als je oplossing wil met een macro,
het ook voor Excel duidelijk moet zijn welke plaats dat is, anders kan er geen goede actie ondernomen worden.
Bij M20 0000 01 0010 (8e cijfer vet), is het 8e cijfer het 11e teken, dat wordt dus: characters(11, 1)
En bij S200004010010 (9e, 10e en 11e cijfer vet) wordt het: characters(10, 3)

 

[Warme bakkertje]

Sub vet()
For Each cl In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    Select Case Len(cl)
        Case 7
        cl.Characters(7, 1).Font.Bold = True
        Case 16
        cl.Characters(10, 1).Font.Bold = True
        Case 13
        cl.Characters(9, 3).Font.Bold = True
    End Select
Next
End Sub

 

[danny147]

Beste Warme bakkertje

Als je uit gaat van de lengte van de cel Is dit een goede oplossing.
Case 16 moet zijn :

cl.Characters(8, 1).Font.Bold = True

@ ConnyBonarius

Ik heb er eentje met ActiceCell.

Je gaat op een cel staan en je kan kiezen uit 3 keuzes met knopje voor VET te maken.
1 - voor 7 de karakter vet te maken,
2 - voor het 8 ste karakter vet te maken en
3 - voor de 9,10 en 11de karakter vet te maken.

Dus cel per cel vet maken naar keuze.

Groetjes Danny. :thumb:

 

[danny147]

Beste ConnyBonarius

Hier het bestandje met dat van Warme bakketje en mij erbij.

Groetjes Danny. :thumb:

 

[ConnyBonarius]

Excell vet drukken van karakter

Beste Rudi en ZaparTR

Dank voor jullie reacties!
Misschien maak ik het wat lastiger.Een hersenkraker voor op de zondag!
Hulde aan degene die me hierbij kan helpen. Zodat ik het ook snap!

Stel dat je bijgaand document opent. Experiment 3. En alle laatste 4 karakters van rij 5 zijnde de gegevens
20 0010 20 0011 20 0012

dit sjabloon wilt veranderen in vet. En weet dat er dus kolommen toegevoegd zijn. Is daar ook een oplossing voor?

Verder:
Hoe kan ik een formule maken die als volgt regelt:
1. We nemen kolom G, ontvangst en opslag. Dat is een lokatie
2. In G15 moet komen een code van 12 cijfers en een letter. Die is als volgt wordt samengesteld:
A. Neem code uit G13 zijnde in dit geval 200010 (is branche 20 en vestiging 0010)
B. Voeg toe de code uit A12 (altijd bestaande uit 2 cijfers namelijk de activiteit). Let op, een activiteit onder de 10 heeft te maken met voorloopnullen
C. Voeg vervolgens toe de code uit F15.
D. Voeg vervolgens het cijfer 0 toe
E. Tot slot, voeg de letter toe aan het begin van de cijfercombinatie die staat in A 15,

Dan ontstaat dus een code die is opgebouwd uit
M
20 branche
0010 vestiging
01 activiteit
001 meting of vraag´
0 reservegetal

Het zou geweldig zijn als ik dit voor de andere vestigingen op dezelfde wijze kan regelen.
Voorbeeld Café, is kolom M:

1. We nemen kolom M, Cafe. Dat is een lokatie
2. In M15 moet komen een code van 12 cijfers en een letter. Die is als volgt wordt samengesteld:
A. Neem code uit M13 zijnde in dit geval 200012 (is branche 20 en vestiging 0012)
B. Voeg toe de code uit A12 (altijd bestaande uit 2 cijfers namelijk de activiteit). Let op, een activiteit onder de 10 heeft te maken met voorloopnullen
C. Voeg vervolgens toe de code uit F15.
D. Voeg vervolgens het cijfer 0 toe
E. Tot slot, voeg de letter toe aan het begin van de cijfercombinatie die staat in A 15,

En natuurlijk varieert dit zoals
1. met de letter S uit A17
2. met de activiteit uit A22
3. met de cijfercode uit kolom F

Wie snapt dit en kan mij helpen? BVD!

Conny

 

[Hoornvan]

Gebruik hiervoor denk ik voor de eerste vraag.
Probeer het voor de andere zelf te doen.

=TEKST.SAMENVOEGEN(A15;G13;A12;F15;0)

 

[ConnyBonarius]

Excell samenvoegen

Het blijkt maar weer. Dit werkt voortreffelijk!

Hartelijk dank voor de hulp. En Helpmij? Werkt!

Conny