-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
AlphaNumeric Cell Formatting
- Thread starter amdaar
- Start date
Scott Huish
MrExcel MVP
- Joined
- Mar 17, 2004
- Messages
- 20,638
- Office Version
- 365
- Platform
- Windows
Hi, welcome to the board!
This can be done with VBA.
This is set for Column A, change as necessary.
This can be done with VBA.
This is set for Column A, change as necessary.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, d As Range, t(5) As String, s As String
Dim x As Integer
Set c = Intersect(Target, Range("A:A"))
If c Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each d In c
s = Replace(d, "-", "")
If s <> "" Then
For x = 0 To 5
t(x) = Mid(s, (x * 2) + 1, 2)
Next x
Target = UCase(Join(t, "-"))
End If
Next
Application.EnableEvents = True
End Sub
Upvote
0
Scott Huish
MrExcel MVP
- Joined
- Mar 17, 2004
- Messages
- 20,638
- Office Version
- 365
- Platform
- Windows
Copy the code above.
Right Click on the sheet tab for the sheet you want this to happen on.
Click on View Code.
Past the code into the white area.
Hit Alt-q
When you save the workbook, the code will be saved with it.
Right Click on the sheet tab for the sheet you want this to happen on.
Click on View Code.
Past the code into the white area.
Hit Alt-q
When you save the workbook, the code will be saved with it.
Upvote
0
Similar threads
- Solved
