Posts by Fluff13

Another option if you have xl365

=TOCOL(B2:F17,1,1)

Kitap2.xlsx

Glad you sorted it & thanks for letting us know.

You need to change the name of the variable you have called "c" either that or change the formula to use range references rather than R1C1 notation

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