En esta lección continuaremos con las macros que nos permiten movernos por nuestro documento.

Buscar una entrada en una lista y borrar toda la fila: vamos a imaginar que tenemos una tabla de datos en la cual nos interesa buscar un elemento determinado y borrar todos los datos que hay en la misma fila. Pongamos el caso que tenemos una tabla con nombre, población y teléfono y deseamos buscar todos los datos de una población determinada y borrar el nombre y la población Para hacer la búsqueda deberemos situarnos en la fila que se encuentra la población.

      Sub BorrarFilas()

         While ActiveCell.Value <> ""

            If ActiveCell.Value <> "Barcelona" Then

               ActiveCell.Offset(1, 0).Range("A1").Select

            Else

               Selection.EntireRow.Delete

            End If

         Wend

      End Sub

Es importante hacer notar que si ejecutamos esta Macro no se podrá deshacer el borrado de las filas que se han eliminado con la Macro.

Buscar el final de una lista con espacios en blanco dentro de ella: imaginemos que tenemos una lista de datos dentro de la que hay espacios en blanco, como mucho un espacio en blanco entre dato y dato. Si utilizásemos la primera macro que hemos creado esta interpretaría como final de la lista el primer espacio en blanco que encontrara. Realizaremos una macro que interpretará el final de la lista cuando encuentre 2 espacios en blanco seguidos.

      Sub FinalListaEspecial()

         Salir = "No"

         While Salir = "No"

            While ActiveCell.Value <> ""

               ActiveCell.Offset(1, 0).Range("A1").Select

            Wend

            ActiveCell.Offset(1, 0).Range("A1").Select

            If ActiveCell.Value <> "" Then

               Salir = "No"

            Else

               Salir = "Si"

            End If

         Wend

      End Sub