باز هم مشکل در محاسبه ساعت مرخصی

[Amir Ghasemiyan]

بسیار بسیار ممنونم ... آیا میشود کاری کرد که کارتکس master بر اساس data فیلتر شده عمل کنه ... مثلا توی data اردیبهشت رو فیلتر کنیم و توی master فقط اردیبهشت محاسبه بشه

Sub ExcelIran()
code = Sheet7.Range("H31").Value
Range("report").ClearContents
Set Database = Range("database")
For i = 1 To Database.Rows.Count
    If Database(i, 1) = code And Database(i, 1).Rows.Hidden = False Then
        q = Split(Database(i, 2).Value, "/")
        Y = q(0)
        m = q(1)
        D = q(2)
        If Database(i, 6) = ChrW(1585) & ChrW(1608) & ChrW(1586) & ChrW(1575) & ChrW(1606) & ChrW(1607) Then
            Sheet7.Cells(2 * m, D + 2) = 1
        Else
            If Sheet7.Cells(2 * m + 1, D + 2) > 0 Then
                Sheet7.Cells(2 * m + 1, D + 2) = sumhour(Time_To_Second(Database(i, 5).Value), Time_To_Second(Sheet7.Cells(2 * m + 1, D + 2)))
            Else
                Sheet7.Cells(2 * m + 1, D + 2) = Database(i, 5)
        End If
    End If
     End If
Next i
End Sub


Function sumhour(first, second)
Dim f As Integer, s As Integer, sums As Integer, hour As Integer, minute As Integer
sums = first + second
hour = Int(sums / 60)
minute = sums Mod 60
sumhour = hour + minute / 100
End Function