{"id":1459,"date":"2015-04-16T09:05:36","date_gmt":"2015-04-16T17:05:36","guid":{"rendered":"http:\/\/www.auval.com.mx\/notas\/?p=1459"},"modified":"2015-04-16T09:05:36","modified_gmt":"2015-04-16T17:05:36","slug":"macro-para-consolidar-las-hojas-abiertas-a-una-nueva","status":"publish","type":"post","link":"https:\/\/auval.com.mx\/blog\/2015\/04\/16\/macro-para-consolidar-las-hojas-abiertas-a-una-nueva\/","title":{"rendered":"Macro para consolidar las hojas abiertas a una nueva."},"content":{"rendered":"<p>Este c\u00f3digo crea un archivo (libro) de Excel nuevo \u00a0y luego copia el contenido de la hoja activa de todos los archivos de Excel abiertos al libro nuevo, copiando cada hoja debajo de la otra.<br \/>\nSi las hojas est\u00e1n filtradas, copia nada m\u00e1s lo visible.<\/p>\n<pre class=\"lang:vb decode:true \">Sub consolidar_archivos()\nOption Explicit\n\nSub Consolidar_libros_abiertos_en_uno_nuevo()\n\n    Dim ventana_nueva, ventana_copia\n    \n    Workbooks.Add\n    Set ventana_nueva = ActiveWindow\n    For Each ventana_copia In Application.Windows\n        If ventana_copia.Caption <> ventana_nueva.Caption Then\n            ventana_copia.Activate\n            Range(\"A1\").Select\n            Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select\n            Selection.Copy\n            \n            ventana_nueva.Activate\n            ActiveCell.SpecialCells(xlLastCell).Select\n            ActiveCell.Offset(1, 0).Range(\"A1\").Select\n            Selection.End(xlToLeft).Select\n            ActiveSheet.Paste\n            Application.CutCopyMode = False\n        End If\n    Next ventana_copia\nEnd Sub\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Este c\u00f3digo crea un archivo (libro) de Excel nuevo \u00a0y luego copia el contenido de la hoja activa de todos los archivos de Excel abiertos al libro nuevo, copiando cada hoja debajo de la otra. Si las hojas est\u00e1n filtradas, &hellip;<\/p>\n<p class=\"read-more\"> <a class=\"more-link\" href=\"https:\/\/auval.com.mx\/blog\/2015\/04\/16\/macro-para-consolidar-las-hojas-abiertas-a-una-nueva\/\"> <span class=\"screen-reader-text\">Macro para consolidar las hojas abiertas a una nueva.<\/span> Leer m\u00e1s \u00bb<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[],"class_list":["post-1459","post","type-post","status-publish","format-standard","hentry","category-office"],"_links":{"self":[{"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/posts\/1459","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/comments?post=1459"}],"version-history":[{"count":0,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/posts\/1459\/revisions"}],"wp:attachment":[{"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/media?parent=1459"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/categories?post=1459"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/tags?post=1459"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}