Error en linea ActiveWorkbook.Names("dbi_top").Comment = ""
Hola Expertos,
yo aki otra vez con una duda que ya me tiene muy frustrado, aki se los planteo:
Tengo este código que lo que intenta es copiar una tabla de un libro de excel abierto(Origen) al que contiene mi macro(Destino). Pero en la linea que esta con negrita cursiva y subrayada se cae y me da un error de formula. Por favor me pueden dar una mano he estado googleando ya por varias horas por una respuesta y no la he conseguido.
por ahi encontré que debía activar el estilo R1C1, y ya lo hice pero el error persiste
también me lei acerca de la configuración regional, lo tengo activado para Estados Unidos de America y todo en ingles (de hecho por mas que lo cambie el dominio controla eso)
Estoy usando EXCEL 2013
ActiveWorkbook.Names.Add Name:="dbi_top", RefersToR1C1:= _
"=Table2[[#Headers],[Computer Name]]"
ActiveWorkbook.Names("dbi_top").Comment = ""
Selection.End(xlDown).Select
Selection.End(xlToRight).Select
ActiveWorkbook.Names.Add Name:="dbi_bottom", RefersToR1C1:=ActiveCell
ActiveWorkbook.Names("dbi_bottom").Comment = ""
Range("dbi_top:dbi_bottom").Copy
Windows("Reconciliation Macro v4.xlsm").Activate
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
ActiveSheet.Name = "DatabaseInstances"
Muchas gracias por cualquier sugerencia.
Saludos Cordiales
Henrry Vélez
1 respuesta
Si quieres copiar la tabla2 intenta esto
Sub copiatabla()
'Por.DAM
Range("Tabla2[#All]").Copy
Set n = Workbooks("Reconciliation Macro v4.xlsm").Sheets.Add(After:=ActiveSheet)
n.Paste
n.Name = "DatabaseInstances"
End Sub Saludos.DAM
Si es lo que necesitas.
Hola Experto pues lo que hice es seguir tu sugerencia de quitar la linea del comentario y listo funciono, por otro lado no podía copiar toda la tabla ya que esa solo hacia referencia a los datos y yo necesito también los encabezados y estos estaban fuera del rango.
Mil gracias por tu ayuda
Saludos cordiales
Henrry Velez
