Visual Basic - Problemas al copiar nombres en libros excel.

Life is soft - evento anual de software empresarial
   
Vista:

Problemas al copiar nombres en libros excel.

Publicado por charlesc (1 intervención) el 13/04/2012 15:45:27
Hola Amigos,

Tengo un libro con aproximadamente 100 nombres, que tengo que transferir a unos 90 libros excel ya realizados, pero que
no tienen nombres.

He hecho esta macro, pero me dá errores con los ..!Print_Area y ..!FilterDatabase.
Como sería posible limpiar los libros de estos tipos de nombres?

Sub copiar_nombres()

' copia los nombres de libro_origen a libro_destino

Dim n As Name

Dim libro_origen As Workbook
Dim libro_destino As Workbook

Set libro_origen = Workbooks("libro con nombres.xls")
Set libro_destino = Workbooks("libro sin nombres.xls")


For Each n In libro_origen.Names

libro_destino.Names.Add n.Name, n.RefersTo

Next n
End Sub

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder