No tienes acceso a esta clase

¡Continúa aprendiendo! Únete y comienza a potenciar tu carrera

Grabar y correr macros

6/17
Recursos

Aportes 157

Preguntas 10

Ordenar por:

¿Quieres ver más aportes, preguntas y respuestas de la comunidad?

2 tips que está realizando la profesora y son importantes mencionar para un buen manejo de grabador de macros:
.

  1. Atajos de teclado sobre la selección por mouse.
    Ejemplo: Una selección hacia la derecha (Ctrl + Shit + Tecla der.) te da una posición final relativa mientras que la selección por mouse te da posición final absoluta. Una posición final relativa (atajo de teclado) es más flexible y hará que la Macro aplique incluso los estilos a nuevas columnas que se creen en el futuro, mientras que eso no ocurre en la selección por mouse, únicamente aplicará estilos a la selección inicial.
    .
  2. Crear copia de la hoja, libro sobre la que usará la macro.
    Esto es importantísimo: Después de ejecutar una macro observarás que no puedes usar Ctrl + Z (undo), así que si estabas avanzando un trabajo, no guardaste y ejecutas una macro podrías perder los datos trabajados. Siempre ejecuta la macro sobre copias hasta que tu ejecución sea la deseada. Nunca pares de aprender ni de ser precavido 😅

Mi recomendación es nunca grabar sobre el mismo libro sino en el libro personal . Si quieren correr la macro en otro libro después van a tener que abrir siempre el mismo libro para trabajar, mientras que si la hacen con el personal la pueden integrar en cualquier libro que abran.

Hoy es el mejor día de mi vida. Esta función me acaba de solucionar la vida!

Lo que hace la prof en el min 3:29 es aplicar AUTOAJUSTAR ANCHO DE COLUMNA que se encuentra en la pestaña Inicio y sección Formato

Este video llegó a mi vida tarde. 😦
Me hubiera servido en mi anterior empleo.
Igual lo voy a aprender

Hola, agrego lo siguiente:

- Formato final

- Código VBA

Un tip que me resulta útil es que podemos copiar una hoja así: presionando tecla CTRL + Click en el nombre de la hoja arrastramos a la posición que queramos en la barra que aparecen las demás hojas.

Hola Ana!, excelente la funcionalidad de grabar macro macros, es muy util! Solo un detalle respecto al contenido al inicio del video dices que el libro está en .xlsm, pero realmente está en .xlsx

Recomendación importante: esta macro puede cambiar cualquier hoja del libro, para que esto solo pase en una hoja de libro, al grabar la macro en sus proyectos debemos seleccionar al inicio la hoja donde siempre se ejecutará la macro , en VBA aparecerá lo siguiente:

Sub Macro()

'
Sheets(“Netflix”).Select

Resumen de clase:
En Visual Basic, grabar y correr macros se refiere al proceso de grabar una serie de acciones realizadas en una aplicación de Microsoft Office (como Excel, Word o PowerPoint) y luego reproducirlas automáticamente utilizando código de Visual Basic por Applications (VBA). Esto es útil cuando deseas automatizar tareas repetitivas o realizar acciones complejas que no se pueden lograr fácilmente con las funciones y características incorporadas.
El proceso general para grabar y correr macros en Visual Basic es el siguiente:

  1. Abre la aplicación de Office en la que deseas grabar la macro (por ejemplo, Excel).
  2. En la pestaña “programador” en la cinta de opciones. Si no ves esta pestaña, es posible que debas habilitarla en la configuración de la aplicación.
  3. Haz clic en el botón “Grabar macro” (también puede llamarse “Grabar nueva macro” o similar). Aparecerá un cuadro de diálogo para configurar la macro.
  4. Proporciona un nombre para la macro y, opcionalmente, una descripción.
  5. Selecciona dónde deseas guardar la macro: en el libro actual (documento) o en el archivo personal de macros.
  6. Aceptar y comienza a realizar las acciones que deseas grabar. Se puede realizar cualquier acción que normalmente harías en la aplicación.
  7. A terminar de realizar las acciones, regresa a la pestaña “programador” y haz clic en el botón “Detener grabación” (puede llamarse de manera similar).
  8. Ahora, la macro está grabada y lista para ser ejecutada. Puedes ejecutarla haciendo clic en el botón “Macros” en la pestaña “programador” y seleccionando la macro que deseas ejecutar.

Ame esta clase.

