shan
11-30-2015, 09:16 PM
Hello Everybody,
I have a macro which is filtering data on Yellow color and deleting the rows... but the problem is that if there are no yellow rows, code is deleting all the rows available.
Can anybody suggest a solution that if after filter yellow rows are available then delete else remove filter.
Code I have:
ActiveSheet.UsedRange.AutoFilter Field:=8, Criteria1:=RGB(255, _
255, 0), Operator:=xlFilterCellColor
Application.DisplayAlerts = False
ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
Application.DisplayAlerts = True
ActiveSheet.ShowAllData
Thanks
Regards,
Shan
I have a macro which is filtering data on Yellow color and deleting the rows... but the problem is that if there are no yellow rows, code is deleting all the rows available.
Can anybody suggest a solution that if after filter yellow rows are available then delete else remove filter.
Code I have:
ActiveSheet.UsedRange.AutoFilter Field:=8, Criteria1:=RGB(255, _
255, 0), Operator:=xlFilterCellColor
Application.DisplayAlerts = False
ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
Application.DisplayAlerts = True
ActiveSheet.ShowAllData
Thanks
Regards,
Shan