Rango de listas automatico de nuevo

[DIEFRA]

Un saludo muy especial para todos,

Cito este tema nuevamente para que por favor me colaboren con un ajuste.... les cuento lo que me pasa:

tengo una base con una lista que se alimenta de otro libro con una formula similar a la siguiente:

=SI(ESBLANCO('C:\Mis documentos\BASE DE DATOS\[BASE_ACTUAL.xls]AGENTES ACTIVOS'!B5);"";C:\Mis documentos\BASE DE DATOS\[BASE_ACTUAL.xls]AGENTES ACTIVOS'!B5)

Esta formula se encuentra en el rango G5:G100 y en el rango H5:H100 hay una formula igual pero pero me trae el valor de la columna C.

He definido dos nombres para estas columnas con la formula que mrocf expuso en este tema anteriormente así:

=DESREF(CONSULTA!$G$5; 0; 0; CONTARA(CONSULTA!$G:$G); 5) 'LIST_CEDULA
=DESREF(CONSULTA!$H$5; 0; 0; CONTARA(CONSULTA!$H:$H); 5) 'LIST_NOMBRE

Y en validacion de datos tengo lo siguiente:

Permitir: Lista
Origen: =SI($C$6="CEDULA";LIST_CEDULA;LIST_NOMBRE)

Al dar clic en aceptar sale el siguiente error: "El origen actualmente evalua un error. ¿Desea continuar?" y al verificar la celda que debe contener la lista no despliega ningun dato.

De antemano mil gracias.

Chao

[mrocf]

Hola! Diefra. El valor "5" en las fórmulas
=DESREF(CONSULTA!$G$5; 0; 0; CONTARA(CONSULTA!$G:$G); 5) 'LIST_CEDULA
=DESREF(CONSULTA!$H$5; 0; 0; CONTARA(CONSULTA!$H:$H); 5) 'LIST_NOMBRE

señalan que tanto "LIST_CEDULA" como "LIST_NOMBRE" son rangos de 5 columnas.
Pero la validación no puede ser de más de una columna o fila... y ése debe ser tu problema.

De modo que cambia en ambas fórmulas de validación el "5" por un "1" y prueba esa solución.

Saludos, Cacho.

[DIEFRA]

Hola mrocf.

Cambié el "5" por el "1" como me dijiste pero sucede lo mismo.

=DESREF(CONSULTA!$G$5; 0; 0; CONTARA(CONSULTA!$G:$G); 1) 'LIST_CEDULA
=DESREF(CONSULTA!$H$5; 0; 0; CONTARA(CONSULTA!$H:$H); 1) 'LIST_NOMBRE

Tal vez tenga otro error?

Gracias

[mrocf]

Corregido el rango de la Lista de Validación de datos, podrías dar un paso más: copia el rango G5:H100 y pégalo en valores... sobre sí mismo.

Debería la validación funcionarte sin inconvenientes: de ser así, tu problema se trasladaría a las fórmulas que copian los datos del libro BASE_ACTUAL.xls.

Prueba con eso y observa el comportamiento.

Saludos, Cacho.

[DIEFRA]

Hola mrocf.

pues te cuento que así si funciona, pero lo que yo quiero es que la lista se actualice automaticamente cuando ingreso un nuevo agente en la BASE_ACTUAL.xls. si depronto conoces otra formula te agradezco.

Chao

[mrocf]

La prueba que hiciste indica que tienes algún problema en

=SI(ESBLANCO('C:\Mis documentos\BASE DE DATOS\[BASE_ACTUAL.xls]AGENTES ACTIVOS'!B5);"";C:\Mis documentos\BASE DE DATOS\[BASE_ACTUAL.xls]AGENTES ACTIVOS'!B5)

Con mucho gusto -y si quieres- envíame el archivo para que lo vea: tienes mi correo en mi perfil.

Saludos, Cacho.

[DIEFRA]

Hola,

Te cuento lo siguiente: ya no genera el error, pero cuando termina la lista aparecen los espacios en blanco en la celda que tiene la validacion, es decir, que agrega los campos que tienen formula.

Si sabes que hacer, por favor me cuentas
si no, tambien me cuentas para enviarte el archivo.

Gracias.
Chao

[mrocf]

Puedes intentar con:

=DESREF(CONSULTA!$G$5; 0; 0; SUMAPRODUCTO( --(G$5:G$999<>"")); 1) 'LIST_CEDULA

Saludos, Cacho

[DIEFRA]

HOLA,

Tu formula me ha funcionado, solo que en una sola columna, es decir, para la columna G(LIST_CEDULA) la lista se incrementa normalmente, pero para la columna H(LIST_NOMBRE) la lista muestra tambien las celdas en blanco......

Sin embargo la dí solución a mi problema con dos ComboBox y un DO WHILE .... LOOP en el evento Click de uno de ellos......

Private Sub CBOBUSCAR_Click()

CBOITEMS.Clear
If CBOBUSCAR.Text = "Cedula" Then
CONSULTA.Range("G5").Select

Do While ActiveCell <> Empty
CBOITEMS.AddItem ActiveCell.Text
ActiveCell.Offset(1, 0).Select
Loop

Else

CONSULTA.Range("H5").Select

Do While ActiveCell <> Empty
CBOITEMS.AddItem ActiveCell.Text
ActiveCell.Offset(1, 0).Select
Loop

End If
End Sub

Muchas gracias por tu ayuda

CHAO

[mrocf]

Me alegra y hasta la próxima.
Cacho.