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...
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...
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 |...
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.
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...
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...
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...
Dickx, just found the following knowledgebase article which solves the restriction I mentioned above:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=365
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...
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"...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.