Lista de validación

07/06/2007 - 16:41 por Aprendiz | Informe spam
Buenas tardes:
Tengo una base de datos con 60.000 articulos y en una plantilla de pedidos
he querido colocar una lista de validación pero no funciona si paso de
aprox. 20.000 referencias alguien sabe si existe un tope de referencias
para estas listas de validación y si existe, ¿ como puedo hacer para
presentar las 60.000 de mi base de datos.?
Saludos
José Frasquet

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
07/06/2007 - 21:31 | Informe spam
hola, José !

Tengo una base de datos con 60.000 articulos y en una plantilla de pedidoshe querido colocar una lista de validacion
pero no funciona si paso de aprox. 20.000 referencias existe un tope de referencias para estas listas de validacion
y si existe, como puedo hacer para presentar las 60.000 de mi base de datos.?



el limite para listas de validacion tomando datos de un rango es de ~32,767
la alternativa pudiera ser a traves comboboxes de la barra de herramientas 'cuadro de controles'
y/o directamente desde formularios y vba ;)

saludos,
hector.
Respuesta Responder a este mensaje
#2 Jose
08/06/2007 - 08:08 | Informe spam
Gracias Héctor por la información.
¿Sería mucho pedir que me pasaras la alternativa de esa lista de validación
que solo llega a 32.767? Yo tengo una plantilla de pedidos que en la columna
B, B29, B30, B31, etc hasta 25 posiciones abajo, me gustaria poder elegir la
referencia de uno de los 60000 articulos. ¿es posible?.. o me puedes decir
de donde puedo sacara la información para hacerlo yo mismo... si puedo !!
Gracias otra vez
Saludos
Jose Frasquet
"Héctor Miguel" escribió en el mensaje
news:
hola, José !

Tengo una base de datos con 60.000 articulos y en una plantilla de
pedidoshe querido colocar una lista de validacion
pero no funciona si paso de aprox. 20.000 referencias existe un tope
de referencias para estas listas de validacion
y si existe, como puedo hacer para presentar las 60.000 de mi base de
datos.?



el limite para listas de validacion tomando datos de un rango es de
~32,767
la alternativa pudiera ser a traves comboboxes de la barra de herramientas
'cuadro de controles'
y/o directamente desde formularios y vba ;)

saludos,
hector.

Respuesta Responder a este mensaje
#3 Héctor Miguel
08/06/2007 - 17:46 | Informe spam
hola, Jose !

... mucho pedir... la alternativa de esa lista de validacion que solo llega a 32.767?
... tengo una plantilla de pedidos que en la columna B, B29, B30, B31, etc hasta 25 posiciones abajo
... poder elegir la referencia de uno de los 60000 articulos...



1) inserta un 'combobox' de la barra de herramientas 'cuadro de controles' EN la hoja donde necesitas las 'validaciones'
2) define un nombre para el listado de tus ~60000 articulos [p.e. ListaDeArticulos]
3) copia/pega las siguientes instrucciones EN el modulo de codigo de la hoja 'validada'
lo que 'hacen' es:
a) si la celda activa NO esta en el rango que necesitas 'validar', el combo NO tendra nada 'que seleccionar' ;)
b) lo que 'se escriba en' [o seleccione de] el combo, se 'aplique' a la celda activa [siempre que sea del rango validado]
c) podrias escribir [en el combo] datos que NO 'existan' en el listado PERO...
aun cuando los escribas [en el combo] y los 'plantes' [en la celda activa] SEGUIRAN 'ausentes' en el listado

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

' en el modulo de codigo de 'la hoja' a la que esta el combo ==' el combo 'se llena' SOLO cuando la celda activa es del rango 'validado' '
Private Sub ComboBox1_GotFocus()
If Not Intersect(Activecell, Range("b29:b54")) Is Nothing Then
ComboBox1.ListFillRange = "ListaDeArticulos"
ComboBox1.LinkedCell = ActiveCell.Address
Else: ComboBox1.LinkedCell = ""
End If
End Sub
' el combo 'se vacia' [invariablemente] al terminar la operacion '
Private Sub ComboBox1_LostFocus()
ComboBox1.ListFillRange = ""
ComboBox1.LinkedCell = ""
ComboBox1 = ""
End Sub
' para 'agilizar' la entrada de datos con la tecla {Enter} [cuando 'en' el combo] '
Private Sub ComboBox1_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{esc}"
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida