# Posts by jr73906

• ## Running Sum Until

Hi all,
I am trying to make a query that returns on what date a security in the current inventory entered a portfolio in Access.
The data is stored as trades which are summed to give the current inventory.
My first approach was to take to current inventory and try to back out the trades until the position would be zero, but I could not figure out a way to do a running sum Unitl that would be completed in reverse chronology in access.
Any help would be appreciated
Thanks,
JP

• ## Reason For -- (Double Negative) In Formulas

I have come across this only a couple times and have tried in vain to find out what the "--" does in formulas

one example I have run accross in the forums is below

=SUMPRODUCT(--(ISNUMBER( FIND("SMS",A1))))

Also, is there a good refrence source for formulas like this?

Thanks,
JP

• ## Find Text/Value & Use Found Cell, Row, Column In Macro Code

Re: Find Text/Value &amp; Use Found Cell, Row, Column In Macro Code

Thanks for the quick reply! I have learned most of what I know about VBA from bouncing around on this site and look forward to learning enough to help others.

The following code does exactly what I was looking for, but I would appreciate further pointers, especially on how I asked the question so others know what I am talking about.

Thanks again for the help and maintaining this site :drum:

• ## Find Text/Value & Use Found Cell, Row, Column In Macro Code

I am trying to clean up and simplify my macros by compartmentalizing frequently repeated commands.

I like to search for text in column headings and define the cell containing it as a range that I can later use .column or .row commands on, so my macros are a bit more flexible.

The code I currently use for this is

Code
1. Dim XColumn As Range ‘the cell containing the text “X”
2. Cells.Select
3. Selection.Find(What:="X", After:=ActiveCell, LookIn:=xlFormulas, _
4. LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
5. MatchCase:=False, SearchFormat:=False).Activate
6. Set XColumn = ActiveCell

I would like to be able to create a Macro (possibly name FindSetCell()) that will accept arguments and achieve the results of the above code in other macros
I think the command might look something like

FindSetCell(“text to be searched for”,”name of newly Defined Range”)

But I have not figured out how to code it

Any help would be much appreciated,
Thanks,
JP