Crear una lista personalizada mediante VBA

Anteriormente, vimos como crear listas personalizadas para crear una lista alfabética. Esta vez vamos a utilizar VBA para crear una sencilla subrutina que crea una lista personalizada con el rango seleccionado. Será particularmente útil si tenemos que crear varias listas, sin seguir la enrevesada ruta para hacerlo manualmente.

1. Escribimos el siguiente código en un módulo.

Sub Crear_lista_personalizada()
Application.AddCustomList Selection
End Sub

2. Seleccionamos el rango que compondrá los elementos de la lista.
3. Presionamos Alt+F8.
4. Seleccionamos Crear_lista_personalizada y clic sobre ejecutar.
5. La lista estará creada. Para usarla, escribimos en una celda un elemento de la misma y arrastramos el controlador de relleno.

Es importante señalar que el rango seleccionado debe de contener valores y no fórmulas. En caso contrario nos mostrará el error:

 

Entradas relacionadas:
Crear una lista alfabética automáticamente