נסיון שורת רווח בין שני פונקציות בקוד VBA . . .‏

[מיכאל אבידן]

נסיון שורת רווח בין שני פונקציות בקוד VBA . . .‏

Function Is_date(CL As Range)
    Is_date = IsDate(CL)
End Function

Function Days_in_Month2(Mon)
    LR = Cells(Rows.Count, 4).End(xlUp).Row
    For R = 143 To LR
          For D = Cells(R, 5) To Cells(R, 6)
                If Month(D) = Mon Then Days_in_Month2 = Days_in_Month2 + 1
          Next
    Next
End Function