Check the new version here

Popular channels

Enlazar multiples combobox en excel vba

SELECCIONAR UBICACION GEOGRAFICA(UBIGEO) UN FORMULARIO EN EXCEL VBA.
Mediante el uso de programación vba he desarrollado un aplicativo el cual permite seleccionar la ubicación geografica (Perú) desde un formulario. Esto tambien se puede adaptar para otros paises.

El libro esta conformado por 3 hojas que son DEPARTAMENTO, PROVINCIA, DISTRITO en donde esta almacenada la información que mostraremos en el formulario.

Cada una de ellas tiene un codigo que lo identifica.

Por ejemplo:

-Hoja "departamento": se encuentra "Lima" y su codigo es "15"

-Hoja "Provincia": se encuentra la provincia de "Barranca" con su codigo de provincia igual a "02" y su codigo de departamento "15" (Codigo 15 es Departamento Lima) .

-Hoja "Distrito": Se encuentra "Paramonga" con codigo de distrito "02", codigo de provincia "02" y codigo de departamento "15".

Y asi sucesivamente, cada distrito esta amarrado a una provincia y este a su vez a un departamento mediante el codigo. Esto permite identificar la relacion que existe entre ellos ala hora de seleccionarlos en el formulario.

Vamos a pasar a mostrar el formulario, presionamos el boton de color azul "UBIGEO" que esta dentro de la hoja "DEPARTAMENTO", se abrira el formulario el cual nos muestra 3 combobox que hacen lo siguiente.


Al seleccionar un departamento nos muestra todas las provincias que pertenecen a ese departamento, y al seleccionar provincia nos muestran todos los distritos que pertenece a el departamento y provincia elegidas.

CODIGO

Si desean adaptar este libro para sus respectivos paises, pueden reemplazar la información que se encuentra en cada hoja., luego entran al editor de Visual basic mediante la combinacion de teclas Alt+ f11.

Y cambiamos el siguiente código que esta encerrado en color amarillo. ya que ahi selecciona el rango de las celdas que contiene informacion de los departamentos.


https://drive.google.com/file/d/0ByQ3a3TY7tbPbXhDLVkzYXNiT1U/edit?usp=sharing
0No comments yet