@one1010 הקוד הזה עובד לך?
Sub SumYellowCells()
Dim rng As Range
Dim cell As Range
Dim sum As Double
Set rng = Range("A7:AG355")
For i = 1 To rng.Count
If rng.Cells(i).Interior.Color = RGB(255, 255, 0) Then
If rng.Cells(i).HasFormula = False Then
If InStr(1, rng.Cells(i).Formula, "SUM(") = 0 Then
sum = sum + rng.Cells(i).Value
End If
End If
End If
Next i
MsgBox "The sum of yellow cells that are not circular references is: " & sum
End Sub
הוא אמור לעבור בלולאה על כל התאים בצבע צהוב (בטווח שבין A7 לAG355) ולסכם אותם (בתנאי שהם לא נוסחה ולא סיכום).
משום מה נראה לי שהקוד שהבאת בתחילת השרשור לא קשור לקוד שאתה צריך...
הקוד ההוא עובר בלולאה (בשביל לבדוק כמה תאים חייבת להיות לולאה שעוברת עליהם) ואם הוא מוצא שלושה תאים עם אותו תאריך הוא מקפיץ הודעה, וכן אם הוא מוצא שלושה תאריכים שיש ביניהם אותו הבדל של ימים גם כן מקפיץ הודעה.
איך זה קשור לקוד שהבאת מקודם שמסכם את כל התאים בצהוב?
@one1010 כתב במאקרו רץ בלולאה:
וגם 15 בראשון 16 בשני ו17 בשלישי
נראה לי שבשביל זה אתה צריך משהו יותר מתוחכם ממה שאני יודע....