Kleine letter omzetten in een hoofdletter.

[kappel]

In een bepaalde kolom moet de de in te vullen letter automatisch een hoofdletter worden.
Ik heb wel iets gevonde als: =HOOFDLETTERS(A2) maar waar zet ik dit als ik de letters in kolom B als hoofdletters wil hebben?

 

[edmoor]

Met die functie zet je de waarde van een cel als hoofdletters in een andere cel.
Met een eigen functie kun je het voor de eigenlijke cel doen:

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
    If Target = Range("a1") Then Target = UCase(Target.Value) 
End Sub

 

[peter59]

Hallo

Of zo in excel 2010.

mvg Peter

 

[kappel]

Ik lees dit op mijn iPad dus kan ik het nu niet proberen. Maar ik zou graag willen weten waar en hoe ik deze code moet zetten! Alvast dank.

 

[Niels28]

Rmuisknop op tabbladnaam, programmacode weergeven en daar plak je de code.

Niels

 

[kappel]

Niels,
Dit is de code die ik in mijn programma heb staat, waar moet ik nu de code zetten die jij aangeeft?
Dank Nico

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 18-10-2012 door Gebruiker.
'
' Sneltoets: CTRL+s
'
Range("B2:AN46").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("AN2").Select
End Sub

 

[kappel]

Bekijk bijlage Rooster 2012-2013.xls


Het betreft dit bestand.

 

[edmoor]

Doe wat Niels zei:

Rmuisknop op tabbladnaam, programmacode weergeven en daar plak je de code.

En plak daar dan dit in:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Intersect(Target, Range("B3:B46")) Is Nothing Then Target = UCase(Target.Value)
End Sub

 

[kappel]

Ik heb iets DOMS gedaan ik zie mijn eigen code niet meer!

En moet ik de code onder de andere plakken?

 

[edmoor]

Zo'n project bestaat uit meerdere modules.
Als je doet wat Niels zei kom je in een gedeelte terecht waar worksheet events worden opgevangen.
En daar hoort de code thuis die ik gaf.

Jouw code staat in module 6.
Modules 1 t/m 5 zijn overigens leeg.

 

[kappel]

HET WERKT,

Edmoor en Niels hartelijk dank.

 

[edmoor]

Mooi zo
Heb je je eigen code ook terug gevonden?

 

[kappel]

Mooi zo
Heb je je eigen code ook terug gevonden?

Nee, maar ik ga morgen zoeken. Ik heb de gegeven code in het lege scherm geplakt en het werkt.
Als ik in de module kijk zie ik hem wel maar als ik in map met rechter muis knop kijk naar de code krijg ik een leeg scherm!

 

[edmoor]

Dubbelklik op de naam Module6.
En anders staat het nog in de worksheet die je hier hebt gepost.

 

[kappel]

Klopt dus.

In Module 6 staat de sorteercode en in Blad 1 de code voor het omzetten van kleine letter in hoofdletter.

Waarom de lege Modules er in zijn gekomen weet ik niet. Maar het werkt nu wel!

(Ik zie dat het in de bijlage niet werkt maar in het orgineel in ieder geval wel).

Bekijk bijlage Rooster 2012-2013 nieuw.xls

 

[edmoor]

In die bijlage zat de code ervoor nog niet

 

[AbbyFedPol]

Ik heb het ook eens in mijn bestanden toegepast en het werkt perfect. Super !!!
Kunnen jullie mij ook eens de code geven om enkel de eerste letter om te zetten in een hoofdletter ?

En hebben jullie soms geen interessante site of zo waar ik die codes kan vinden of leren hoe ze te maken ?

Alvast bedankt !!!

 

[Niels28]

Interessante site om het te leren zit je op.
Lees post van anderen en probeer er iets van te leren, probeer het probleem van andere op te lossen
en kij dan wat iemand anders er van gemaakt heeft, daar leer je het meeste mee.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
    If Not Intersect(Target, Range("B3:B46")) Is Nothing Then Target = WorksheetFunction.Proper(Target.Value)
Application.EnableEvents = True
End Sub

Niels

 

[edmoor]

Ik meen in een ander bericht iets over codetags gelezen te hebben?

 

[Niels28]

Volgens mij heb ik ze dezelfde tijd als je post al aangepast.
Maar bedank voor de herinnering...


Niels