Search:

You can't specify the font size for the combo box from the Forms toolbar, the only way to increase the font size is to increase the zoom percentage for the worksheet.
Actualy, in Excel 2004, one can...

perhaps

SalesmansDiscount = MIN(totalDiscount/2, .05)

CompanyDiscount = totalDiscount - SalesmansDiscount

You might also try TextToColumns, setting format General in the last dialog screen, to do a quick conversion from text to number.

http://en.wikipedia.org/wiki/Greedy_algorithm

Both Advanced Filter and the database functions (e.g. DSUM) treat naked text (e.g. "Cat") in the criteria fields as if there were wildcards.
"Cat" returns the same as "=Cat*".

I suspect that it...

You could make ws1 and ws2 functions rather than variables.

Try formatting the column with the custom format "123"@
(quotes included)

I don't have 2007 so this is untested. It looks like the dates in A4:A20 are Excel serial dates, rather than the text that formula is testing against....

The formula =SUMIF(C:C,1,H:H) will return the total Profit Sharing for group 1.

This form handles a range that starts after column A.

{=MAX((myRange="B")*COLUMN(myRange)) - (COLUMN(myRange)-1)}

I couldn't convert your workbook. However,

If you wanted SUMIF(A1:A10, "x", B1:B10) to be restricted to the visible rows only, you could create a helper column C, where C1 = SUBTOTAL(109,B1) and...

Perhaps something like
<pre>Private Sub ListBox1_Click()
With Me.ListBox1
If .ListIndex = 1 Then .ListIndex = 3
End With
End Sub</pre>

=Trim(Split(myVar,"(")(0))

Enter numbers from 0-1 in column B of the attached or change the current values.

=IF(SUMPRODUCT(--(A1:A1000="Smith"),--(B1:B1000="H2014"))*SUMPRODUCT(--(A1:A1000="Smith"),--(B1:B1000="H2015"))<>0,"Duplicate","All same")

If SERV is a variable,

With WW.Columns("O:O")
Set Found_Index = .Cells(Application.Match(SERV & "*", .Cells, 0), 1)
End With

If "SERV" is the string you want to match,

With...

=VLOOKUP(A1,{"None",0;"Heat",1;"Melt",2;"Growth",3;"Anneal",4;"Cool",5;"E_cool",6},2,FALSE)

This works for me
Userform1.Label1.BackColor = Range("A1").Interior.Color

The first array in LOOKUP has to be sorted ascending. Try

=LOOKUP(A1,{"Anneal","Cool","E_cool","Heat","Melt","None"},{3,1,0,4,5,6})

The unqualified Cells in the line
Set oscell = Cells.Find(k, , , , , xlNextTrue)
references the Active Sheet. Adding a dot
Set oscell = <font color=red> <big>.</big> </font color=red>...

If you have ModelA etc in column A and 2;0;1 in column B,
Selecting three cells in a column and entering the array formula

=INDEX(A:A,SMALL(IF(B1:B3<>0,ROW(B1:B3),999),ROW(Z1:Z3)),1)&""
...

VBA is not nessesary
=SUBSTITUTE(MID(A6,FIND(CHAR(5),SUBSTITUTE(A6&"","",CHAR(5),MAX(1,LEN(A6)-LEN(SUBSTITUTE(A6,"",""))-1))),255),"","")

You might make an Excel>Options>Custom List of the headers in the order that you want.
Then sort (left to right) on that custom list.

<pre>Sub test()

With ThisWorkbook.Sheets("Sheet1"): Rem adjust

With Range(.Cells(2, 1), .Cells(.Rows.Count, 12).End(xlUp))

Rem sort by column L
.Sort...

I keep my generally useful macros in my Personal Macro Workbook.
To distribute them, I'd send a workbook with them in it to my co-workers and let them choose the macros that they find useful.
An...