appu_gusai
Member
hi all
i have this code, this code is working for delete a cell, but not a delete entire row, i want to delete entire row .....
thank in advances
i have this code, this code is working for delete a cell, but not a delete entire row, i want to delete entire row .....
Code:
Dim intA As Integer
Dim wrksht As Excel.Worksheet
With ActiveWorkbook.Worksheets("Stat")
Set wrksht = Application.Worksheets("Stat")
intA = 8
Do Until intA = Worksheets("Stat").UsedRange.Rows.Count
Select Case wrksht.Cells(intA, "C").Value
Case "", "Vacant (GP: 6600)", "Vacant (GP: 5400)", "Vacant (GP: 4600)", "Vacant (GP: 4400)", "Vacant (GP: 4200)", "Vacant (GP: 2800)", "Vacant (GP: 2400)", "Vacant (GP: 1900)", "Vacant (GP: 1650)", "Vacant (GP: 1400)"
wrksht.Rows(intA).EntireRow.Delete
Case Else
intA = intA + 1
End Select
Loop
End With
thank in advances