Posts by Imbuzi

    Hi All

    I am a bit stuck on this one. I have a vba script that completes a filesearch and I would like to add a hyperlink to the files that are found in the search. I have managed to produce a hyperlink by inserting a formula via vba. This is not a very efficient way of producing a hyperlink. Is there another way that I could produce hyperlink.

    Graeme :rolleyes:

    Hi Jack

    I use comboboxes alot at work. the approach that I take is to have a parameter sheet that has all of the details that I need for the combobox.

    This approach is quite good if you need users to update the lists themselves.

    Have a look at the attached file this might help.



    this code might be of use to you. I have this saved in my personal.xls and it is attached to a button on one of my toolbars.

    Sub UpdateFooter()
    ActiveSheet.PageSetup.LeftFooter = _
    End Sub



    from the data that you copied into excel it looks like your data is coming from a mainframe application. if this is the case then you should be able to get at the data using SQL. The output could then be imported into excel.

    Hi Jhenderson,

    I'm not sure why you are getting a circular reference but this is how i would tackle a totals page.
    add this to your totals sheet

    then change sheet names to the first and last sheet name of the sheets that you want to total, also change the cell reference accordingly

    Hope this helps


    I have written the code below to add the paste values function to the cell command bars. The only problem is that it works in Excel XP but when I try using it in '97 I get a Range object runtime error. Any suggestions???

    Sub AddItemToShortcut()

    Set NewItem = CommandBars("cell").Controls.Add
    With NewItem
    .Caption = "Paste Values"
    .FaceId = 370
    .OnAction = "PasteValue"
    .BeginGroup = True
    End With
    End Sub

    Sub RemoveItem()
    On Error Resume Next
    CommandBars("cell").Controls("Paste Values").Delete
    End Sub

    Sub PasteValue()
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    End Sub