Ya hemos hablado de dimensionar variables (puedes ver aquí). Es muy importante tener claro para qué queremos dimensionar variables y cómo se hace a la hora de utilizarlas en VBA.

Podemos dimensionar las variables de una empresa (por ejemplo) de la siguiente manera:

Dim empleados as Integer
Dim valorbursatil as double
Dim dondecotiza as string
Dim esIBEX as boolen

Si solamente estamos tratando con una sóla empresa a lo largo de nuestra subrutina esto está bien pero, ¿cómo dimensionamos variables para 30 empresas? esta tarea puede ser mucho más tediosa pero existe una solución sencilla.

Esta solución pasa por  crear un tipo de datos (Type) en el que almacenaremos los 4 valores que antes dimensionábamos por cada empresa. Nuestro tipo de datos se llamará datosEmpresas y su declaración será la siguiente:

Type datosEmpresas

empleados as Integer

valorbursatil as double

dondecotiza as string

esIBEX as boolen
end type

Para llamar a este conjunto de datos lo haremos como a cualquier otro tipo de variables declaradas:

Dim miempresa as datosEmpresas

miempresa.datosEmpresa="INDITES"

empleados.datosEmpresa="120000"

esIBEX.datosEmpresa=vbYes