Voy a imaginar que quieres todo en hojas aparte apara que sea fácil de tener los datos en orden y que no se manipule la información:
Nombres de las hojas en el libro de Excel:
shtListas
: aquí ponemos nuestra(s) listas
shtFormulas
: aquí vamos a poner unas formulas que vamos a necesitar para tomar las listas
shtDatos
: Aquí ponemos todo lo que requerimos
shtListas:
Aquí agregamos en un rango (ya sea en una columna o una fila) todos los datos que ocupamos en nuestra lista, sin restricción de tamaño. Es muy importante respetar que sean una sola columna o una sola fila. Para este ejemplo voy a usar solo una columna.
A1:A2015
shtFormulas:
Vamos a llenar las siguientes celdas con los valores/formulas:
+----+-------------------------------------------------------------------------+---------------------+
| A1 | oLista | esto es un texto |
+----+-------------------------------------------------------------------------+---------------------+
| A2 | =ADDRESS(1,1,1,1,"shtListas")&":"&ADDRESS(COUNTA(shtListas!A:A),1,1,1,) | esto es una formula |
+----+-------------------------------------------------------------------------+---------------------+
ADDRESS function
Descripción
Puede usar la función DIRECCIÓN para obtener la dirección
de una celda en una hoja de trabajo, dados los números de fila y
columna especificados. Por ejemplo, DIRECCIÓN (2,3) devuelve $C$2.
Como otro ejemplo, ADDRESS (77,300) devuelve $KN$77. Puede usar otras
funciones, como las funciones FILA y COLUMNA, para proporcionar los
argumentos de número de fila y columna para la función DIRECCIÓN.
Con la celda A2
seleccionada
Vamos a presionar CTRL + F3
o vamos al menú FORMULAS>Define Name>Define Name
como se ve en la foto:
Para que aparezca el siguiente asistente:
Y llenas los campos como se muestra en la foto:
Name: oLista
Scope: Workbook
Comment: (es opcional, puede quedar en blanco)
Refers to: =INDIRECT(shtFormulas!$A$2)
Name: Este es el nombre que vamos a usar para llamar todo el rango
Refers to: es la formula que vamos a usar para buscar nuestra lista
INDIRECT FUNCTION
En el enlace anterior puedes encontrar información de como funciona la función INDIRECT, pero brevemente explico que, toma un texto como
'=INDIRECT("B"&A5)
Combina "B" con el valor en la celda A5 el cual es 5.
Esto devuelve una referencia a la celda B5, la cual contiene el valor 62.
Por tanto en nuestro ejercicio estamos tomando el texto (contenido) de la celda A2, y estamos devolviendo el rango shtListas!$A$1:$A$2015 al nombre que estamos definiendo.
shtDatos
En esta hoja, en la celda A1
agregamos la lista de validación con el menú DATA>DATA VALIDATION>DATA VALIDATION
como se ve en la foto
Para que aparezca el siguiente asistente:
Y aquí lo único que es determinante es usar el Nombre de rango "oLista" donde dice Source. Para que nuestra lista busque el rango que tenemos en la hoja shtListas
VBA
Y para hacerlo con VBA
tenemos que usar el siguiente código:
Sub rangeList()
Range("A1").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=oLista" 'Notese que acá agregamos el rango como una formula
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
El codigo es en caso que quieras usar una macro para agregar la lista de validación.
Ventajas de la lista con los nombres de rango:
En caso que la lista en la hoja shtListas deba crecer o acortarse, se pueden cambiar los valores sin problema, (ÚNICAMENTE no dejar espacios vacíos entre la lista). Pero así la lista de validación se va actualizar automáticamente.
Hice todo separado solo por una cuestión (muy personal) de orden, pero se puede hacer todo en una sola hoja, de ser necesario.