Hoofdletters in een bepaalde kolom

[wildboy]

Hallo allemaal,

ik heb een werkblad waar meerdere mensen aan werken
nou moeten ze in dit werkblad in kolom B
iets plaatsen dit mag alleen in hoofdletters helaas wordt dit nog al eens vergeten.

ik weet dat je met auto txt alles kan laten vervangen alleen geld het dan voor al je excel mappen
ken ook deze =HOOFDLETTERS B1 (maar dan heb je het er 2 keer staan ook niet de oplossing dus)

is het mogelijk om alleen voor deze kolom alles in Hoofdletters te doen ?
met VBA.

ik werk met office XP

 

[BasMan]

Hoofdletters

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
For Each Rng In Worksheets("Sheet1").Range("B1:B10")
If Rng.HasFormula = False Then
Rng.Value = StrConv(Rng.Value, vbUpperCase)
End If
Next Rng
End Sub

Plaats bovenstaande in vba en de tekst in range B1 tot en met B10 wordt verandert in hoofdletters.

mvg

BasMan

 

[wildboy]

das snel maar....

hey BasMan,

Dat is wel een hele snelle oplossing van mijn vraag
alleen 1 probleem

als ik het bereik ga vergroten naar bv 500 cellen moet
gaat ie nadenken.

heb nu dit:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
For Each Rng In Worksheets("Blad1").Range("B1:B500")
If Rng.HasFormula = False Then
Rng.Value = StrConv(Rng.Value, vbUpperCase)
End If
Next Rng
End Sub

is het mogelijk om dit probleem op te lossen het gaat hier om een behoorlijk sheet.

 

[BasMan]

Het kan anders....

Wildboy,

Je kan een button toevoegen op het werkblad. En daar dan de code inzetten. Je voegt aan de code het volgende toe:

Application.Screenupdating = False

Als je dan op de button drukt gaat het wel sneller dan met de andere methode. Nadeel hiervan wel is dat het niet automatisch gaat. Maar dit zal toch geen probleem zijn.

Je weet hoe je een button moet invoegen?

View/Toolbars/Forms

Ik hoop dat dit de juiste oplossing is voor jou!

Mvg

BasMan

 

[jpvs]

Misschien is dit beter, dit geld voor de ganse kolom B


Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As Range
Application.EnableEvents = False
For Each b In Target.Cells
If Not b.HasFormula Then _
b = UCase(b)
Next b
Application.EnableEvents = True
End Sub

Pierre

 

[wildboy]

wow

Hey Pierre,

Heb 'm even uitgeprobeert en volgens mij pakt ie niet alleen kolom B maar het hele blad ,dit lijkt me geen probleem aangezien het wel allemaal wel heel snel gaat en zonder vertraging. dus denk dat dit wel de oplossing is maar moet zeggen dat de oplossing van Basman

ook niet gek is alleen met de macro die ik nu heb van Basman kan ik er geen knop aan toewijzen.

Ik zie 'm namelijk helemaal niet staan in mijn rijtje macro's dus,ik denk ook dat er een aanpassing van de macro nodig is.

kan jij die nog ff geven basman? :thumb:


beide alvast bedankt voor de oplossing.

 

[BasMan]

Commandbutton

Wildboy,

Je moet een commandbutton toevoegen op je sheet. In plaats van record moet je new indrukken. En daar kun je de programmacode inzetten. Druk je daarna op de button dan worden alle woorden in kolom B in hoofdletters omgezet.

Je weet hoe je een commandbutton moet toevoegen?

Mvg

BasMan