Buscar fin de la lista con espacios en blanco.

    Variación de la macro de buscando fin de la lista de nuestro curso.

        Public Sub FinalListaEspecial()
            While ActiveCell.Value <> "" Or ActiveCell.Offset(1, 0).Value <> ""
                ActiveCell.Offset(1, 0).Range("a1").Select
            Wend
        End Sub

Esta macro recorre toda una lista hasta encontrar el fin de la misma. Si encuentra un espacio en blanco lo salta considerandolo de la misma lista. Encuentra el fin de la misma si encuentra más de un espacio en blanco seguidos.

Macro enviada por: Petter.

Envianos tus macros y nosotros las publicaremos.

[INDICE LECCIONES]