Yes Anil Sir,
I tried your code too. its fine working. Thank you.
Regards,
Chaya
On Thu, May 9, 2013 at 12:37 PM, Chaya wrote:
> Yes Anil Sir,
>
>I tried your code too. its fine working. Thank you.
>
>
> Regards,
>
> Chaya
>
>
> On Thu, May 9, 2013 at 12:31 PM, अनिल नारायण गवली >
Dear Chaya,
Use this.
Sub delete()
Dim cell, Searchrange As Range
Set Searchrange = ActiveSheet.Range("A1:K100")
For Each cell In Searchrange
If cell.Value = "Total" Then cell.EntireRow.delete
Next cell
End Sub
On Thu, May 9, 2013 at 12:17 PM, Chaya wrote:
> Thanks Abhishek , it is
Thanks Abhishek , it is perfect deleting all the row as per cireria.
Regards,
Chaya
On Thu, May 9, 2013 at 12:08 PM, Abhishek Jain wrote:
> Attached.
>
> On Thu, May 9, 2013 at 11:58 AM, Chaya wrote:
>
>> Dear Abhishek,
>>
>>I have a query for deleting entire row as per criteria basis. e