calculate salary problem

Please Login or Register  to view this content.

Using above code I would calculate salary for all the employee in sheet (“Earnings”). But when I execute the code it’s not work .I think the problem for calculate T.A only. The procedure for calculation of T.A is follows:

First check column 8 of Employee sheet( i.e Grade Pay) , if grade Pay is 1800 to 1900 then
Sheets("Earnings").cells(i, 10) = 900 + Round(900 * cells(4, 22), 0).
If grade pay 2000 to 4800 then
Sheets("Earnings").cells(i, 10) = 1800 + Round(1800 * cells(4, 22), 0)
If grade pay >= 5400 then
Sheets("Earnings").cells(i, 10) = 3600 + Round(3600 * cells(4, 22), 0)

Kindly help in this task.