Posts by braune423

    Re: Create Multiple Buttons All Assigned To Macro Code


    Bill:


    I apologize for the confusion, but I did explain my problem in more detail in the original post. I'm not familiar with the activecell approach, but my idea is to make my spreadsheet as user friendly as possible. I want the user to be able to check the box and upon doing so, a macro would run to automatically copy and paste the values of the cells in the row in which the check box is situated. I need to run a macro first though to create a lot of these checkboxes (over 500). The primary purpose of the checkbox (as far as the user would be concerned) would be to represent whether a particular condominium is under contract or not. I hope this adds some clarity to my question. Thanks.

    I'd like to write a macro to create buttons with the caption "Fix" in over 300 cells. Furthermore, I would like each button, when pressed to run a macro that would copy and paste the values (paste special) of the entire row in which the button is situated as well as copy and "paste special" the values in the fixed cells $J$2, $K$2,$L$2, and $M$2. I've attached a file to clarify what I'm sure is an extremely convaluted statement of my problem. I'm not even sure where to begin. THanks!

    Re: Chart Blank When Printed


    I tried doing that, but ran into a problem: Since the Y values starting in DEC 09 are so much lower, the new chart is on a different scale. Is there a way to scale it so that the Y axis is the same on both charts?

    I have an embedded chart in one of my worksheets. In Normal View, everything appears fine. In the print preview window, and also when I print, The chart is showing up/printing blank. Any ideas? Thanks!


    P.S. I tried to upload the sheet, but it exceeds the forum's size limit.

    Is there a way to display a msg box while a macro is running? For instance:
    One that says "...working" and then when the macro is done running it says, "done!"

    Re: Infinite Do Loop


    Hi Andy,


    The data in H77 and H78 are numbers. Could you give me an example of the for next code you were talking about? Sorry, I'm a bit of a newbie. Thanks.

    I created a macro that runs a loop until it sets two cells equal to each other, subject to some constraints. then it is supposed to stop. For some reason it seems to be going on forever. Can someone help? Here is my code:


    Do
    SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.01, AssumeLinear:= _
    False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
    IntTolerance:=5, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=False
    SolverOk SetCell:="$H$73", MaxMinVal:=2, ValueOf:="0", ByChange:= _
    "$H$73,$H$75,$H$78"
    SolverAdd CellRef:="$H$73", Relation:=2, FormulaText:="$D$73"
    SolverAdd CellRef:="$H$75", Relation:=2, FormulaText:="$D$75"
    SolverAdd CellRef:="$H$78", Relation:=2, FormulaText:="$H$77"
    SolverOk SetCell:="$H$73", MaxMinVal:=2, ValueOf:="0", ByChange:= _
    "$H$73,$H$75,$H$78"
    SolverSolve Userfinish:=True
    Loop Until Range("h77") = Range("H78")


    thanks

    right now I am using a form to enter data into a worksheet. I have the following code attached to a command button labeled add:


    ActiveWorksheet.Select
    Range("A1").Value = Textbox1.Value


    How can I get the value of textbox1 to adhere to the formatting of Cell A1 on the worksheet when the user clicks the add button?

    I was wondering if there is a way to write a macro that would start with a cell, lets say A1, and determine if there is data in the cell. If there is not the macro is over. If there is, it adds a listbox Item to a userForm with the label equal to the Value in cell (A1). Here is the tricky part: After adding the listbox item, it skips down 3 Rows to cell (A4) and repeats the process. This process is then looped (checking for data, adding a listbox item if there is, and then moving down 3 Rows to check the next cell (I would assume using the offset function somehow) until it finds an empty cell and stops. (A1,A4,A7........etc.)