| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code help
I need to Wrap an existing formularized Cell with the Function =VALUE()
using a VBA Statement. The below is not quite working . Can someone assist me in getting the proper syntax to get it going??? Tks in Advance.. Jim May Sub Macro5() ' ' Macro5 Macro ' Macro recorded 6/29/2006 by Jim May 'Step 1: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") 'Step 2: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE("" &") End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
code help
How about:
with activecell if .hasformula then .formula = "=value(" & mid(.formula, 2) & ")" end if end with I'd be very careful using the $ signs. Absolute range addresses could be severely messed up. Jim May wrote: I need to Wrap an existing formularized Cell with the Function =VALUE() using a VBA Statement. The below is not quite working . Can someone assist me in getting the proper syntax to get it going??? Tks in Advance.. Jim May Sub Macro5() ' ' Macro5 Macro ' Macro recorded 6/29/2006 by Jim May 'Step 1: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") 'Step 2: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE("" &") End Sub -- Dave Peterson |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
code help
you need a closing ")" on the "=value(" statement
so something like Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(" & ActiveCell.Formula & ")") should do it.n Post back if that does not work. Please rate this post if it's helpful to you. -- www.alignment-systems.com "Jim May" wrote: I need to Wrap an existing formularized Cell with the Function =VALUE() using a VBA Statement. The below is not quite working . Can someone assist me in getting the proper syntax to get it going??? Tks in Advance.. Jim May Sub Macro5() ' ' Macro5 Macro ' Macro recorded 6/29/2006 by Jim May 'Step 1: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") 'Step 2: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE("" &") End Sub |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
code help
John Thanks,
Still getting R/T 1004 with: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(" & ActiveCell.Formula & ")") Thanks for your help, we're almost there, I can taste it... "John.Greenan" wrote: you need a closing ")" on the "=value(" statement so something like Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(" & ActiveCell.Formula & ")") should do it.n Post back if that does not work. Please rate this post if it's helpful to you. -- www.alignment-systems.com "Jim May" wrote: I need to Wrap an existing formularized Cell with the Function =VALUE() using a VBA Statement. The below is not quite working . Can someone assist me in getting the proper syntax to get it going??? Tks in Advance.. Jim May Sub Macro5() ' ' Macro5 Macro ' Macro recorded 6/29/2006 by Jim May 'Step 1: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") 'Step 2: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE("" &") End Sub |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
code help
This will replace any $ in your formula as well, so I think it should be
ActiveCell.Formula = _ Application.Substitute(ActiveCell.Formula, "=", "~~") ActiveCell.Formula = _ Application.Substitute(ActiveCell.Formula, "~~", "=VALUE(") & ")" but what is wrong with Dave's suggestion? -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Jim May" wrote in message ... John Thanks, Still getting R/T 1004 with: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(" & ActiveCell.Formula & ")") Thanks for your help, we're almost there, I can taste it... "John.Greenan" wrote: you need a closing ")" on the "=value(" statement so something like Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(" & ActiveCell.Formula & ")") should do it.n Post back if that does not work. Please rate this post if it's helpful to you. -- www.alignment-systems.com "Jim May" wrote: I need to Wrap an existing formularized Cell with the Function =VALUE() using a VBA Statement. The below is not quite working . Can someone assist me in getting the proper syntax to get it going??? Tks in Advance.. Jim May Sub Macro5() ' ' Macro5 Macro ' Macro recorded 6/29/2006 by Jim May 'Step 1: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") 'Step 2: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE("" &") End Sub |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
code help
Bob,
Thanks - it (your code) works great; and as far as Dave's code... - I had not seen it until AFTERWARDS. It too is worthy!! Appreciation here,, Jim May "Bob Phillips" wrote: This will replace any $ in your formula as well, so I think it should be ActiveCell.Formula = _ Application.Substitute(ActiveCell.Formula, "=", "~~") ActiveCell.Formula = _ Application.Substitute(ActiveCell.Formula, "~~", "=VALUE(") & ")" but what is wrong with Dave's suggestion? -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Jim May" wrote in message ... John Thanks, Still getting R/T 1004 with: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(" & ActiveCell.Formula & ")") Thanks for your help, we're almost there, I can taste it... "John.Greenan" wrote: you need a closing ")" on the "=value(" statement so something like Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(" & ActiveCell.Formula & ")") should do it.n Post back if that does not work. Please rate this post if it's helpful to you. -- www.alignment-systems.com "Jim May" wrote: I need to Wrap an existing formularized Cell with the Function =VALUE() using a VBA Statement. The below is not quite working . Can someone assist me in getting the proper syntax to get it going??? Tks in Advance.. Jim May Sub Macro5() ' ' Macro5 Macro ' Macro recorded 6/29/2006 by Jim May 'Step 1: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") 'Step 2: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE("" &") End Sub |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
code help
It is better IMO <vbg
-- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Jim May" wrote in message ... Bob, Thanks - it (your code) works great; and as far as Dave's code... - I had not seen it until AFTERWARDS. It too is worthy!! Appreciation here,, Jim May "Bob Phillips" wrote: This will replace any $ in your formula as well, so I think it should be ActiveCell.Formula = _ Application.Substitute(ActiveCell.Formula, "=", "~~") ActiveCell.Formula = _ Application.Substitute(ActiveCell.Formula, "~~", "=VALUE(") & ")" but what is wrong with Dave's suggestion? -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Jim May" wrote in message ... John Thanks, Still getting R/T 1004 with: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(" & ActiveCell.Formula & ")") Thanks for your help, we're almost there, I can taste it... "John.Greenan" wrote: you need a closing ")" on the "=value(" statement so something like Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(" & ActiveCell.Formula & ")") should do it.n Post back if that does not work. Please rate this post if it's helpful to you. -- www.alignment-systems.com "Jim May" wrote: I need to Wrap an existing formularized Cell with the Function =VALUE() using a VBA Statement. The below is not quite working . Can someone assist me in getting the proper syntax to get it going??? Tks in Advance.. Jim May Sub Macro5() ' ' Macro5 Macro ' Macro recorded 6/29/2006 by Jim May 'Step 1: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") 'Step 2: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE("" &") End Sub |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
code help
It does a lot less, so less can go wrong. So I agree with Bob!
Bob Phillips wrote: It is better IMO <vbg -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Jim May" wrote in message ... Bob, Thanks - it (your code) works great; and as far as Dave's code... - I had not seen it until AFTERWARDS. It too is worthy!! Appreciation here,, Jim May "Bob Phillips" wrote: This will replace any $ in your formula as well, so I think it should be ActiveCell.Formula = _ Application.Substitute(ActiveCell.Formula, "=", "~~") ActiveCell.Formula = _ Application.Substitute(ActiveCell.Formula, "~~", "=VALUE(") & ")" but what is wrong with Dave's suggestion? -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Jim May" wrote in message ... John Thanks, Still getting R/T 1004 with: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(" & ActiveCell.Formula & ")") Thanks for your help, we're almost there, I can taste it... "John.Greenan" wrote: you need a closing ")" on the "=value(" statement so something like Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(" & ActiveCell.Formula & ")") should do it.n Post back if that does not work. Please rate this post if it's helpful to you. -- www.alignment-systems.com "Jim May" wrote: I need to Wrap an existing formularized Cell with the Function =VALUE() using a VBA Statement. The below is not quite working . Can someone assist me in getting the proper syntax to get it going??? Tks in Advance.. Jim May Sub Macro5() ' ' Macro5 Macro ' Macro recorded 6/29/2006 by Jim May 'Step 1: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$") 'Step 2: ActiveCell.Formula = Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE("" &") End Sub -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
| Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
| How to make a button VBA code reference other VBA code subroutines??? | Excel Programming | |||
| stubborn Excel crash when editing code with code, one solution | Excel Programming | |||
| option buttons run Click code when value is changed via VBA code | Excel Programming | |||
Linear Mode
