¿¿¿Es posible Obtener todos los valores de una celda validation???

02/08/2004 - 13:37 por gema.bernardo | Informe spam
Hola gente!

Tengo definida una celda de un documento EXCEL, que hace referencia a una
lista de meses que se encuentran en un conjunto de celdas.


Ejemplo:
En el rango A10:A22 tengo una columna con los meses:
ENERO,FEBRERODICIEMBRE.

Y en el rango("A1").value hay definido un Validation con la lista de
valores obtenidos desde rango anterior.

Se puede almacenar en un array esa lista de valores sin tener que
recorrerme la columna A desde la fila 10 a la fila 22(+12meses)?????

Hay algun metodo o propiedad del objeto validation que me lo permita??

Ejemplo:
Con esta sentencia puedo modificar la fuente de los datos del Validation

Sheets(1).Range(A1).Validation.Modify Type:=xlValidateList,_
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=¿?¿?¿?¿?, Formula2:=""


Un saludo, y muchas gracias.
 

Leer las respuestas

#1 Fernando Arroyo
02/08/2004 - 17:33 | Informe spam
Por ejemplo, para almacenar en v la lista de la validación de Hoja1!A1:

Dim v As Variant
v = Range("Hoja1!" & Mid([Hoja1!A1].Validation.Formula1, 2)).Value

'Listar v (comprobación)
Dim n As Integer, strC As String
For n = 1 To UBound(v)
strC = strC & v(n, 1) & vbNewLine
Next n
MsgBox strC

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Gema" escribió en el mensaje news:
Hola gente!

Tengo definida una celda de un documento EXCEL, que hace referencia a una
lista de meses que se encuentran en un conjunto de celdas.


Ejemplo:
En el rango A10:A22 tengo una columna con los meses:
ENERO,FEBRERODICIEMBRE.

Y en el rango("A1").value hay definido un Validation con la lista de
valores obtenidos desde rango anterior.

Se puede almacenar en un array esa lista de valores sin tener que
recorrerme la columna A desde la fila 10 a la fila 22(+12meses)?????

Hay algun metodo o propiedad del objeto validation que me lo permita??

Ejemplo:
Con esta sentencia puedo modificar la fuente de los datos del Validation

Sheets(1).Range(A1).Validation.Modify Type:=xlValidateList,_
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=¿?¿?¿?¿?, Formula2:=""


Un saludo, y muchas gracias.

Preguntas similares