count and delete row
Dear Sir
We need your help
Each day we do thousand of sheets like as follow workdone.
We need to count the latest 15 records. For more than 15 records, we delete as
Yellow color row. That is the old record we need to delete. For less than 15 records,
We delete the yellow color row. After VBA code, The final result should be same as file named after. Attached pls find two file name before ,after
The vba code don’t work…pls help..many thanks
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For z = 1 To lastrow
If (Cells(z, ("c"))) = "" Then Cells(z, ("c")).EntireRow.Clear
Next z
Many Thanks
Tom
|