Lo que hacemos primero es abrir una hoja de Excel y vamos a Vista->Macros->Grabar nueva macro.
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvWABJuJv-49Wjdw31OZor6vduJV4Fwc8eO2Lge_HXOiq_Y26ao-mvnb8xaQardxDvSA-ODnUYaK3iMs1NAy6G22UA3FXW4SDGFowTrnrAQ0G8iuYnbjnoAiQqs0ZfBfgezXpkemrm2bA/s320/Snap2.jpg)
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAAIE_uMkc65V0E4M5E7_Q5BqtXXAGpRGvjCGraqBGPTLyF1XD0iPJsfiNfbwMvjdCUweddWTjMaz6mWYGOFUfbTrA62BBE90cSBgc82ReLMS3Nihy-MpUDYVC-p6gUrMv89RIVyH1kFc/s320/Snap3.jpg)
Aceptamos y detenemos la grabacion (podemos ver que abajo hay un boton de Stop, le damos click y detenemos la grabacion).
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-2nC3-50wGyZuxfd0FEDgXRa_z5wvAzEZLQgj2oZ2JjQFOOOAwNvJ-o5PwWFdrbyr2yHsRTi0rSGQIXu0FDhXSAS67OoZfvN9a0Q71_B8iLajRQkqCBrgnzaa-iXadfGXo8RaEPGn9fE/s320/Snap4.jpg)
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEicbtaOa-PL88qJjHZ-kJUUK3PfYNQETOfMZ3pTVCp6c1zRUtDvz-xi6ToceFHF-YaHV8moDFYPr7yN9w7ZxkjnDgoDmLI8Bhqxg-i6uypwt52qct4SI90FBWGpMMbuNXD0k0CVrhtjsKU/s320/Snap5.jpg)
Sub Upper_to_Lower() ' ' Upper_to_Lower Macro ' by XSaint ' ' Acceso directo: CTRL+x ' End Subcomo ven aqui solo contiene comentarios, no tiene codigo. Lo que vamos a hacer es implementar esta macro con el siguiente codigo. Para esto nos ubicamos una linea antes de End Sub y ponemos este codigo:
stone=ActiveCell.Value If VarType(stone)=8 Then ActiveCell.Value=UCase(stone) End If ActiveCell.Offset(1,0).Selectquedando asi:
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsM1wCPcO7aISar0YZ0QjNQj_kVgYnutoNyq4jTm7o4r9scIsDjlWY7fjZuMH_3GtY3B9QS_n4ZhMxhXHJoQpwede5jqRyPdkfGj1mBHl88DVtK93xPiMX6sO49Rz0bj9MIHNTS1Cf1yo/s320/Snap6.jpg)
Ahora si queremos pasar de minusculas a mayusculas hacemos todos los pasos que hicimos anteriormente, cambiando el nombre de la macro y el atajo de teclado que puede ser la combinacion de teclas que deseen menos el Ctrl+x que pusimos arriba.
y el codigo que van a poner es este:
basement = ActiveCell.Value If VarType(basement) = 8 Then ActiveCell.Value = LCase(basement) End If ActiveCell.Offset(1, 0).Selectcomo ven se parece mucho al que implementamos anteriormente salvo el metodo que estamos llamando que en este caso es LCase.
y podemos ver como queda.
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKNxCICT6skqVCKci1HEoRP2YuaXRnQhuCNaavT8QuHo11XubTFeBLbgi_nHxzXCGcKTUVwF2wyOa4yDLBE6TltfDnuR9N_GXKD61PhAZR8ccmSu6L_NSwcF2od8Z-NPa5xKttbaURDRw/s320/UpperLower.gif)
0 comentarios:
Publicar un comentario