Hi!
I have a field in Excel where I write in a customers adress.
I use a code for this so the text in the field will use propercase.
So if I write in "streetname 101" for example, the result will be "Streetname 101".
This works good, but I have a small problem that I wanted to check if it's possible to solve.
If I have a adress with a letter after the streetnumber, for example "Streetname 101B", then propercase will make it "Streetname 101b".
Is it possible somehow to alter the code to always write letters after the streetnumber in uppercase?
This is the code I'm using right now:
I have a field in Excel where I write in a customers adress.
I use a code for this so the text in the field will use propercase.
So if I write in "streetname 101" for example, the result will be "Streetname 101".
This works good, but I have a small problem that I wanted to check if it's possible to solve.
If I have a adress with a letter after the streetnumber, for example "Streetname 101B", then propercase will make it "Streetname 101b".
Is it possible somehow to alter the code to always write letters after the streetnumber in uppercase?
This is the code I'm using right now:
Code:
If Not Application.Intersect(Me.Range("A12:A13"), Target) Is Nothing Then
If IsNumeric(Target.Value) = False Then
Application.EnableEvents = False
'Target.Value = StrConv(Target.Text, vbLowerCase)
'Target.Value = StrConv(Target.Text, vbUpperCase)
Target.Value = StrConv(Target.Text, vbProperCase)
Application.EnableEvents = True
End If
End If