Hi!
I would like to make a macro that remove the last character of all cells selected from my user IF they meet a certain condition.. let say they end by L.
selectionrange.png
Something like:
How can I do this ?
Please Login or Register to view this content.
Thanks,
JP
Last edited by JPGraphX; 06-06-2014 at 10:47 AM.
I think you would have to loop.
Please Login or Register to view this content.
If posting code please use code tags, see here.
It's working. But it is converting it to Text. How may I change it back to number?
A simple click and enter is doing the job, but macro is better..
Sorry, I don't understand.
If the L was actually the text character L then the value in the cell would be text.
Well, that was my way to make sure you understand. (english is my second language and it is not always easy to explain what I mean to say)
Real situation is:
I have list of number and some finish by a chr(160), which is kind of equivalent to space bar.
I need my macro to remove chr(160), if there is one, in all the cell selected by my user.
But now, it is working very well with your macro. My only problem is that I want after that to format my selected number to X.XX (two digit after decimal). But I can't because it is text.
Last edited by JPGraphX; 06-06-2014 at 12:00 PM.
If you want to remove Chr(160) use Replace.
Please Login or Register to view this content.
I still get the problem: Number stored as text
SOLVED:
Selection.Replace Chr(160), ""
With Selection
Selection.NumberFormat = "0.00"
.Value = .Value
End With
For Each cl In Selection.Cells
cl.Value = cl.Value * 1
Next cl
Are the Chr(160) characters gone?
Yes it is gone!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks