Jump to content

Problemas con macro para copiar todos los nombres entre libros excel.


Recommended Posts

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.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy