Help! Some bright spark is moving our server and we have to change any UNC references (//Server name/path.....) to 'drive letters' 'G:\Path.....'.
I've inherited a suite of db's which have UNC's all over the place (modules, forms, you name it, its got it).
Does anyone have a (relatively) easy...
It may be that because the ComboBox has the focus VBA can't recognise the sheets. If so, the easiest way around it is to start the ComboBox_Change() subroutine with Range("A1").Activate (or any other cell) to remove the focus from the ComboBox. Store300
Store300@ftnetwork.com
The password can, as with all passwords, be broken and there are packages to do this however there's not a lot more you can do and it does require some effort to break them. Its not something that somebody would be able to break in the everyday run of things. Store300
Store300@ftnetwork.com
You can automate the Data>Subtotal function with
[MyRange].Subtotal GroupBy:=[Column to Subtotal on (e.g. 1), Function:=xlSum, TotalList:=[Columns to Subtotal e.g. Array(2, 3, 4)], Replace:=True, PageBreaks:=False, SummaryBelowData:=True Store300
Store300@ftnetwork.com
Roy,
Strangely enough Excel doesn't allow for simply adding body text to an email. I tend to use Access if I want to do this (why Access can and Excel can't is anyone's guess I'm afraid). Store300
Store300@ftnetwork.com
Workbook([MyWorkbook]).Open filename:=[MyName], UpdateLinks :=0(or 1,2 or 3)
Value Meaning
0 Doesn't update any references
1 Updates external references but not remote references
2 Updates remote references but not external references
3 Updates both remote and external references Store300...
The only drawback with that is that is will overwrite any values inbetween the formulae but if that isn't a problem then pjm's method is a darn sight easier. :) Store300
Store300@ftnetwork.com
It is possible through a VBA Macro:
The macro below will run through whichever range you set as [MyRange] e.g."A1:A20" & paste the formulae into column B
Sub PasteOnlyFormulae()
For each x in range([MyRange]).cells
CurrRow = x.row
Target = "B" & CurrRow
if x.HasFormula...
Alternatively you can use:
MySearch = [MyPath] & "\*.txt"
Found = Dir(MySearch)
Do While Found <> ""
Workbooks.open filename:=found
Found = Dir
Loop
Store300
Store300@ftnetwork.com
Ok, this is getting desperate.
Does anyone know of a way of deleting Excel Links between workbooks?
Preferably through VBA but right now I'll settle for manually hunting the little darling down.
All suggestions gratefully received. :( Store300
Store300@ftnetwork.com
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.