محاسبه مرخصی

[Amir Ghasemiyan]

خدمت شما دوست عزیز

Sub ExcelIran()
code = Sheet7.Range("H31").Value
Range("report").ClearContents
Database = Range("database")
For i = 1 To UBound(Database)
    If Database(i, 1) = code Then
        q = Split(Database(i, 2), "/")
        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
            Sheet7.Cells(2 * M + 1, D + 2) = Database(i, 5)
        End If
    End If
Next i
End Sub

فرمت سلول های بخش گزارش در تب master رو بذارین رو number. فقط ردیف های مربوط به مرخصی های ساعتی رو

[mfr]

دست شما درد نکنه .. ممنونم