Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
REPLACE
Range("A1").Select
Cells.REPLACE What:="1-", Replacement:="-1", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=True I want to use this formula to replace ALL cells where the "-" symbol is on the right by moving it to the left in front of the number. This formula works great, but only for cells with "1-"...if the number is any different I'd have to set it up for every possible number which would be a rediculously long macro. Any ideas on how I can modify this? THANKS!!! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
REPLACE
Check out this link...
http://www.mcgimpsey.com/excel/postfixnegatives.html -- HTH... Jim Thomlinson "bodhisatvaofboogie" wrote: Range("A1").Select Cells.REPLACE What:="1-", Replacement:="-1", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=True I want to use this formula to replace ALL cells where the "-" symbol is on the right by moving it to the left in front of the number. This formula works great, but only for cells with "1-"...if the number is any different I'd have to set it up for every possible number which would be a rediculously long macro. Any ideas on how I can modify this? THANKS!!! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
REPLACE
This is only for cells containing data, not formulae:
Sub negatory() For Each r In Selection With r If Right(.Value, 1) = "-" Then .Value = "-" & Left(.Value, Len(.Value) - 1) End If End With Next End Sub -- Gary''s Student - gsnu2007 "bodhisatvaofboogie" wrote: Range("A1").Select Cells.REPLACE What:="1-", Replacement:="-1", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=True I want to use this formula to replace ALL cells where the "-" symbol is on the right by moving it to the left in front of the number. This formula works great, but only for cells with "1-"...if the number is any different I'd have to set it up for every possible number which would be a rediculously long macro. Any ideas on how I can modify this? THANKS!!! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
REPLACE
"Gary''s Student" wrote: This is only for cells containing data, not formulae: Sub negatory() For Each r In Selection With r If Right(.Value, 1) = "-" Then .Value = "-" & Left(.Value, Len(.Value) - 1) End If End With Next End Sub -- Gary''s Student - gsnu2007 "bodhisatvaofboogie" wrote: Range("A1").Select Cells.REPLACE What:="1-", Replacement:="-1", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=True I want to use this formula to replace ALL cells where the "-" symbol is on the right by moving it to the left in front of the number. This formula works great, but only for cells with "1-"...if the number is any different I'd have to set it up for every possible number which would be a rediculously long macro. Any ideas on how I can modify this? THANKS!!! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
REPLACE
That worked great, Thanks!!!
"Gary''s Student" wrote: This is only for cells containing data, not formulae: Sub negatory() For Each r In Selection With r If Right(.Value, 1) = "-" Then .Value = "-" & Left(.Value, Len(.Value) - 1) End If End With Next End Sub -- Gary''s Student - gsnu2007 "bodhisatvaofboogie" wrote: Range("A1").Select Cells.REPLACE What:="1-", Replacement:="-1", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=True I want to use this formula to replace ALL cells where the "-" symbol is on the right by moving it to the left in front of the number. This formula works great, but only for cells with "1-"...if the number is any different I'd have to set it up for every possible number which would be a rediculously long macro. Any ideas on how I can modify this? THANKS!!! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can I replace a ' at the beginning of a text cell using Replace | Excel Discussion (Misc queries) | |||
Replace text with variable using VBA replace code? | Excel Programming | |||
How to Replace multiple words to replace using excell | Excel Programming | |||
find and replace - replace data in rows to separated by commas | Excel Worksheet Functions | |||
Replace method - cannot find any data to replace | Excel Programming |