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

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.

Puedes hacerlo con el menu Datos-Validacion, en la pestaña
configuracion, apartado permitir, eliges Lista y en Origen,
pones los meses separados por ;

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.

.

Excel trata como un array los valores de un rango si a este rango se le asigna
un nombre. Si a tu lista de meses que esta en A10:A22 se le asigna el nombre
"Meses", entonces puedes utilizar en tu validacion lo siguiente:

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


Si quieres modificar la fuente de datos de validacion, cambia la referencia del
nombre a otro rango:

Sub CambiarReferenciaNombreRango()
On Error Resume Next
ThisWorkbook.Names("Meses").Delete
ActiveSheet.Range("B1:B12").Name = "Meses"
End Sub

Saludos,

David Canales


wrote in message
news:95b701c478a6$bcbddc00$
Puedes hacerlo con el menu Datos-Validacion, en la pestaña
configuracion, apartado permitir, eliges Lista y en Origen,
pones los meses separados por ;

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.

.