Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by GeekGirlau

  1. GeekGirlau

    Word Template Add-In Not Firing

    I have a template add-in in the startup path for MS Word 2003 (SP3). If I have a user with Outlook set to use Word as the email editor, this affects the template add-in for Word. If Outlook is loaded first, followed by Word, the template code does not fire. However it works correctly if Word...
  2. GeekGirlau

    Excel - show Webpage name

    You probably need to recalculate those cells in order to refresh (one of the down-sides of a custom function).
  3. GeekGirlau

    Excel - show Webpage name

    No, should be fine for just a single cell. Maybe try it first on another example. Start a new workbook and copy and paste the code into it. In cell A1, type the word "Test". In cell A1 again, press Ctrl+K to create a hyperlink, and enter a valid web address in the Address section. In cell B1...
  4. GeekGirlau

    Excel - show Webpage name

    Your formula should be "=GetLink(cell)", where cell is the cell address containing the hyperlink.
  5. GeekGirlau

    Excel - show Webpage name

    Where did you paste the code? * Open your workbook * Press Alt-F11 to go to the VBE window * Make sure the Project Explorer is displayed down the left - you should see "VBAProject (YourWorkbook)". If not, select View | Project Explorer * Insert a module into your workbook by selecting Insert |...
  6. GeekGirlau

    Excel - show Webpage name

    Create a function in the VBE window of your workbook as follows: Public Function GetLink(rng As Range) GetLink = rng.Hyperlinks(1).Address End Function In your worksheet, your formula would be "=GetLink(A1)", assuming that cell A1 contains the link.
  7. GeekGirlau

    Access Form Question - Freeze Part of Form

    Put any controls you want "frozen" in the form header.
  8. GeekGirlau

    make a cell show blank or empty instead of #DIV/0!

    If you don't want zeros to appear, select Format | Cell | Number. Change Category to "Custom" and enter your format. The way the number formats work is you specify a format for positive numbers, a format for negative numbers, and a format for zero (there's probably more, but this covers the...
  9. GeekGirlau

    Excel Error Checking

    Also, you don't need to select the cell before clearing the contents.
  10. GeekGirlau

    SumProduct with Wildcard

    I ended up creating a calculation workbook (actually 3 of them due to file size) using SUMPRODUCT, then DSUM on the report to consolidate the results and allow the required flexibility. The workbooks are set to manual calculation so changing the criteria on the report calculates the active sheet...
  11. GeekGirlau

    OLKXP - Custom Calendar Color Label

    Did you find the solution for this? I'm looking to do the same thing!
  12. GeekGirlau

    Huge Increase in Excel File Size

    Hi Neil, Nope, already tried this one. I was eventually able to work around the problem by copying all cells in the sheet, pasting into a new workbook and saving the file. In fact my code now tests the file size and performs this procedure when the file size of the template exceeds 1MB. The...
  13. GeekGirlau

    Excel Auto Filter

    Dickx, just found the following knowledgebase article which solves the restriction I mentioned above: http://www.vbaexpress.com/kb/getarticle.php?kb_id=365
  14. GeekGirlau

    Excel Auto Filter

    Copy the following code to the worksheet Selection Change event. Dim rng As Range If ActiveSheet.AutoFilterMode = True Then For Each rng In Range("A1", Range("A1").End(xlToRight)) With ActiveSheet.AutoFilter.Filters(rng.Column) If .On Then...
  15. GeekGirlau

    "Fit to Page" Does Not Work

    I came across the same problem, but in a worksheet being formatted via VBA. The number of columns is dynamic, so setting a specific value doesn't work. However so far the following has been successful: ' page setup With ActiveSheet.PageSetup .PrintTitleRows = "$1:$2"...

Part and Inventory Search

Back
Top