Aquí el código de mi macro

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1:B1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A8783").Select
    ActiveWindow.SmallScroll Down:=-45
    Range("A8738").Select
    Range(Selection, Selection.End(xlUp)).Select
    Cells.Select
    Cells.EntireColumn.AutoFit
    Columns("D:F").Select
    Selection.EntireColumn.Hidden = True
    Range("D1").Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Font.Bold = True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent5
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A1:B1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("C1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("B1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("A1").Select
End Sub

A la hr de Guardar macro en: es importante tener en cuenta que:

  • Libro de macros personal: la macro se guarda y la puedes ejecutar en cada libro de excel que abras. El atajo que coloques en Tecla de método abreviado te servirá siempre que tengas excel abierto.

  • Este libro: la macro sólo se ejecutará en ese libro de excel en el que estés trabajando.

Comparto el antes, el después y mi código:
.

.
Además de lo explicado por Ana, quise hacer una limpieza de la base de datos (en especial el campo “Fecha Agregación”). Quería darle el formato FECHA DIA/MES/AÑO para que luego sea fácil filtrar por temporalidad.
.
Y así queda el después:
.

.
Comparto mi captura del código:
.

Dar Formato a archivo de Pelicula de Neflix asi quedo parte de la sintaxis en formato Negro de Entorno.

Me di cuenta que me aparecia un error al ejecutar la macro, pero viendo el codigo resulta que la grabacion de las instrucciones las hacia poniendo “control + T” para dar un formato rapido a las tablas, lo que no me di cuenta es que en el codigo ya quedaba ligado con esa tabla y al duplicar una pestaña y ejecutar el macro en esta, ella me generaba error ya que las instrucciones hacian referencia a otra tabla.

en los recursos de la clase no me aparece el archivo, si alguien lo tiene pásenmelo, por favor

Si quisieran cambiar a un modo oscuro el editor de código de Visual Basic es posible hacerlo siguiendo este tutorial y se puede con este aspecto:

Espero les sea de ayuda. 🐺🥚🥚

Genial que se pueda hacer de manera automática algunos macros…comparto el code del macro que grabe.

Mi código tiene muchas lineas por que hice muchos pasos innesarios .

Adjunto Visualización de la macro que he realizado, donde convierte los datos a formato tabla.

Así quedo mi código en Visual Basic, me sigo sorprendiendo mucho que se puede hacer con macros, enserio te puede ahorrar mucho tiempo haciendo siempre lo mismo

Cuando estoy trabajando con base de datos me parece muy tedioso el tema de hacer que todo este ordenado pero ya sabiendo como se utilizan las macros me ahorro mucho trabajo.

Esto facilita demasiado la vida

![](https://static.platzi.com/media/user_upload/image-fdfd9d0b-f036-4b61-be5b-3ad218ead5ef.jpg) ![](https://static.platzi.com/media/user_upload/image-c9ae5a16-93c4-4ade-b347-e30df3995390.jpg)![](https://static.platzi.com/media/user_upload/image-d33952f4-e584-4bc5-9c94-f650810ac7a8.jpg) ![](https://static.platzi.com/media/user_upload/image-28d72606-f262-444b-95e9-355b84c9afd2.jpg)
![](https://static.platzi.com/media/user_upload/image-da9cdfe2-e6b8-4bd6-989a-dac468c2e901.jpg) Al correr la macro y abrir el entorno de visual basic, no me sale el código, saben que puede estar pasando ? ![]()
Captura de pantalla ![](https://static.platzi.com/media/user_upload/image-23dab1a6-61cb-4f3c-b6e4-28598c9f6b69.jpg)![](https://static.platzi.com/media/user_upload/image-f4c0a8a8-aa8b-441c-a0ec-dff97c3774fa.jpg)
![](https://static.platzi.com/media/user_upload/image-cce7c9e0-4798-437e-b608-5e9a855372da.jpg)
La profe explica muy bien!!!!!!!
Sí, se puede optimizar el código en VBA después de grabar la macro. Excel tiende a generar pasos innecesarios, lo cual puede hacer que el código sea más largo y menos eficiente. Para optimizarlo, puedes abrir el entorno de Visual Basic y revisar la macro grabada. Identifica y elimina las líneas de código que no son necesarias. También puedes agrupar acciones similares en una sola línea o crear funciones y subrutinas para mejorar la legibilidad y el rendimiento. Aprender a escribir código VBA más limpio y eficiente es una excelente habilidad que complementa el uso de macros en Excel.
![](https://static.platzi.com/media/user_upload/%7BFC85F86C-12F0-4B70-BF11-4E6EBB45F9A1%7D-68036ed6-8afe-4438-a032-541adc1f8e72.jpg)
![](https://static.platzi.com/media/user_upload/image-60c62022-5f17-4408-a6a2-11da8225db91.jpg)
![](https://static.platzi.com/media/user_upload/image-deafae2d-d84d-448b-a073-3621bafcbff1.jpg)
![](https://static.platzi.com/media/user_upload/image-c6c0f4a9-ed84-4e39-b97e-b69ce5913e5d.jpg)
![](https://static.platzi.com/media/user_upload/image-cfa3a1c8-307d-4f22-a117-8e8d25a208db.jpg)![](https://static.platzi.com/media/user_upload/image-d876199d-32cf-460f-97b5-45504a10ed98.jpg)
![](https://static.platzi.com/media/user_upload/image-3fcf9e9f-0fe3-43da-9bd1-5246e8f22628.jpg)
no se, si hubo un error pero acabo de probar mi macro y me sale la leyenda de error de compilacion procedimiento demasiado largo
![](https://static.platzi.com/media/user_upload/image-87f30318-3aea-4628-8154-473f965ab99f.jpg)
Esto esta súper para ganar mucho tiempo...
![](https://static.platzi.com/media/user_upload/image-9477eed4-f5d1-4fb5-9300-6da596b259fb.jpg)
![](https://static.platzi.com/media/user_upload/Grabacion%20de%20Macro-f4632438-25c6-4ad4-9f00-c81709f1be3d.jpg)
![](https://static.platzi.com/media/user_upload/Ejercicio1_Grabar%26Correr_Macros-da2748a1-4906-4796-83cf-dcae39a1ac65.jpg)
![](https://static.platzi.com/media/user_upload/image-9e047b13-2217-4baa-a412-a73072cbba1b.jpg)
![](https://static.platzi.com/media/user_upload/image-d4878144-4c60-4661-b55a-e2684556e8a9.jpg)
![](https://static.platzi.com/media/user_upload/image-99ca5650-3888-4f99-ae64-5f95b925aed9.jpg) No se ve del todo pero esto es la captura de pantalla de mi visual basic
Yo estuve practicando con una data de mi empresa que quiero automatizar![](https://static.platzi.com/media/user_upload/Captura-913bd558-75e1-45dc-b121-1c97442bbc17.jpg)```js ```![]()
Como hago para verlo
Ya hice la macro pero en el entorno de Visual no me deja ver el codigo ![](https://static.platzi.com/media/user_upload/image-5fe9ced5-943c-4dec-b05d-e62c7f3cc3c5.jpg)
Listo! Con testeo y todo.
Buen dia, yo tuve un error 91 pido de tu ayuda para entender por que.
Entorno VBA primer macro ![](https://static.platzi.com/media/user_upload/Macro1-11e494b4-ebc6-4dfe-95cb-44c365b3a03b.jpg)
![](https://static.platzi.com/media/user_upload/image-893a7116-2496-4ad6-bb9c-851756639aab.jpg)
Comparto la captura de mi código. ![]()![]()![]()![](https://static.platzi.com/media/user_upload/MACRO%20RIVERA%20CHINCHAY-8d9f5038-03b0-456e-8337-f42a805328fd.jpg)
![](https://static.platzi.com/media/user_upload/image-833278a2-296f-4ad3-9557-788e2746719f.jpg)
![]()![](https://static.platzi.com/media/user_upload/image-da9f3aa7-7a23-472d-b295-1e33f7dc3b08.jpg)![](https://static.platzi.com/media/user_upload/image-4601bdee-9bb0-461d-9fbe-19518ad81090.jpg)
El mío se ve así: ![](https://static.platzi.com/media/user_upload/image-7f1e4109-623d-43e2-9184-266586df7242.jpg)
Adjunto mi Codigo en el entorno de Visual Basic, Brutal ![](https://static.platzi.com/media/user_upload/image-4c5aea17-6a11-4c17-b683-084d772168a5.jpg)![]()
![](https://static.platzi.com/media/user_upload/MacroFormato-1a6d289d-d5e2-4920-8d6c-f41a48324e03.jpg)
Que buen tip, con esto se ahorra mucho tiempo . Aqui muestro mi codigo para quitar deuplicados de la base de datos.```js ```![](https://static.platzi.com/media/user_upload/Captura%20de%20pantalla%20%284%29-a6b838d0-8c97-4434-b879-7ee66513e0a1.jpg)
Así quedó el código de mi macro. Las instrucciones que le di fue que seleccionara la fila "1:1" y le diera un formato condicional a las celdas de esa fila no estén vacías (El formato es letra "Negrita" y fondo de la celda "Azul, Énfasis 5, Claro 60%"). Luego, seleccionar la columna "A:A" y darle el formato Negrita, usando la misma condición anterior. ![](https://static.platzi.com/media/user_upload/image-74ea3bf5-e7f5-442e-a3ab-86b236c8ce66.jpg)
![](https://static.platzi.com/media/user_upload/ENTORNO%20CISUAL%20BASIC-b9dee5b0-a228-4672-b0f2-e30da1f8cdab.jpg)
![](https://static.platzi.com/media/user_upload/Captura%20de%20pantalla%202023-12-27%20a%20la%28s%29%2020.18.27-276e47de-7b12-4cdf-b247-098340218b82.jpg)Wow, es genial simplificarse la vida en Excel.

Para los que no saben como ajustó el ancho de todas las columnas, pueden hacerlo así:

  1. Te posicionas en la celda A1 y con ctrl+shift+flecha derecha, vas a seleccionar todos los encabezados.

  2. Presionas ctrl + espacio para seleccionar todas las columnas.

  3. Ajusta una columna dando doble clic sobre la división de 2 columnas y listo.

Otra forma podría ser presionar ctrl+e para seleccionar todos los datos, luego ctrl+espacio para que selecciones la longitud completa de las columnas y luego ajustas una columna con doble clic y se aplicará para todas.

Mi cod de macro en Visual Basic

Excelente!

Aqui + aporte macros !
![](https://static.platzi.com/media/user_upload/Excel_Macros%20%2B%20Run%20%2B%20Netflix_5%20%2B-2ada47aa-2180-4c9f-a010-af22b7eba4f0.jpg)
1. ![](https://static.platzi.com/media/user_upload/image-ddf27b00-12db-4427-82c4-908f32c06cd4.jpg)
Algo así quedo mi entorno de Visual Basic con mi macro, que genial esta este temaaa! ![](https://static.platzi.com/media/user_upload/image-0e3a234e-06eb-4ac4-b852-d5cc5f8e3e4d.jpg) ![](https://static.platzi.com/media/user_upload/image-9a42e708-7fb1-460a-b0e4-18614863bf03.jpg)
Así quedo :) ![](https://static.platzi.com/media/user_upload/image-de212a5d-2516-4f92-92a2-2744afbc7cce.jpg)![]()
![](https://static.platzi.com/media/user_upload/image-9f0f160e-632b-4e0e-9be9-24ba91461826.jpg)
no me aparece el recurso a trabajar

Interesante clase, considero que si no se ha trabajado antes con macros, aparte de esta clase se debe ver otros tutoriales y practicar para reforzar este tema.

Grafico 2

no me deja ver el archivo de Excel en los recursos

ASi se mira mi primer Macro en Excel. Como se evidencia, me arrepenti del color inicial escogido, jajaja

Buen dia,

Comparto mi aporte.

Poniendo en práctica los conocimientos adquiridos anoche.

Mi primera macro 😃

La grabación y ejecución de macros en Excel posibilita automatizar tareas repetitivas al capturar y reproducir acciones en documentos. Esto se hace desde la pestaña “Programador”, grabando pasos como formato, ajustes y ocultamiento, para luego detener la grabación y replicar el código en el entorno de Visual Basic. La macro resultante puede ejecutarse desde “Macros” en la pestaña “Programador”, ahorrando tiempo y optimizando la labor manual en el archivo.

![](

Que maravilla.

Sub Formato()

’ Formato Macro
’ Para organizar los formatos

'
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Columns(“F:F”).EntireColumn.AutoFit
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range(“D12”).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Columns(“D:D”).Select
Selection.EntireColumn.Hidden = True
Columns(“E:E”).Select
Selection.EntireColumn.Hidden = True
Columns(“F:F”).Select
Selection.EntireColumn.Hidden = True
Range(“B6”).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
End Sub

Hola, este es el ejercicio que hice:

Me hubiera ayudado saber esta información en mi anterior empleo, pero me va ayudar mucho en el próximo trabajo que vaya a estar. Muchas gracias!!

Comparto mi aporte, estoy trabajando co un documento que clasifica empleados según su localidad física, mi macro filtra y elimina de la tabla las localidades que no son útiles para mi reporte.

Sub formatoM()
'
' formatoM Macro
'

'
    Range(Selection, Selection.End(xlToRight)).Select
    With Selection.Font
        .Name = "Calibri"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With Selection.Font
        .Name = "Abadi"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection.Font
        .Name = "Calibri"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Font
        .Name = "Calibri"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Columns.AutoFit
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Columns("D:F").Select
    Selection.EntireColumn.Hidden = True
    Range("A1").Select
End Sub

🤘

Recomiendo el uso de los atajos ctrl+espacio y shift+espacio.

Así me quedo despues de ensayo y error XD

Hola a todos, mi codigo de Visual Basic se ve así

Al parecer es le mejor día de mi vida, esto me ahorrara mucho tiempo 😉

🎯 NOTA: ¿Luego de aplicar la macro intentaron hacer Ctrl + z para deshacer lo que la macro hizo? No? pues yo lo intenté y no deshace lo que hace, eso siginifica que después de aplicada una macro los cambios no se pueden deshacer. Por eso se recomienda aplicarla a una copia del archivo original primero y trabajar sobre ese, si se puede, si no, entonces probar las macros en la copia del archivo original y despues de estar seguros, ahora si aplicarlo al original.