{"id":1497,"date":"2017-03-24T16:55:45","date_gmt":"2017-03-24T21:55:45","guid":{"rendered":"http:\/\/vendiendo.co\/blogs\/?p=1497"},"modified":"2020-06-26T14:24:53","modified_gmt":"2020-06-26T19:24:53","slug":"consolidar-varias-hojas-de-excel-una-sola","status":"publish","type":"post","link":"https:\/\/vendiendo.co\/blogs\/consolidar-varias-hojas-de-excel-una-sola\/","title":{"rendered":"Consolidar varias hojas de Excel con datos de ventas en una sola hoja"},"content":{"rendered":"
\"Consolidar
Consolidar varias hojas de Excel<\/figcaption><\/figure>\n

En este art\u00edculo voy a detallar c\u00f3mo construir una macro, para consolidar varias hojas de Excel con datos de ventas, para que queden todos en una sola hoja totalizada, sin tener que ir copiando hoja por hoja.<\/p>\n

L\u00f3gicamente este tipo de macros es aplicable para cualquier tipo de datos que tengamos en hojas de Excel y que queramos consolidar.<\/p>\n

El objetivo es poder introducir al lector en el mundo de las macros de Excel, para que una vez le despierte su inter\u00e9s, pueda explotar toda la potencialidad de la programaci\u00f3n de macros, para automatizar procesos que generalmente son largos, tediosos y complejos.<\/p>\n

<\/p>\n

Te invitamos a seguir leyendo las siguientes l\u00edneas que detallan la construcci\u00f3n de esta macro:<\/p>\n

\n

Estructura de los datos<\/strong><\/h2>\n
\n

Para este ejemplo entonces vamos a considerar que tenemos un archivo con varias hojas con datos de ventas, como el que se muestra a continuaci\u00f3n:<\/p>\n

\"Archivo
Archivo de Ventas<\/figcaption><\/figure>\n

Aqu\u00ed tenemos varias hojas de nombre \u00abventas1\u00bb, \u00abventas2\u00bb, \u00abventas3\u00bb y \u00abventas4\u00bb, con los datos de las ventas, todas con el mismo n\u00famero de columnas, y al final una hoja de nombre \u00abTOTAL\u00bb, a donde vamos a llevar los datos de las primeras 4 hojas.<\/p>\n

\"Hoja
Hoja TOTAL<\/figcaption><\/figure>\n

Los nombres de las hojas no interesan, en esta macro estamos considerando que la \u00faltima hoja siempre ser\u00e1 donde se consolida todo.<\/p>\n

Te puede interesar tambi\u00e9n Encontrar datos repetidos en una tabla de Excel o de una base de datos<\/a><\/em><\/p><\/blockquote>\n

\n

Pasos para crear la macro<\/h2>\n
\n

Realizamos entonces los siguientes pasos:<\/p>\n

1-  Grabamos una macro, y le damos el acceso diercto CTRL + SHIFT + C<\/p>\n

\"Men\u00fa
Men\u00fa Grabar Macro Excel<\/figcaption><\/figure>\n
\"\"
Grabar Macro Excel<\/figcaption><\/figure>\n

2-  Copiamos el siguiente c\u00f3digo en el editor VBA de Excel. Este c\u00f3digo est\u00e1 debidamente comentado para mostrar qu\u00e9 hace en cada l\u00ednea:<\/p>\n

Sub Consolidar()\n\n' Consolidar Macro\n\n' Acceso directo: Ctrl+May\u00fas+C\n\n\n    ' Funci\u00f3n que limpia el contenido consolidado de la \u00faltima hoja (\"TOTAL\")\n    Call LimpiarTotal\n    \n    \n    'Ciclo para recorrer cada una de las hojas con los datos de ventas, excluyendo la \u00faltima hoja que es la de consolidaci\u00f3n\n    For h = 1 To Sheets.Count - 1\n        \n        'Nos ubicamos en una de las hojas de ventas\n        Sheets(h).Select\n           \n        'Ubicandonos en la segunda fila de la primera columna\n        Range(\"A2\").Select\n        \n        'Seleccionando hasta la \u00faltima columna\n        Range(Selection, Selection.End(xlToRight)).Select\n        \n        'Seleccionando todo hasta la \u00faltima fila con datos\n        Range(Selection, Selection.End(xlDown)).Select\n        \n        'Copiamos la selecci\u00f3n\n        Selection.Copy\n        \n        'Nos ubicamos en la \u00faltima hoja (\"TOTAL\")\n        Sheets(Sheets.Count).Select\n        \n        'Nos ubicamos en la primera celda\n        Range(\"A1\").Select\n        \n        'Vamos hasta la \u00faltima fila con datos, si estamos pegando los datos desde la segunda hoja de ventas\n        If h > 1 Then\n            'Desde la segunda hoja, entonces nos ubicamos en la \u00faltima celda con datos, y nos desplazamos una fila m\u00e1s\n            Selection.End(xlDown).Select\n            Range(\"A\" & Selection.Row + 1).Select\n        Else\n            'Si es la primera hoja, entonces nos ubicamos en la segunda fila, de la primera columna, en la hoja TOTAL\n            Range(\"A2\").Select\n        End If\n        \n        'Pegamos los datos que provienen de la hoja de ventas\n        ActiveSheet.Paste\n    Next\n\nEnd Sub<\/pre>\n
Esta funci\u00f3n se encarga de limpiar el contenido de la \u00faltima hoja (\u00abTOTAL\u00bb):<\/p>\n
Sub LimpiarTotal()\n'\n' LimpiarTotal Macro\n'\n        \n    ' Nos ubicamos en la \u00faltima hoja\n    Sheets(Sheets.Count).Select\n    \n    'Seleccionamos desde la segunda fila, hasta donde hayan datos disponibles\n    Range(\"A2\").Select\n    Range(Selection, Selection.End(xlToRight)).Select\n    Range(Selection, Selection.End(xlDown)).Select\n    Application.CutCopyMode = False\n    \n    ' Se borran los datos existentes\n    Selection.ClearContents\n    \n    ' Nos ubicamos al comienzo de la \u00faltima hoja\n    Range(\"A1\").Select\nEnd Sub<\/pre>\n
3-  Podemos ejecutar la macro presionando las teclas CTRL + SHIFT + C.<\/p>\n
4-  Al final, esta macro nos permite consolidar varias hojas de Excel de Ventas, en una sola hoja con todos los datos de las ventas.<\/p>\n
Lo importante a conocer en este ejemplo, es c\u00f3mo nos desplazamos entre hojas, y como podemos emular mediante c\u00f3digo, la forma de seleccionar las celdas con datos disponibles.<\/p>\n
En conclusi\u00f3n, podemos ver c\u00f3mo mediante unas pocas l\u00edneas de comando, podemos crear una macro de Excel que nos facilita una tarea de consolidaci\u00f3n, que puede ser larga, tediosa, y propensa a errores durante un copiado manual.<\/p>\n
Haci\u00e9ndole algunas variaciones, podemos llegar a tomar datos de varios archivos que tengamos en un mismo directorio, para llegar a un consolidado total. En una pr\u00f3xima entrega estaremos revisando esta modificaci\u00f3n.<\/p>\n
\n
Tambi\u00e9n te puede interesar el art\u00edculo Macro de Excel para Conciliaci\u00f3n de cuentas bancarias<\/a><\/p><\/blockquote>\n
\n
Este art\u00edculo hace parte del sistema de divulgaci\u00f3n de conocimiento de Vendiendo.co<\/a>.<\/strong><\/p>\n
\n
\"Vendiendo<\/a>
Vendiendo Software POS<\/figcaption><\/figure>\n
Vendiendo.co<\/a><\/strong><\/em> es un servicio para tu punto de venta, muy sencillo de manejar, muy econ\u00f3mico, con grandes prestaciones para ayudarte a crecer tu negocio.<\/span><\/p>\n
Ven y con\u00f3cenos hoy mismo en www.vendiendo.co<\/a>.<\/span><\/p>\n
\n<\/blockquote>\n
Si te gust\u00f3 este art\u00edculo, por favor no olvides compartirlo en las redes sociales. Thnks \ud83d\ude09<\/h4>\n","protected":false},"excerpt":{"rendered":"
En este art\u00edculo voy a detallar c\u00f3mo construir una macro, para consolidar varias hojas de Excel con datos de ventas, para que queden todos en una sola hoja totalizada, sin[…]<\/p>\n","protected":false},"author":1,"featured_media":1502,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"advanced_seo_description":"","jetpack_seo_html_title":"","jetpack_seo_noindex":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[43],"tags":[942,944,943,946,945,947],"class_list":["post-1497","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-automatizacion","tag-consolidar-varias-hojas","tag-consolidar-ventas","tag-macro-excel","tag-trabajando-con-excel","tag-unificar-ventas","tag-unir-varias-hojas-excel"],"jetpack_featured_media_url":"https:\/\/vendiendo.co\/blogs\/wp-content\/uploads\/2017\/03\/consolidar-varias-hojas-de-excel.png","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/vendiendo.co\/blogs\/wp-json\/wp\/v2\/posts\/1497","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/vendiendo.co\/blogs\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/vendiendo.co\/blogs\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/vendiendo.co\/blogs\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/vendiendo.co\/blogs\/wp-json\/wp\/v2\/comments?post=1497"}],"version-history":[{"count":0,"href":"https:\/\/vendiendo.co\/blogs\/wp-json\/wp\/v2\/posts\/1497\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/vendiendo.co\/blogs\/wp-json\/wp\/v2\/media\/1502"}],"wp:attachment":[{"href":"https:\/\/vendiendo.co\/blogs\/wp-json\/wp\/v2\/media?parent=1497"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/vendiendo.co\/blogs\/wp-json\/wp\/v2\/categories?post=1497"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/vendiendo.co\/blogs\/wp-json\/wp\/v2\/tags?post=1497"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}