Imprimir Lista de Validacion

Emilio escribió el 07/06/2014 07:05 :

¡Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
Hola!
ActiveSheet.Range("C2").Validation.Formula1 devuelve el rango de la
lista de
validación de la celda C2, ya solo tienes que recorrerlo en un bucle y
tendrás la lista de validación.

Dim Celda As Range

For Each Celda In
ActiveSheet.Range(Replace(ActiveSheet.Range("C2").Validation.Formula1,
"=",
""))
Debug.Print Celda.Value
Next Celda

Saludos a todos
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"vihuh" escribió en el mensaje de
noticias:

Hola que tal, mi consulta es la siguiente , hice una lista de validacion con
aproximadamente 39 nombres y queria saber si hay alguna forma de mandar a
imprimir de forma automatica ya que hasta ahora lo hago manualmente y es un
poco
tedioso. Desde ya muchas gracias

Hola mira soy nuevo en esto y si m podrias guiar paso a paso, hice una lista de nombres q va desde la celda P2 a P28 y con esos datos cree una lista de validacion con sus nombres ubicada en la celda B38, y para imprimir tengo q poner nombre por nombre. Si podes indicarme como armarla. Desde ya muchas Gracias