Posts by eduboys

    Re: rounding to the nearest .25

    Probably inefficient, but you could do it with a formula...

    Lets say your number was in A1


    I'm running into a problem with a particular row when copying this information from one sheet to another. This has worked for the last month without a problem, but one particular cell broke it today, and I cannot determine why. Below is my VBScript.

    The cell that is breaking my macro is below (I removed actual text, but left all punctuation):

    Yada yada -

    1) Yada yada yada - yada yada 1

    2) Yada yada, yada yada yada. Yada yada 8 yada

    3) Yada yada - yada yada - Yada yada. yada yada 2

    4) Yada yada. yada - yada 1 yada 23 yada = 1, yada = yada. Yada yada

    In an attempt to optimize my macro, I want to set ranges equal to each other instead of copying and pasting values. Is this possible across 2 different worksheets?

    I cannot determine why this code segment is not currently working:

    Sheets("Open and Pending Issues").Range(Cells(1, 1), Cells(MyLastRow, 18)) = Sheets("All Issues").Range(Cells(1, 1), Cells(MyLastRow, 18)).Value

    If I substitute the following, the code works fine:

    Sheets("Open and Pending Issues").Range("A1:S331") = Sheets("All Issues").Range(Cells(1, 1), Cells(MyLastRow, 18)).Value

    Thanks in advance!

    Re: Variable Print Area

    Not sure how to search for the row of the last subtotal, but I know you need to set a range. In the example below you go to the bottom of all rows and select that range.

    Range(Selection, Selection.End(xlDown)).Name = "PrintRangeName"

    ActiveSheet.PageSetup.PrintArea = "$C$5:" & "PrintRangeName"