{"id":1538,"date":"2016-01-14T16:52:45","date_gmt":"2016-01-15T00:52:45","guid":{"rendered":"http:\/\/www.auval.com.mx\/notas\/?p=1538"},"modified":"2016-01-14T16:52:45","modified_gmt":"2016-01-15T00:52:45","slug":"codigo-para-generar-tablas-dinamicas-vacias","status":"publish","type":"post","link":"https:\/\/auval.com.mx\/blog\/en\/2016\/01\/14\/codigo-para-generar-tablas-dinamicas-vacias\/","title":{"rendered":"C\u00f3digo para generar tablas din\u00e1micas vac\u00edas"},"content":{"rendered":"<pre class=\"lang:default decode:true \">\nSub CreaTablaPivote()\n    ' Traducido (y ligeramente modificado) de\n    ' http:\/\/www.thespreadsheetguru.com\/blog\/2014\/9\/27\/vba-guide-excel-pivot-tables\n    Dim v_Hoja As Worksheet\n    Dim v_PivotCache As PivotCache\n    Dim v_TablaPivote As PivotTable\n    Dim v_PosPivote As String\n    Dim v_DatosFuente As String\n    Dim v_NombrePivote As String\n\n    ' Guarda el nombre que usar\u00e1 al crear la tabla din\u00e1mica.\n    v_NombrePivote = \"TablaPivote1\"\n    \n    ' Determina el rango del que quieres hacer la tabla din\u00e1mica.\n    ' Esto lo puedes modificar para que haga la selecci\u00f3n.\n    ' En el ejemplo, selecciona desde A1 hacia abajo hasta encontrar una celda vac\u00eda en la\n    ' columna A y desde A1 hacia la derecha hasta encontrar una celda vac\u00eda en el rengl\u00f3n 1.\n    Range(\"A1\").Select\n    Range(Selection, Selection.End(xlDown)).Select\n    Range(Selection, Selection.End(xlToRight)).Select\n\n    \n    ' Le asigna la direcci\u00f3n en formato rengl\u00f3n - columna a la variable v_DatosFuente\n    v_DatosFuente = ActiveSheet.Name & \"!\" & Selection.Address(ReferenceStyle:=xlR1C1)\n\n    ' Crea una hoja nueva.\n    Set v_Hoja = Sheets.Add\n    \n    ' Le dice a Excel d\u00f3nde poner la table din\u00e1mica (en este caso, en A3 de la hoja nueva).\n    v_PosPivote = v_Hoja.Name & \"!\" & v_Hoja.Range(\"A3\").Address(ReferenceStyle:=xlR1C1)\n    \n    ' Crea el Pivot Cache a partir de los datos.\n    Set v_PivotCache = ActiveWorkbook.PivotCaches.Create( _\n        SourceType:=xlDatabase, _\n        SourceData:=v_DatosFuente)\n    \n    'Crea una tabla din\u00e1mica a partir del Pivot Cache.\n    Set v_TablaPivote = v_PivotCache.CreatePivotTable( _\n        TableDestination:=v_PosPivote, _\n        TableName:=v_NombrePivote)\n\nEnd Sub\n\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Sub CreaTablaPivote() &#8216; Traducido (y ligeramente modificado) de &#8216; http:\/\/www.thespreadsheetguru.com\/blog\/2014\/9\/27\/vba-guide-excel-pivot-tables Dim v_Hoja As Worksheet Dim v_PivotCache As PivotCache Dim v_TablaPivote As PivotTable Dim v_PosPivote As String Dim v_DatosFuente As String Dim v_NombrePivote As String &#8216; Guarda el nombre que usar\u00e1 &hellip;<\/p>\n<p class=\"read-more\"> <a class=\"more-link\" href=\"https:\/\/auval.com.mx\/blog\/en\/2016\/01\/14\/codigo-para-generar-tablas-dinamicas-vacias\/\"> <span class=\"screen-reader-text\">C\u00f3digo para generar tablas din\u00e1micas vac\u00edas<\/span> Read More &raquo;<\/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-1538","post","type-post","status-publish","format-standard","hentry","category-office"],"_links":{"self":[{"href":"https:\/\/auval.com.mx\/blog\/en\/wp-json\/wp\/v2\/posts\/1538","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/auval.com.mx\/blog\/en\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/auval.com.mx\/blog\/en\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/en\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/en\/wp-json\/wp\/v2\/comments?post=1538"}],"version-history":[{"count":0,"href":"https:\/\/auval.com.mx\/blog\/en\/wp-json\/wp\/v2\/posts\/1538\/revisions"}],"wp:attachment":[{"href":"https:\/\/auval.com.mx\/blog\/en\/wp-json\/wp\/v2\/media?parent=1538"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/en\/wp-json\/wp\/v2\/categories?post=1538"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/en\/wp-json\/wp\/v2\/tags?post=1538"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}