Ordenar y Eliminar Filas

[juanigto]

Hola ,

Adjunto un archivo sencillo( el original tiene miles de lineas).

He buscado pero no entiendo algunas lineas de codigo , como para poder replicarlas en mi archivo.

Son dos cosas las que necesito realizar.

1)ordenar alfabeticamente los nombres de los equipos

2) eliminar las filas que dicen "NO" en la columna de visita

Desde ya muchas gracias por su ayuda!

 

Saludos

 

Codigo Torneo.xlsm

[Dr Hyde]

Checa el archivo

Codigo Torneo.xlsm

[Antoni]

Sin ver la solución del amigo Dr Hyde te dejo la mía:

Sub BorrarOrdenar()
   Application.ScreenUpdating = False
   With ActiveSheet
      .Columns("D").AutoFilter Field:=1, Criteria1:="NO"
      .Range("A2:E" & .Range("A" & Rows.Count).End(xlUp).Row) _
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .Columns("D").AutoFilter
      .UsedRange.Sort Key1:=.Columns("B"), Header:=xlGuess
   End With
End Sub