Recent content by xld

Suzanne, A couple of points first. You are using SUM unnecessarily a lot. SUM is only needed if you are addig things, not in every arithmetic operation. For instance you use =SUM(TODAY()-[@[Hire Date]])/365 whereas you would only need =(TODAY()-[@[Hire Date]])/365 and you certainly don't...

Try =--SUMPRODUCT(--(A3:K3<$A$2:$K$2))=COUNTA($A$2:$K$2)

Write yourself a UDF Public Function Conc(rng As Range, Optional delim As String = ",") Dim cell As Range For Each cell In rng Conc = Conc & cell.Value & delim Next cell Conc = Left(Conc, Len(Conc) - 1) End Function`

Try this alternative =SUMPRODUCT(COUNTIFS(Audits!$B$2:$B$179,{"Tech*","Temp*"},Audits!$F$2:$F$179,Plan!ProductCategory))

This should do it for you =SUMPRODUCT(--((ISNUMBER(SEARCH("FRND",Q3Answrs)))+(ISNUMBER(SEARCH("COMMUN",Q3Answrs)))>0))

Try deleting the sheet with that name before the rename, wrap it with OnError in case it doesn't exist.

It is all explained in Help. If reference refers to a multi-area range, you can specify which area withing the range that you find the intersect for For example =INDEX((A1:C6, A8:C11), 2, 2, 2) Looks at row 2, column 2 of the area A8:C11, that is B9. Can't say I have ever needed to use...

Public Sub ProcessData() Dim Lastrow As Long Dim i As Long Dim cell As Range Application.ScreenUpdating = False With ActiveSheet Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = Lastrow To 2 Step -1 If .Cells(i, "B").Value2 = "" Then .Cells(i...

Use COUNTIFS =COUNTIFS(name_range,"somebody's name",attendance_range,"Absent")

If VLOOKUP works, why do you want to use OFFSET and MATCH?

Assuming that the dates are in A1:L1, I think you need =SUM(INDEX(A:L,0,MONTH(TODAY())))-INDEX(A1:L1,MONTH(TODAY())) adjust if your ranges are different.

Use =MIN(8,SUM(A2:C2)) and =SUM(A2:C2)-D2

Off the top With Activesheet lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To lastrow If .Cells(i, "B").Value < Now() Then .Cells(i, "A").Interior.Colorindex = 3 End If Next i End With

Not sure, but try this Private nTime As Double Sub time() If nTime <> 0 Then Application.OnTime nTime, "timecall", , False nTime = Now + TimeValue("00:01:00") Application.OnTime nTime, "timecall" End Sub Sub timecall() Dim ticker As Integer Dim check As Integer...

Try this macro Public Sub ProcessData() Dim lastrow As Long Dim lastcol As Long Dim endcol As Long Dim i As Long, ii As Long Application.ScreenUpdating = False With ActiveSheet lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("A1:E1").Resize(lastrow).Copy...