help with simple macro

[leonelcuenca]

i created a macro that filters on column 13 all cells with blanks and delete them, i need that when the filters shows no result the macro stops


PD: if someone can show me a macro that do this faster than mine ill be really appreciated. The idea of the macro is: filter values on column x with the criteria x and delete the results and when the result is nothing the macro stops..

THANKS A LOT GUYS!

 

[mrmmickle1]

Please post a sample of your current macro and it will be easier for someone to assist you.

 

[leonelcuenca]

Sub auto_open()
'
' auto_op Macro


Application.ScreenUpdating = False
Range("A1:P1").Select
Selection.AutoFilter
If Range("a2") = "" Then GoTo finish:
strCriterio = ""
Selection.AutoFilter Field:=13, Criteria1:=strCriterio
filaIni = ActiveSheet.UsedRange.Row + 1
filafin = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
If Range("m:m") = "" Then GoTo finalizar:
strRango = CStr(filaIni) + ":" + CStr(filafin)
Rows(strRango).Select
Selection.Delete
Range("A1:P1").Select
Selection.AutoFilter
Selection.AutoFilter
finish:
Application.ScreenUpdating = True
End Sub

 

[royUK]

maybe

Option Explicit
Option Explicit
Sub Deleteblanks()
   On Error GoTo err_alert
     Range("A2").CurrentRegion.Columns(13).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
err_alert:
  MsgBox "No suitable rows found to delete", vbCritical, "Finished"
End Sub

 

[leonelcuenca]

Excelent BRO! thanks a lot! you can close this post as solved you rock!

 

[royUK]

Glad to help.