reverse statement

[yjmmay34]

Hi, all. I want to reverse the value in cell K1 "Q1" to "1Q" . how should i write a code to make it work? pls help. thank you!

[Andy Pope]

Are all your values 2 characters long?

[snb]

Function trever(c01)
   trever = StrReverse(c01)
End Function

In cell L1
=trever(K1)

or

sub trever()
  for each cl in selection
    cl.value=strReverse(cl.value)
  next
End Sub

[yjmmay34]

thank you snb. it can work now.

[Marcol]

Or maybe?
If you just want to move a single code letter to the begining of the string and retain the number as is.

=RIGHT(A1,LEN(A1)-1)&LEFT(A1)

[ashish koul]

Function revrese(x)
Dim c As String
c = ""
For i = 1 To Len(x)

c = Mid(x, i, 1) & c


Next i

revrese = c

End Function

[DonkeyOte]

ashish, given the existence of StrReverse Function (as illustrated by snb) there's no need to iterate the string.

[romperstomper]

Ashish,
Unless you like SPAM, I strongly recommend you remove your email address from your signature!