View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.programming
Melody4572 Melody4572 is offline
external usenet poster
 
Posts: 17
Default another macro questions

sure
refireBLP is something that will relink (or rather update) the informaiton
to a stock market site.
No what the main issue is that I have been working 11 hour days for the last
two months and some of this is starting to blur before me. One more formula
tho and it will be complete and well worth it all. This is just a small
chunk of it. I need to move the referance cell around and since it is a
named cell that is used in other formulas I can't just say M111, it has to be
M111 is now target_cusp


"Jim Jackson" wrote:

Do you have a cell reference set up? I am assuming you have that.

The line "Refers to..." I assumed was an explanatory note and not actually
part of the procedure.

Can you tell me more about "RefireBLP"?
--
Best wishes,

Jim


"Melody4572" wrote:

Well he does look better, but it still isn't doing the last half that I need
it to do. I think my brain has left me....the bad part is I still love this
stuff.

"Jim Jackson" wrote:

I don't know if this helps any. I added a little to what you have.

Res = InputBox("What is the cell address?")
Do
If StrPtr(Res) = 0 Then
MsgBox "User Clicked Cancel"
Exit Sub
ElseIf Res = vbNullString Then
MsgBox "User Clicked OK with no input"
Else
MsgBox "User Entered cell " & Res
End If
Loop Until Res 0
Application.Goto Reference:="target_cusip"
ActiveCell.FormulaR1C1 = Res

Application.Run "RefireBLP"
ActiveWorkbook.Names.Add Name:="target_cusip"
'RefersToR1C1: x_ "=summary!+ " & rng.Address(ReferenceStyle:=xlR1C1)
Application.Run "RefireBLP"
--
Best wishes,

Jim


"Melody4572" wrote:

Res = InputBox("What is the cell address?")
If StrPtr(Res) = 0 Then
MsgBox "User Clicked Cancel"
ElseIf Res = vbNullString Then
MsgBox "User Clicked OK with no input"
Else
MsgBox "User Entered cell " & Res
End If
'
Application.Goto Reference:="target_cusip"
ActiveCell.FormulaR1C1 = Res

Application.Run "RefireBLP"
ActiveWorkbook.Names.Add Name:="target_cusip"
RefersToR1C1: x_ "=summary!+ " & rng.Address(ReferenceStyle:=xlR1C1)
Application.Run "RefireBLP"

I think I have looked at this too much. What I need for it to do is bring
up a box asking what cell address I want to use. Then I need to verify the
address to be used. I next want to name the cell target_cusip so that I can
use it in a larger formula. Why? Because sometimes the taget_cusp is M107
and sometimes it is M108, or M109....see why I would like to make it a little
easier? Thanks for any and all suggestions!