Validación de datos de celda

Saludos a todos...

voy con otra pregunta

En Excel en el cuadro de validación de datos, en la

de configuracion "Criterio de validación" esojo Permitir
Lista, una vez activada esta opcion de despliega la

Origen, donde debo colocar el rango de celdas donde se
encuentra la lista... muy bien...
El asunto es que no se puede colocar un rango de celdas
fuera de la hoja activa...
La pregunta? como puedo hacer para que la
opcion "Origen:" permita que la lista este en otra hoja

en otro libro.
He intentado lo siguiente sin resultados; gabo un macro
con este procedimeinto:
With Selection.Validation
.Delete
.Add Type:=xlValidateList,
AlertStyle:=xlValidAlertStop, Operator:= _
=> xlBetween, Formula1:="=Hoja2!$A$1:$A$10" <> .IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
y no funciona...
Saludos y gracias de antemano
Alberto...
:))

.

Alberto:
La solución a esto es ponerle "Nombre" al rango donde
tienes tu lista fuente (Ej: Frutas), luego, al momento de
hacer la validacion, cundo tengas que poner donde esta tu
lista, lo que tienes que poner es el nombre del rango en
donde esta tu lista (ej: =Frutas)

Saludos
Servando Villalon

Saludos a todos...

voy con otra pregunta

En Excel en el cuadro de validación de datos, en la

solapa

de configuracion "Criterio de validación" esojo Permitir
Lista, una vez activada esta opcion de despliega la

opcion

Origen, donde debo colocar el rango de celdas donde se
encuentra la lista... muy bien...
El asunto es que no se puede colocar un rango de celdas
fuera de la hoja activa...
La pregunta? como puedo hacer para que la
opcion "Origen:" permita que la lista este en otra hoja

o

en otro libro.
He intentado lo siguiente sin resultados; gabo un macro
con este procedimeinto:
With Selection.Validation
.Delete
.Add Type:=xlValidateList,
AlertStyle:=xlValidAlertStop, Operator:= _
=> xlBetween, Formula1:="=Hoja2!$A$1:$A$10" <>> .IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
y no funciona...
Saludos y gracias de antemano
Alberto...
:))

.

.