Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete characters in cell
Hello
I have a cell containing characters in A1 The Characters are right aligned. I want to delete the righmost 6 characters in the cell. I am trying something like Sub Remove_Characters() Anystring = Range("a1") MyStr = Right(Anystring,6) MyStr Delete End Sub It isn't working. Am I using Delete in the correct context? Thanks I am running Win XP Pro and Excel Office XP |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete characters in cell
I'm guessing you want something like this.
Sub StripRight() Dim rngCell As Range For Each rngCell In Selection rngCell.Value = Right(rngCell.Value, 6) Next rngCell End Sub Robin Hammond www.enhanceddatasystems.com "AuthorizedUserPF" wrote in message ... Hello I have a cell containing characters in A1 The Characters are right aligned. I want to delete the righmost 6 characters in the cell. I am trying something like Sub Remove_Characters() Anystring = Range("a1") MyStr = Right(Anystring,6) MyStr Delete End Sub It isn't working. Am I using Delete in the correct context? Thanks I am running Win XP Pro and Excel Office XP |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete characters in cell
G'day
Try Sub Remove_Characters() Range("a1") = Left(Range("a1").Value, Len(Range ("a1").Value) - 6) End Sub Tony -----Original Message----- Hello I have a cell containing characters in A1 The Characters are right aligned. I want to delete the righmost 6 characters in the cell. I am trying something like Sub Remove_Characters() Anystring = Range("a1") MyStr = Right(Anystring,6) MyStr Delete End Sub It isn't working. Am I using Delete in the correct context? Thanks I am running Win XP Pro and Excel Office XP . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete characters in cell
"AuthorizedUserPF" wrote in message ... Hello I have a cell containing characters in A1 The Characters are right aligned. I want to delete the righmost 6 characters in the cell. I am trying something like Sub Remove_Characters() Anystring = Range("a1") MyStr = Right(Anystring,6) MyStr Delete End Sub It isn't working. Am I using Delete in the correct context? Thanks I am running Win XP Pro and Excel Office XP No, you aren't using it correctly. Assuming you want to place the shorter string in cell a1, then try this: Sub Remove_Characters() Anystring = Range("a1").value ' Compute current length of string myLen = Len(Anystring) ' Note: extra variables introduced for illustratation. ' delete the extra variables to simplify the routine If myLen 6 Then ' What is length of string six characters shorter? newLen = myLen - 6 ' Set new string to the new, shorter length newString = Left(Anystring, newLen) ' Note: might want to include the TRIM function for the new string, depending on how you feel about spaces. ' And save that value in the cell Range("a1").Value = newString End If End Sub Regards, - Sox |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to delete last X number of characters in a cell | Excel Discussion (Misc queries) | |||
Delete first two characters in a cell... | Excel Worksheet Functions | |||
Delete first few cell characters | Excel Discussion (Misc queries) | |||
delete all the cell that contains more than 25 characters | Excel Discussion (Misc queries) | |||
can i delete the last 3 characters in each cell in a column in 1 . | Excel Discussion (Misc queries) |