It's done in the xml files within the excel file for anyone else trying to do this.
Just rename from .xlsx to .zip, unzip, add a customUI folder and then enter a line in the _rels xml to point at it. Rezip and rename and it'll be there.
I have it working on a workbook but have to test on an...
Hmm, I've seen an addin that once added will auto appear in an Addin ribbon although that seemed to be a more form based macro, so I think it can be done I just don't know how they've done it.
I shall keep trying.
Hi,
Any tips on the best way to roll these out to a team?
I have an xlam with a small number of macros in them. It's just been myself using them and I have just used add ins, tick the box, create custom ribbon, add each macro in individualy etc.
There must be an easier way for this I'm...
A beer it is :)
Is WEEKNUM a function that can be used in vba? I'm trying to use it something like:
numRows = ActiveCell.CurrentRegion.Rows.Count
For r = 2 To numRows
strVar = Worksheets("Var Sheet").Cells(r, 9).Value
If strVar = "WeekNum(9, 1) - WeekNum(TODAY(), 1) = 0"...
Ahhhh, and now the penny drops.
Nothing stronger than orange juice for me on a schoolnight ;)
That's perfect for what I want, thank you JB. I'm owe you an orange juice :)
It might be the time of night here but I'm not quite following you.
If I have a column beside the date column and put:
=IF(WEEKNUM(I2,1)-WEEKNUM(TODAY(),1),"True","False")
I get the following:
02-Apr-12 True
14-Mar-12 True
20-Mar-12 True
21-Feb-12 True
06-Feb-12 True
05-Mar-12 True...
Hi,
Can anyone give me any pointers on how I can find if a date is either in this week, next week, beyond next week, last week or beyond last week?
I keep wanting to use something like =if(r ,9) = weeknum then do something but that isn't doing it. I've tried putting it as an if formula in a...
Hi,
I am trying to incorporate a line into a macro, the line should pull info from a cell which contains a file name. The filename will always be numbers.extension so for example 12345.txt, I have to pull the numbers only.
I can think of 2 ways but wondering if there’s a ‘neater’ way to do...
I believe I found it
Change Other:=False, FieldInfo:=Array(1, 3), TrailingMinusNumbers:=True
to
Other:=False, FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True
Hi
I am trying to format a column of numbers, an example being:
03/11/2012 to change to 11-Mar-12
02/21/2012 to change to 21-Feb-12
When trying to format the orignal column they wont budge, I have been able to get them to the format I want by using
Data>Text To...
Hi Chippy,
The link seems to break in the middle, might need a copy and paste
<https://skydrive.live.com/redir.aspx?cid=b81cfd1b7bf7bb2c&resid=B81CFD1B7BF7BB2C!217&parid=B81CFD1B7BF7BB2C!195&authkey=!AOSA4wp7N7K-Q50>
*Edit: yup, breaks at the ! and enclosing it in <>...
Sorry if I have the terminology incorrect, I assume table 1 in the example at the following link to be a matrix;
https://skydrive.live.com/redir.aspx?cid=b81cfd1b7bf7bb2c&resid=B81CFD1B7BF7BB2C!217&parid=B81CFD1B7BF7BB2C!195&authkey=!AOSA4wp7N7K-Q50
What I would like to do is convert that...
Hi Luke,
That was still counting the formulas but modified it to
=COUNTA(C$2:C$162)-COUNTIF(C$2:C$162,"")
And that seems to have done the job for me.
Thankyou! :)
Hi,
If I have a column of say 10 rows all of which contain a formula, 5 of which have TEXT values returned can I total those which just return the text? If I use counta it is counting the formulas as well.
Thanks.
JB!
That looks great. Very much appreciated.
Sorry for the delay, I was getting errors on it on the machine at work, 2k3 doesn't like
If Application.WorksheetFunction.NetworkDays(Int(Now()), CDate(rngRTO.Cells(I, 1).Value)) <= 5 And _
rngSta.Cells(I, 1).Value <> "Returned"...
Thanks JB,
I had a quick look at it last night and it looked good, seemed to do exactly what was needed on the tab though the colour formatting on the cells within seemed to have changed. Not sure if that was the code or not.
Meant to have a look at it closer at work today but I'm unable to...
Thank you JB, much appreciated.
The combinations would be:
• If there is a date anywhere within the ‘Last Working Day’ column that equals today or is before today then the Tab colour should be Red, unless what is in the Status Column for that row show’s either ‘Locked’ or ‘Returned’. This...
Hi JB,
Thanks for that. 3 weeks ago I did not have one formula in my inventory so trying to get a grasp on this is a bit far. I thought I could do it with an adaptation of
Private Sub Worksheet_Calculate()
If Range("D6").Value = "" Then
Me.Tab.ColorIndex = -4142 ' No Color
Else...