Hoofd en kleine letters

[Edje_007]

Hallo ,

Ik zou de input van Kolom , a, b , c, d , e, f in Hoofletters willen omzetten , en de input van kolom g en h in kleine letters ( VBA ).

De code hieronder voor het volledig werkblad , maar dat is niet te bedoeling :

For Each cell In ActiveSheet.UsedRange
cell.Value = UCase(cell.Value)
Next cell

Kan er iemand helpen ? Mvg

Ed

 

[huijb]

Van klein naar groot
Sub ConvertToUpperCase()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = UCase(Rng.Value)
End If
Next Rng
End Sub

Van groot naar klein
Sub ConvertToLowerCase()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = LCase(Rng.Value)
End If
Next Rng
End Sub

 

[Edje_007]

Hoi huijb,

Net wat ik nodig had ! :thumb: :thumb:

Vriendelijk bedankt !!

Ed

 

[huijb]

Dat is heel mooi :thumb: Nu nog even de vraag op opgelost zetten.