Si celda esta Vacia No ejecutar macro

[elvago07]

Buen dia!

Tengo esta inquietud..

Tengo esta formula

Sub ordenarfiltro()

    Sheets("Mantenimiento").Activate
    Range("a2").Select
    Range("A2:J2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("a3"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub

Ahora yo quiero que si la celda "A2" esta vacia, la macro no corra. Osea que no pase nada..
eso es para el caso de que aun no se hayan llenado valores en la tabla.
 

Simplemente eso..

 

Gracias!!

[Mauricio_ODN]

Prueba

Sub ordenarfiltro()

Sheets("Mantenimiento").Activate
Range("A2").Select

If Range("A2").Value = 0 Or Range("A2").Value = "" Or Range("A2").Value = Empty Then

Exit Sub

Else
Range("A2:J2").Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Sort Key1:=Range("a3"),Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End If

End Sub

 

Saludos!!

[elvago07]

Excelente!!! Funciono perfecto!

Muchísimas gracias!!!

 

 

Tema cerrado!