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

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

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

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

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