function COMPLETE (){
var p, endrow, Services, COMPLETE, oLastRow;
Set Services = ActiveWorkbook.Sheets("Services");
Set return ActiveWorkbook.Sheets("Complete");
endrow = Services.Range("A" + Services.Rows.Count).End(xlUp).Row;
for(p=endrow; p<=2; p++){
if(Services.Cells(p, "P").Value == "99" ){
Set oLastRow = Worksheets("Complete").ListObjects("Complete").ListRows.Add;
Services.Cells(p, "P").EntireRow.Copy;
oLastRow.Range.PasteSpecial xlPasteValues;
Services.Cells(p, "P").EntireRow.Delete;
}
}
}
برچسب:
نویسنده: آیلین رضوانی