Llenar un Combobox por Matrices Excel Macros

Tengo 3 combobox: Departamento, Provincia y Distrito.

Las cuales se llenan y filtran a partir de 3 hojas de excel con sus respectivos nombres y códigos.

Lo que deseo es que en vez de utilizar hojas de excel, quiero utilizar matrices en macros, así como:

'Llenar Combobox Tipo de Servicio
Dim tipser As Variant
Dim e As Integer
tipser = Array("NUEVO", "MEJORA", "POSTCAPITALIZACIÓN")
For e = LBound(tipser) To UBound(tipser)
    Hoja4.cboTipoServicio.AddItem tipser(e)
Next e

El llenado es fácil el problema esta en hacer los filtros.

Les dejo mi archivo Excel:

https://onedrive.live.com/redir?resid=FE2981AAD59925FA!11894&authkey=!AJ-W5RPNyCYy_aQ&ithint=folder%2cxlsm

1 Respuesta

Respuesta
2

No entendí bien tu petición, ¿quieres poner todos los registros en un arreglo?

Tienes 1833 distritos y quieres poner todos en algo como esto:

dist = array("CHACHAPOYAS", "ASUNCION", "BALSAS", ¿Y así hasta 1833 datos?

Lo que deseo es hacer lo filtros de DEPARTAMENTO, PROVINCIA Y DISTRITO, sin utilizar hojas de excel. Se puede?

Si se puede, pero es más práctico que tengas los datos en hojas de excel, o puedes tener en una hoja, en 3 columnas la información, en la columna A:Departamento, B: Provincia y C: Distrito.

Si quieres tener todo en el código de la macro, entonces tendrías que poner las matrices de esta forma:

Dist = array("CHACHAPOYAS", "ASUNCION", "BALSAS", y así hasta 1833 datos)

Prov= array("CHACHAPOYAS","CHACHAPOYAS","CHACHAPOYAS", y así tienes que poner la misma lista de dist, pero en este arreglo le tienes que indicar a que provincia pertenece, tienes que poner 1833 datos)

Deps = array("AMAZONAS","AMAZONAS","AMAZONAS", y así tienes que poner la misma lista de dist, pero en este arreglo le tienes que indicar a que Departamento pertenece la provincia, tienes que poner 1833 datos)

Saludos. Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Necesito ayuda con combobox

Quería saber como puedo hacer para que al tener varios combobox con datos de una base de datos, por ej. País, provincia, distrito; al seleccionar uno los datos del primer combobox, el segundo cambie de acuerdo a lo seleccionado.
1 respuesta

Ayuda con combobox en PHP

De nuevo molestándote. Estaba haciendo el típico juego de combobox (3) que al seleccionar un valor del primero, el segundo muestra opciones relacionadas al primero, y al seleccionar un valor del segundo, el tercero muestra opciones relacionadas al...
2 respuestas

Ayuda con un combobox para enlazarlo con access

Como están expertos tengo una duda de como poder enlazar unos combobox. Les explico mejor tengo un formulario en el cual tengo 3 combox los cuales salen de una tabla estos 3 combobox son Departamento, Provincia y Distrito Lo que desearía saber si se...
1 respuesta

Macro para Imprimir hojas ocultas

Los Expertos de Excel. Solicito un gran favor de ayudarme, tengo un trabajo de un libro que tiene 12 hojas, Así h1 es la matriz, h2 es el desarrollo, y las otras diez son un grupo de resultados y están ocultas, quisiera que cuando se coloca datos en...
2 respuestas

Objeto Visual

Te pido que atiendas a mi solicitud, y de antemano gracias por su pronta respuesta. 1)Tengo una ventana mantenimiento de cliente (w_mnt_cliente) en la cual al activar un botón se active una ventanita que tiene un objeto visual customizadoy contiene 3...
1 respuesta

Abreviar con macro el código de cada hoja

Me podrían decir si este código que tiene cada página: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A12:D41, H12:H46")) Is Nothing Then Application.EnableEvents = False Target.Value = VBA.UCase(Target.Text)...
1 respuesta

Macro buscar hoja a partir de un combobox

Busco la forma de hacer una búsqueda de hojas en excel. Tengo una macro para facturación y en un useform tengo un combobox el cual tiene cargado los nombres de las hojas. El procedimiento es: al escoger de la lista el numero me busque esa hoja que ya...
1 respuesta

Necesito un código en visual basic 6.0 para copiar información de celdas en varios textbox

Tengo una macro que carga un formulario y cuando este se carga copia la información de varias celdas, organizadas horizontalmente, a varios controles (textbox y combobox). El código que tengo es ActiveCell.Offset(0, 1).Select txtfechalec = ActiveCell...
1 respuesta

Agrupando hojas anular la protección individual de cada hoja

En cada hoja del cliente tiene : Private Sub Worksheet_Activate() ActiveSheet.Protect Password:="1" End Sub Y claro no me deja rectificar todas la hojas a la vez. El código de la macro es : Sub Agrupar_hojas_clientes() ' Grabada el 03/09/2014 por...
1 respuesta

Macro para quitar temporalmente textbox de formulario según combobox

Para: Dante Nuevamente recurriendo a tu ayuda, tengo un formulario en la que ya me diste una macro y quisiera agregar algo mas; que cuando uno elija la hoja con el combobox esta me quite algunos textbox temporalmente según la hoja elegida en el...
2 respuestas