{"id":2566,"date":"2016-06-25T10:15:47","date_gmt":"2016-06-25T15:15:47","guid":{"rendered":"http:\/\/itsoftware.com.co\/content\/?p=2566"},"modified":"2020-11-19T16:41:59","modified_gmt":"2020-11-19T21:41:59","slug":"macro-excel-para-aplicar-formato","status":"publish","type":"post","link":"https:\/\/itsoftware.com.co\/content\/macro-excel-para-aplicar-formato\/","title":{"rendered":"Macro Excel para aplicar formato num\u00e9rico a columnas"},"content":{"rendered":"

En ocasiones cuando se traen datos a Excel, hay columnas que tienen en un formato, pero cuando le aplicamos otro, a veces Excel no lo toma sino hasta cuando vamos a cada celda y damos enter sobre ella, con muchos datos en la columna, es muy tedioso realizar esta tarea. Ese es el fin de este art\u00edculo sobre una Macro Excel para aplicar formato num\u00e9rico a columnas.<\/p>\n

\"Macro<\/a>
Formato Excel<\/figcaption><\/figure>\n

Esta peque\u00f1a Macro Excel para aplicar formato , se encarga de solucionar y agilizar este problema:<\/p>\n

<\/p>\n

Esta Macro Excel para aplicar formato aplica para la columna \u00abE\u00bb, puede ser modificada para la columna que deseemos.<\/p>\n

Sub apli_formato()\n\n   fila = 1\n\n   columna = \"E\"\n\n   rango = columna & fila\n\n   While (Sheets(1).Cells(fila, 1).Value <> \"\")\n\n       Range(rango).Select\n\n       ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1\n\n       fila = fila + 1\n\n       rango = columna & fila\n\n   Wend\n\nEnd Sub<\/pre>\n
Esta funci\u00f3n se encarga de recorrer una a una todas las filas de la columna E, aplicando la f\u00f3rmula existente en cada celda a ella misma, de esta forma se simula el efecto del enter que aplica el formato que deseamos.<\/p>\n
Este mismo ciclo puede ser usado en multitud de macros, porque permite ubicarse en una columna espec\u00edfica de una hoja, para luego recorrerla hasta el final donde hayan datos disponibles.<\/p>\n
Tambi\u00e9n te puede interesar leer Encontrar datos repetidos en una tabla de Excel o de una base de datos<\/a> <\/em><\/p><\/blockquote>\n
Las macros de Excel son una herramienta poderosa para complementar las funciones incorporadas en los programas Office, permiten realizar tareas que no se pueden realizar con las funciones disponibles, o en las que las funciones incorporadas no son suficientes para el prop\u00f3sito que buscamos. La macro pude tomar una funci\u00f3n incorporada para aplicarla de manera autom\u00e1tica en ciertas partes del documento, de acuerdo a nuestra l\u00f3gica de programaci\u00f3n en Visual Basic, y as\u00ed lograr el objetivo que deseamos.<\/p>\n
Este es un servicio de divulgaci\u00f3n de conocimiento de ITSoftware SAS<\/a>, si usted requiere un servicio de automatizaci\u00f3n de macros, puede contactarse con nosotros para poder tener el gusto de asesorarlos.<\/p>\n","protected":false},"excerpt":{"rendered":"
En ocasiones cuando se traen datos a Excel, hay columnas que tienen en un formato, pero cuando le aplicamos otro, a veces Excel no lo toma sino hasta cuando vamos[…]<\/p>\n","protected":false},"author":1,"featured_media":8679,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[230,229],"tags":[719,322,713,718,140],"class_list":["post-2566","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-macros-2","category-ms-office","tag-formatos-excel","tag-macro","tag-macro-excel","tag-macro-vba","tag-visual-basic"],"aioseo_notices":[],"jetpack_featured_media_url":"https:\/\/itsoftware.com.co\/content\/wp-content\/uploads\/2016\/06\/formato-excel-1.png","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/posts\/2566","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/comments?post=2566"}],"version-history":[{"count":0,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/posts\/2566\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/media\/8679"}],"wp:attachment":[{"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/media?parent=2566"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/categories?post=2566"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/itsoftware.com.co\/content\/wp-json\/wp\/v2\/tags?post=2566"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}