{"id":1339,"date":"2014-05-28T16:51:09","date_gmt":"2014-05-29T00:51:09","guid":{"rendered":"http:\/\/www.auval.com.mx\/notas\/?p=1339"},"modified":"2014-05-28T16:51:09","modified_gmt":"2014-05-29T00:51:09","slug":"macro-para-cambiar-a-mayusculas-con-una-tecla","status":"publish","type":"post","link":"https:\/\/auval.com.mx\/blog\/2014\/05\/28\/macro-para-cambiar-a-mayusculas-con-una-tecla\/","title":{"rendered":"Macro para cambiar a may\u00fasculas con una tecla."},"content":{"rendered":"<p>Hoy Flavia me coment\u00f3 que ella usaba una combinaci\u00f3n de teclas para cambiar a may\u00fasculas unas celdas de Excel. Sab\u00eda que se pod\u00eda en Word, con Shift-F3. Revisando en el sabio Google, encontr\u00e9 esta liga que tiene una macro para hacerlo. Modifiqu\u00e9 la macro para que pregunte qu\u00e9 queremos hacer: may\u00fasculas, min\u00fasculas o nombre propio.<\/p>\n<p>https:\/\/groups.google.com\/forum\/#!topic\/microsoft.public.excel\/xP5tEw4Jsb0<\/p>\n<p>Aqu\u00ed est\u00e1n las instrucciones resumidas para hacerlo:<br \/>\na) Activen el archivo de macros personales. Vayan a Ver &#8211; Macros &#8211; Grabar \/ View &#8211; Macros &#8211; Record.<br \/>\nb) Digan que van a grabar la macro12345 en el nombre, y la guardan en el archivo de macros personales.<br \/>\nc) Den click en cualquier celda.<br \/>\nd) Detengan la grabaci\u00f3n en el cuadrito azul que aparece en la parte inferior izquierda de la pantalla de Excel.<br \/>\ne) Opriman Alt F11.<br \/>\nf) Si no aparece nada, opriman Ctrl R para ver el navegador de archivos en el editor de macros.<br \/>\ng) Den doble click en el archivo de macros personales que dice VBAProject Personal.<br \/>\nh) Den doble click en los m\u00f3dulos o modules.<br \/>\ni) Den doble click en el M\u00f3dulo1 o Module1.<br \/>\nj) Copien y peguen este c\u00f3digo de macro que pongo abajo en el cuadro que les apareci\u00f3. Necesitan copiar desde Sub hasta End Sub.<\/p>\n<pre class=\"lang:default decode:true\">Sub Cambiar_a_May\u00fasculas()\n    Dim v_Celda As Range\n    Dim v_cambio As String\n    v_cambio = InputBox(\"\u00bf&lt;M&gt;ay\u00fasculas, m&lt;I&gt;n\u00fasculas o nombre &lt;P&gt;ropio?\")\n    For Each v_Celda In Selection\n        Select Case UCase(Left(v_cambio, 1))\n            Case \"M\"\n                v_Celda = UCase(v_Celda)\n            Case \"I\"\n                v_Celda = LCase(v_Celda)\n            Case \"P\"\n                v_Celda = Application.WorksheetFunction.Proper(v_Celda)\n        End Select\n    Next v_Celda\nEnd Sub\n<\/pre>\n<p>k) Opriman Alt F8.<br \/>\nl) Den click en Cambiar_a_May\u00fasculas.<br \/>\nm) Den click en Opciones \/ Options.<br \/>\nn) Seleccionen una A may\u00fascula para que corran la macro con Ctrl Shift A (o la letra que quieran).<br \/>\n\u00f1) Den click en donde dice VBAProject Personal y opriman el disco azul que aparece en la parte superior de la pantalla, para grabarlo.<\/p>\n<p>Listo.<\/p>\n<p>Cierren todo y ya est\u00e1n listos para oprimir Ctrl Shift A y cambiar a may\u00fasculas lo seleccionado.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Hoy Flavia me coment\u00f3 que ella usaba una combinaci\u00f3n de teclas para cambiar a may\u00fasculas unas celdas de Excel. Sab\u00eda que se pod\u00eda en Word, con Shift-F3. Revisando en el sabio Google, encontr\u00e9 esta liga que tiene una macro para &hellip;<\/p>\n<p class=\"read-more\"> <a class=\"more-link\" href=\"https:\/\/auval.com.mx\/blog\/2014\/05\/28\/macro-para-cambiar-a-mayusculas-con-una-tecla\/\"> <span class=\"screen-reader-text\">Macro para cambiar a may\u00fasculas con una tecla.<\/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":[2,3],"tags":[],"class_list":["post-1339","post","type-post","status-publish","format-standard","hentry","category-excel","category-office"],"_links":{"self":[{"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/posts\/1339","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=1339"}],"version-history":[{"count":0,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/posts\/1339\/revisions"}],"wp:attachment":[{"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/media?parent=1339"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/categories?post=1339"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/tags?post=1339"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}