Validacion por codigo

Por ejemplo, para establecer como 'Lista' para la validación de Hoja1!A1 el rango F1:F7 de la misma hoja:

[Hoja1!A1].Validation.Modify Type:=xlValidateList, Formula1:="=$F$1:$F$7"

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Lucas" escribió en el mensaje news:19d101c4bb69$e6dd9ce0$
Hola amigos,quisiera hacer lo siguiente:
Tengo una hoja con Validacion Lista en a una columna
quisiera saber si se puede hacer por código ,el escoger el
rango de donde se obtienen los datos.
Un saludos y muchas gracias

Hola Fernando,muchas gracias por su respuesta ,yo no se
mucho de Excel puse el codigo en un boton y me da este
error.
-
se ha producido el error'1004' en tiempo de ejecucion.
error definido por la aplicacion o el objeto
-
no se que es,si me pudiera explicarme por que me da el
error,tambien probe dentro de un modulo y tambien me dio
error.
Un saludos Lucas

Por ejemplo, para establecer como 'Lista' para la

validación de Hoja1!A1 el rango F1:F7 de la misma hoja:

[Hoja1!A1].Validation.Modify Type:=xlValidateList,

Formula1:="=$F$1:$F$7"

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Lucas" escribió en

el mensaje news:19d101c4bb69$e6dd9ce0$

Hola amigos,quisiera hacer lo siguiente:
Tengo una hoja con Validacion Lista en a una columna
quisiera saber si se puede hacer por código ,el escoger

el

rango de donde se obtienen los datos.
Un saludos y muchas gracias
.

Se puede producir un error si el valor que tiene la celda A1 no cumple la validación que se intenta establecer por código.

Una solución podría ser borrar la validación existente y crearla completamente nueva usando código, algo como:

With [Hoja1!A1].Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=$F$1:$F$7"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Título del mensaje entrante"
.ErrorTitle = "Título del mensaje de error"
.InputMessage = "Mensaje entrante"
.ErrorMessage = "Mensaje de error"
.ShowInput = True
.ShowError = True
End With

teniendo en cuenta que podrías tener que modificar el código anterior, dependiendo de cómo quieras la validación.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Lucas" escribió en el mensaje news:125901c4bb7e$19574680$
Hola Fernando,muchas gracias por su respuesta ,yo no se
mucho de Excel puse el codigo en un boton y me da este
error.
-
se ha producido el error'1004' en tiempo de ejecucion.
error definido por la aplicacion o el objeto
-
no se que es,si me pudiera explicarme por que me da el
error,tambien probe dentro de un modulo y tambien me dio
error.
Un saludos Lucas

Perfecto,muchas gracias Fernando.
Un saludo Lucas.

Se puede producir un error si el valor que tiene la celda

A1 no cumple la validación que se intenta establecer por
código.

Una solución podría ser borrar la validación existente y

crearla completamente nueva usando código, algo como:

With [Hoja1!A1].Validation
.Delete
.Add Type:=xlValidateList,

AlertStyle:=xlValidAlertStop, Operator:=xlBetween,
Formula1:="=$F$1:$F$7"

.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Título del mensaje entrante"
.ErrorTitle = "Título del mensaje de error"
.InputMessage = "Mensaje entrante"
.ErrorMessage = "Mensaje de error"
.ShowInput = True
.ShowError = True
End With

teniendo en cuenta que podrías tener que modificar el

código anterior, dependiendo de cómo quieras la validación.

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Lucas" escribió en

el mensaje news:125901c4bb7e$19574680$

Hola Fernando,muchas gracias por su respuesta ,yo no se
mucho de Excel puse el codigo en un boton y me da este
error.
-
se ha producido el error'1004' en tiempo de ejecucion.
error definido por la aplicacion o el objeto
-
no se que es,si me pudiera explicarme por que me da el
error,tambien probe dentro de un modulo y tambien me dio
error.
Un saludos Lucas


.