Analyzer That Lotus 123 Had With It's Function Called Backsolver
Feb 24, 2008
I'm trying to replicate the same functionality using Excel Analyzer that Lotus 123 had with it's function called Backsolver.
Below is a simple matirx of expenses, that shows a sum total of 3297. I want to change the number 3297 to 5000 and I want the rows and columns to add up to that total based on the same % relationship that existed when this matrix added to 3297
This technique is useful when you are trying to spread changes in a plan and you need to develop placeholders that add up and accross to the new target i.e, 5000 based on the previous targets % relationships that existed when the row and columns added up to 3297
I can use the analyzer, but when it finds its solution it returns negative values as part of the solution. I'm missing something in trying to set the parameters so that it won't return me negative #'s.
View 9 Replies
ADVERTISEMENT
May 12, 2006
1. Can a Subroutine be called from within a user-defined Public Function? How?
2. Is there a difference between calling a subroutine with a 'Call Sub_Name' statement, vs. calling the subroutine with an 'Application.Run'(?? or similar) statement?
View 5 Replies
View Related
May 29, 2009
Function being called at inappropriate time
I have the following code in the active worksheet:
View 4 Replies
View Related
Apr 15, 2013
I have a series of procedures I am calling from a function that each run fine when executed individually. These procedure are titled: DataValidation, Test1, Test2
The function will not run past Test2- I do not get the msgbox "Stage 2"
Code:
Public ArrayD
Public ArrayD2 As Variant
Public RngD3 As Range
Public Function Test(arg2 As Range)
DataValidation arg2
[Code] ............
View 4 Replies
View Related
Jun 26, 2007
I have a macro that calls functions from another workbook.
For example:
Private Sub Worksheet_Change(ByVal target As Range)
If ThisWorkbook.OpenCommon <> -1 Then _
Application.Run Workbooks("common.xls").name & "!Arkusz1.CellChange", target
End Sub
But when I get an error in CellChange function from "common.xls" workbook, debugger points only to the third line of the code above, not to the bad line in called function.
Is there any way to change this behaviour (maybe some tool etc.)?
View 5 Replies
View Related
Jun 27, 2006
I have a function in a cell triggered on the value returned by a DDE link in another cell.
e.g. cell A1 contains =function1(A2) and cell A2 contains
=ADVFN|NYSE_CAT!CUR
function1 is triggered each time the DDE link updates regardless of whether the result returned has changed or not. How do I prevent function1 being triggered if the returned value has not changed?
View 9 Replies
View Related
Nov 5, 2008
i need to create a function macro Called FSTD that inserts words into a cell and conditionally formats them depending on th number in the cell on the left.
in the sheet there are ranges that the number will fall between.
Example
Cell B1 is the cell were i want to run the function in
Cell A1 is the cell with the number that is used in the function
Cells A3:A7 are that ranges that i need to use in the function
E.g. if the number in A1 is less than A6 = i want "P" to appear in the cell with a red backround
if the number is greater than A6 but less than A5 = i want "M" to apear with an orange back round
if the number is Greater than A5 but less than A4 = i want "E" to apear with a green backround
even if it is possible to do without changing the backrounds, just to insert the letters
View 9 Replies
View Related
Mar 28, 2009
I have written a user-defined function that searches for a small range within a larger range. The function requires two input parameters: the range you are looking for, and the range you want to look within.
For example, I might look for the string of values in cells A1:D1 in a larger range E1:H20. The function returns the row number in the larger range where the smaller range is found.
My problem is this: The function is working fine when I call it from another sub procedure. However, when I try to run it as a worksheet function, I get a "#VALUE!" error. The function pops up in the "insert function" menu, and it prompts for the two input parameters.
View 6 Replies
View Related
Mar 16, 2009
I have a set of macros that allows me to call up lotus notes and send emails. However, i am not able to call up the 'prevent copying' function of lotus notes.
View 9 Replies
View Related
May 3, 2014
I am trying to use the simplest code possible (being a novice) to execute a macro which makes a copy of Cell A1:A4 and paste its values to Cells B1:B4 if cell B5=1 (or whatever). The Macro with copy and paste works (I recorded it and in my testing it was ok). And also the function, that contains If-Then status of cell B5, works and calls correctly the Macro.
Yet when the macro is called by the function (=CopyMyCells(B5)), the Macro (MacroCopy) runs - I tested this with a Msgbox - but stops just in doing what I need, i.e. in doing the copy-paste process. Here the code which is placed in a module of the proper Worksheet (Excel 2003, on WinXPSp3):
[Code] ........
View 6 Replies
View Related
Nov 5, 2013
Is there a way to make a simple text analyser that will return the number of times each word is used in a sentence or paragraph within a cell?
I use excel to write short paragraphs to upload onto social network sites and I would like a formula or program that tells me how many times each word has been used over a number of cells, to avoid repetition. Is there a way to do this?
View 3 Replies
View Related
Dec 2, 2009
I need "PC" to show up if I type a sentence containing "Called Parent", "Called Dad", or "Called Mon". Here is what I'm trying.
View 2 Replies
View Related
Aug 1, 2009
Lotus 123 had a function where you could graphically, in a cell, show plus symbols(+) or negative symbols (-) for the value of the data. For example if you had a column of numbers that you calculated from the previous year that indicate the change, Lotus, in the next cell would allow you to graphically display the symbols that indicate the strength of the change. So if your result was a positive ten then ten plus symbols would be shown. If it was -20 then 20 negative symbols would be shown. Now the numbers I am looking at could be 600,00 and I believe there was a way to to proportion the symbols for example for every 100,000 put in one symbol so the result would be 6 (+) signs.
View 5 Replies
View Related
Aug 5, 2008
Suppose I have this UDF:
Public Function test()
test = ActiveCell.Column
End Function
This is great only when I evaluate the function test() one cell at a time. When I copy this formula to other cells or perform autofill Excel thinks that the active cell is the first cell in the series.
What I really want is for the function to return the column of the CELL that contains the function, and not the cell that's last clicked.
View 9 Replies
View Related
Apr 12, 2009
Up until a few years ago, I used to work with Lotus 123. Some of you might remember Lotus 123.
View 2 Replies
View Related
Sep 6, 2005
>I am trying to convert a Lotus file over to Excel, and am having some trouble
>converting an error handling dget function.
>
>=IF(ISERR(DGET(Databaseread,"Name","GROUP
>ID"=GroupNumber)),VLOOKUP(GroupNumber,Databaseread,4,FALSE),DGET(Databaseread,"NAME","GROUP ID"=GroupNumber))
>
>This is the function that was used in Lotus; it returns the name of a
>company by looking at the ID number. I need to keep it as pure as possible to
>the Lotus file.
....
Lotus 123's @DGET (and other database functions) are much more
sophisticated than Excel's counterpart functions. 123's can use
criteria expressions in the function calls. Excel's require criteria
ranges.
In this particular case, there's no need to use DGET at all. There's a
single criterion term, so VLOOKUP is sufficient. If the "Name" column
were the 4th column in Databaseread, then try
=VLOOKUP(GroupNumber,Databaseread,4,0)
Explanation: it appears you're just trying to find a particular group
number. DGET (and @DGET in 123) returns an error if there's more than
one entry. VLOOKUP returns the first matching entry. You're formula
makes it clear you want either the only matching entry or the first
matching entry. However, when there's only one matching entry it's also
the first matching entry, so VLOOKUP alone would have returned the
desired result.
I suspect you have other formulas that are more complicated, but you
believed the formula above would be a reasonable sample to provide. Not
so. If you have more complicated D-function calls, show them, not the
simple ones.
View 13 Replies
View Related
Feb 23, 2007
I have a macro called "Copying" and this runs perfectly well when run on its' own.
I have now created the following peice of
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("form").Range("B14").Value x Then
x = Sheets("form").Range("B14").Value
End If
Application.Run "Copying"
End Sub
Which (should) run the "Copying" macro if cell B14 is changed........here is my problem.
It seems to run this macro over and over again. How can I get it to just run it once?
View 9 Replies
View Related
Jan 9, 2008
I'm using the calander control in Excel which is called in VBA when a user clicks on a cell in a range - the code is as follows:
' Calander for Activity Start Date and end dates
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, [H11:I30,H33:I52,H55:I74,H77:I96,H99:I118,H121:I140,H143:I162,H165:I184,H187:I206,H209:I228,H231:I250,H253:I272,H275:I294 ,H297:I316,H319:I338,H341:I360]) Is Nothing Then
If Intersect(Target, [K11:L30,K33:L52,K55:L74,K77:L96,K99:L118,K121:L140,K143:L162,K165:L184,K187:L206,K209:L228,K231:L250,K253:L272,K275:L294 ,K297:L316,K319:L338,K341:L360]) Is Nothing Then
Calendar1.Visible = False
Exit Sub
End If
End If...........
View 9 Replies
View Related
May 4, 2006
I have a need to import 1600 Lotus files in .123 format (not WK*) into Excel. Either, where can I get the Excel drivers to import .123 files, or where can I get the object model objects, properties, methods, and the scripting syntax used for Lotus's version of VBA, so I can automate the conversion of .123 files to .wk3 files within Lotus.
To automate the Lotus part, I have the 1600 file names (the files all being in the same folder) in a column in a .123 file. I want to:
IF the active cell is not blank
Read the file name
Import the file as .123 from an input folder
Do a saveas to .wk3 format to an output folder
Close the file
Move down a cell
OTHERWISE done
Already tried the Lotus macro recorder. It uses hard cell addresses. I need soft references to the value in the current cell so I can process the list. In Excel, it would be simple for me, as I know the object model and scripting syntax. I just burned two hours proving that Lotus has a model and syntax sufficiently different from VBA that I need a programming reference.
View 4 Replies
View Related
May 21, 2009
If I have several Forms check boxes assigned to the same procedure, is it possible to tell which check box called the procedure?
View 6 Replies
View Related
Dec 10, 2009
I want to thank you all for the solutions/support I received in completing my (for me) difficult workbook.
I still have a tricky problem. In the example below, can Multibeep "know" when it is being called from Beep versus being excuted directly? And if so can I direct a different sequence?
View 10 Replies
View Related
Jul 2, 2012
I am running this code it is rather long, but I need to show it all ?
Code:
Public Sub Monday()
Dim mName() As Variant
Dim lName() As Variant
Dim fName As String
Call lower(CStr(mName(q)), fName, CStr(lName(q)))
[Code] .........
How to do is to pass the value of convert to the other procedures that are being called? As you can see I know how to pass variables down to "Sub-routines" but how would I pass the variable up?
View 8 Replies
View Related
Oct 9, 2012
HTML Code:
'The procedure for executing the main task:
Sub Test2()
Dim noSession As Object, noDatabase As Object, noDocument As Object
[Code]....
However I now have a requirement to send it from my Team mailbox - which I have access to
View 1 Replies
View Related
Jun 2, 2014
I have an excel file that will be downloaded by multiple users and saved locally. I was wondering if there was a way to build code into the file so that everytime it is saved an email would be created in lotus notes from the user to me with a copy of the file attached. Is this possible?
View 2 Replies
View Related
Oct 30, 2006
I have developed many macros that generate automatic emails from excel using Outlook, with the excellent help I've found here. Now due to recent buyouts, we have changed our email from Outlook to Notes. I'm looking for the simplest method of changing my macros so they will work with Notes. Below is the typical code I'm currently using. Is there an easy way to change it for Notes?
Public Sub SendEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim Dist As String
Dim supplierinfo As Range
Dist = WorksheetFunction.VLookup(Supplier, Workbooks("ScarForm.xls").Sheets("Supplier Information").Range("a9:z1000"), 3, 0)
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.to = Dist
.CC = "emailnames"
.BCC = ""
.Subject = "email subject"
.Body = "Text of email"
Windows(Fname & ".xls").Activate
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
View 9 Replies
View Related
Nov 17, 2006
I have problems with passwords in excel 97. The perfect Script below wheel in excel 2000 and 2003, but presents problems in excel 97.
Function EnviaBancoALTEND(Para As String, Doc As NotesDocument, DB As NotesDatabase, Password As String)
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim Doc_Mail As NotesDocument
Dim RTItem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim xlApp As Variant
Dim xlsheet As Variant
'cria o excel
Set xlApp = CreateObject("Excel.application")
xlApp.Visible = False
xlApp.Workbooks.Add
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
XlApp.Windows(1).DisplayGridlines=False
View 9 Replies
View Related
Oct 2, 2008
I am developing a VBA program that will take rows of data from a worksheet and create Lotus Notes Calendar entries.
My code works fine until it wants to add a calendar entry dated in the past... at this time I get a pop up message on Notes saying "This entry is being created in the past.
Create anyway?" and an option to click yes or no..
how to either suppress the pop up or programatically supply a "YES".
View 9 Replies
View Related
May 15, 2009
I'm in the middle of creating an auto-mailer via Excel VBA (and got most of it working) but I've run across a small(ish) snag.
To save me about 3 hours work, I need to get the subject of the stationery, the "To" list, the "CC" list and the "BCC" list for every stationery (currently around 150).
Is there any way of getting VBA to read all the stationeries on our inbox (it's shared) and giving me the info I need?
View 9 Replies
View Related
May 27, 2009
I have yet to find ANY information online relating specifically to emailing any given range in Excel via Lotus Notes. The codes that do exist out there either fail to fully copy the range or relate to attaching an excel file into a Lotus Notes Memo.
Below I have copied the code the I am working with, but I keep getting the following error: Error # 438, Object doesn't support this property or method. After making some minor tweaks, it might then give me another error, Error 424 Object Required, but the range then doesn't copy into the Lotus Notes memo at that point.
I have highlighted the area that I think the code is failing at, that being the actual act of copying/pasting the range selected into the Lotus Notes Memo. With the current code, the selected range does get fully copied into a new memo in Lotus notes, but these errors populate in Excel.
Can anyone offer any suggestions to resolve this issue? I have spent hours on this and I'm sure there are many others out there that might be able to benefit from a solution as well.
Function LotusEmailQuote() ....
View 9 Replies
View Related
Aug 4, 2009
I'was given a piece of code to read through stationeries in Lotues Notes so I could quickly retrieve all the Sendto, CC and BCC information.
I'm now trying to modify that so I can check two specific folders in a mailbox and retrieve all the dates that e-mails have been received on.
Code is here:-
Sub new_reader()
Dim Maildb As Object, view As Object, Session As Object, entry As Object, entries As Object
Sheets("Sheet4").Select
counter = 2
Set Session = CreateObject("Notes.NotesSession")
Set Maildb = Session.GETDATABASE("servername", "boxname")
If Maildb.IsOpen = False Then
Maildb.OPENMAIL
End If
View 9 Replies
View Related