Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
transpose characters in a cell (ex: ABC12345 changes to 54321CBA)
I looking to take a column of part numbers (mixed with text and numerals) and
transpose the character position from left-to-right - changing it to right-to-left. An example would be 5YA124 would change to read 421AY5 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
transpose characters in a cell (ex: ABC12345 changes to 54321CBA)
Say you are reversing the contents of cell A1, use the code below and
type =ReverseCell(A1,TRUE) in your target cell. Function ReverseCell(Rcell As Range, Optional IsText As Boolean) Dim i As Integer Dim StrNewNum As String Dim strOld As String strOld = Trim(Rcell) For i = 1 To Len(strOld) StrNewNum = Mid(strOld, i, 1) & StrNewNum Next i If IsText = False Then ReverseCell = CLng(StrNewNum) Else ReverseCell = StrNewNum End If End Function HTH, JP On Nov 1, 3:06 pm, karen wrote: I looking to take a column of part numbers (mixed with text and numerals) and transpose the character position from left-to-right - changing it to right-to-left. An example would be 5YA124 would change to read 421AY5 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
transpose characters in a cell (ex: ABC12345 changes to 54321CBA)
Try this one line UDF:
Function reverse(r As Range) As String reverse = StrReverse(r.Value) End Function -- Gary''s Student - gsnu200753 "karen" wrote: I looking to take a column of part numbers (mixed with text and numerals) and transpose the character position from left-to-right - changing it to right-to-left. An example would be 5YA124 would change to read 421AY5 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
transpose characters in a cell (ex: ABC12345 changes to 54321C
Thanks!! this works awesome!!!
"Gary''s Student" wrote: Try this one line UDF: Function reverse(r As Range) As String reverse = StrReverse(r.Value) End Function -- Gary''s Student - gsnu200753 "karen" wrote: I looking to take a column of part numbers (mixed with text and numerals) and transpose the character position from left-to-right - changing it to right-to-left. An example would be 5YA124 would change to read 421AY5 |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
transpose characters in a cell (ex: ABC12345 changes to 54321CBA)
Nice job dude
On Nov 1, 3:22 pm, Gary''s Student wrote: Try this one line UDF: Function reverse(r As Range) As String reverse = StrReverse(r.Value) End Function -- Gary''s Student - gsnu200753 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
find first empty cell in column and start transpose next row in that cell | Excel Discussion (Misc queries) | |||
Transpose? Offset? Variable starting cell | Excel Discussion (Misc queries) | |||
Transpose Reletive Cell References? | Excel Worksheet Functions | |||
I WANT TO TRANSPOSE LINKS, AS WE TRANSPOSE VALUES | Excel Worksheet Functions | |||
Transpose-relative cell references would be useful. | Excel Worksheet Functions |