Posts by Fluff13

Glad to help & thanks for the feedback.

Ok, how about

=LET(w,WORKDAY.INTL(A3-1,SEQUENCE(NETWORKDAYS.INTL(A3,MAX(A3:A100),"1111011")),"1111011"),c,COUNTIFS(A:A,">="&w,A:A,"<="&w+2),FILTER(CHOOSE({1,2,3},c,w,w+2),c=MAX(c)))

This will now work if the first date is a Friday, which it would ignore before.

How about

=LET(w,WORKDAY.INTL(A3,SEQUENCE(NETWORKDAYS.INTL(A3,A69,"1111011")),"1111011"),c,COUNTIFS(A:A,">="&w,A:A,"<="&w+2),FILTER(CHOOSE({1,2,3},c,w,w+2),c=MAX(c)))

You're welcome & thanks for the feedback.

How about

=LET(a,TEXT(SEQUENCE(366,,DATE(2020,1,1)),"m/d"),FILTER(a,ISNA(MATCH(a,TEXT(dateN,"m/d"),0))))

Glad to help & thanks for the feedback

Did you try my suggestion?

How about =AND(C5=MIN(C$5:C$22),COUNTIFS(C$5:C$22,C5)=1)

You're welcome & thanks for the feedback.

You need to double-up the quotes inside the formula like

Cells(LastRow + 6, "A").Formula = "=CONCATENATE(ROUND(DAYS(A" & LastRow + 5 & ",TODAY())/7,0),"" Weeks"")"

You're welcome & thanks for the feedback

Without the = sign the formula is treating the > as a comparison, so it's looking for anything that is greater than the text "7 Days"

But with the = sign it treats the > as text

If it's not working, can you supply a sample workbook

Try it like

=SUMIF(Sheet1!B2:B27,"=>7 Days", Sheet1!D2:D27)

You're formula is returning this array

{"71";"15";"54";"45";"57";"77";"78";"85";"50";"08";"81";"10";"08";"8"}

As you can see the final digit is repeated on it's own. Try

=MAX(FREQUENCY(0+MID(A2,ROW(INDIRECT("1:"&LEN(A2)-1)),2),0+MID(A2,ROW(INDIRECT("1:"&LEN(A2)-1)),2)))>=3

You're welcome & thanks for the feedback.

How about

Sub OGDuarte()
   Dim Page As String
   
   Page = InputBox("Enter Sheet Name")
   If Page = "" Then Exit Sub
   If Evaluate("isref('" & Page & "'!A1)") Then
      Sheets(Page).Activate
   Else
      MsgBox "Sheet " & Page & " does not exists"
   End If
End Sub

You're welcome & thanks for the feedback.

How about, in D2 copied down

=IF(A2=A3,"",SUMIFS(C:C,A:A,A2))

In the cmdEdit_Click() routine use

    Me.txtDate.Value = Format(Me.lstDatabase.List(Me.lstDatabase.ListIndex, 1), "mm/dd/yyyy")