Apoyo macro sencilla

[leonelcuenca]

Tengo una macro que filtra por la columna trece todos las celdas que estén en blanco y las elimina, necesito que cuando en la columna trece no hayan celdas en blanco la macro se finalice es decir se deje de ejecutar

Posdata: si tu tienen alguna macro que filtre una columna según un criterio y elimine los resultados y que cuando ese criterio no se cumpla se deje de ejecutar sería perfecto que me la enviarás a ver si es mas sencilla que la que yo hice

 

[leonelcuenca]

Sub auto_open1()
'
' 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

 

[VoG]

Duplicate http://www.mrexcel.com/forum/excel-questions/812042-help-simple-macro.html

Please do not post the same question multiple times (even in different sections of the forum). All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #9 here: Forum Rules).