Posts by Ranger

    Re: Change Font Color Of Command Buttons


    Hi Dave,


    That's what I was trying to get at in my second post. If you guys don't have a problem with it happening, then there must be something wrong with my Excel 2000, or as you say maybe even the machine. Thanks again for your help.


    Bill

    Re: Change Font Colour Of Command Buttons


    Hi Dave,


    Thanks for the reply. I tried your suggestion (in the larger code, the Screen Updating was turned off) but it still takes 10 seconds on 2000. Maybe there is a problem with my Excel 2000, but other codes are working fine.


    Bill

    Hi All,


    I have this code for 10 Command Buttons to change the font colour. This is part of a much larger piece of code, but to simplify it, I am just using this code:


    In Excel 2003, this code works instantaneously, but I am trying to run the same code in Excel 2000 and it takes 10 seconds. Is there any way that I can speed this up in Excel 2000?


    The original file was created in Excel 2003, but I have created a new file in Excel 2000 with the 10 buttons on it and the code and it still takes 10 seconds.


    Thanks for any help.


    Bill

    Hi All,


    I have a chart which has Autoshapes linked to other cells in the spreadsheet above each bar on the chart. Is there any way of making them dynamic, so that if the value of the bar changes, the Autoshape will move up or down with that bar?


    Bill

    Re: Deny Access To 'right-click' Attributes


    Hi KJ,


    Thanks for the reply. Those were not the two original statements on the post. They were edited, but I had used the code and my machine crashed shortly afterwards (not because of the code) and I had not saved the file. I just need the original code before the post was edited.


    Bill

    Re: Deny Access To 'right-click' Attributes


    Hi DerbyNeal,


    Can you please tell me the original 2 command bars in your post?


    I have used the code in the post and you have removed it since then. I now cannot access the right click events for those bars.


    Bill

    Re: Vba Code To Count Rows


    Hi Martin,


    When I filter Column AG and there are only 2 meeting the criteria, then your code


    Code
    lngRowsProject = Columns("AG:AG").SpecialCells(xlVisible).Rows.Count


    gives me the correct answer of 2.


    Bill

    Re: Tiered Fee Calculator


    Hi Broady,


    Have a look at the attached worksheet. I have used a table for the charges in cells A2:B4. I have then used a Named Formula for the Charge, called 'Charge'. It means that you can type a value anywhere in the Spreadsheet and one cell to the right type =charge and it will give you the charge for that value.


    Bill

    Re: Insert Cell On Condition And Move Right


    Hi Koen,


    The following code should do it.


    Code
    Sub Replace()
        Dim lRow As Long
        lRow = Range("A65536").End(xlUp).Row
        For i = 2 To lRow
            If Range("I" & i).Value = "" Then
                Range(Range("G" & i), Range("I" & i)).Value = Range(Range("F" & i), Range("H" & i)).Value
                Range("F" & i).Value = 0
            End If
        Next i
    End Sub


    Bill

    Re: Cell Formating


    Hi anandbhora,
    [code]
    Sub FormatCells()
    Dim iRow As Long
    iRow = Range("C65536").End(xlUp).Row
    Range("C2:C" & iRow).Select
    Selection.NumberFormat = "$#,##0.00"
    End Sub
    [/end code]


    Bill


    EDIT: Sorry, misread the question. Please disregard this post.


    Bill

    Re: Ungroup Rows On Cell Click?


    Hi Financial Host,


    the line:

    Code
    Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(12), _


    in the code contains the headers in the Array, so if your data only has 5 columns, change the Array(12) to Array(5) or however many columns you have.


    There is no other reason why it should not work.


    Bill