No tienes acceso a esta clase

隆Contin煤a aprendiendo! 脷nete y comienza a potenciar tu carrera

Grabar y correr macros

6/17
Recursos

Aportes 137

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(鈥淣etflix鈥).Select

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

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 鈥淔echa 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.

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.

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 鈥渃ontrol + 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鈥omparto 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-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 鈥淧rogramador鈥, 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 鈥淢acros鈥 en la pesta帽a 鈥淧rogramador鈥, 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鈥).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(鈥淒12鈥).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Columns(鈥淒:D鈥).Select
Selection.EntireColumn.Hidden = True
Columns(鈥淓:E鈥).Select
Selection.EntireColumn.Hidden = True
Columns(鈥淔:F鈥).Select
Selection.EntireColumn.Hidden = True
Range(鈥淏6鈥).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.

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 鈥減rogramador鈥 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 鈥淕rabar macro鈥 (tambi茅n puede llamarse 鈥淕rabar 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 鈥減rogramador鈥 y haz clic en el bot贸n 鈥淒etener 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 鈥淢acros鈥 en la pesta帽a 鈥減rogramador鈥 y seleccionando la macro que deseas ejecutar.
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.

A continuaci贸n comparto el macro de formato de mi documento.Cabe mencionar, seguro muchos lo saben, pero seguro muchos no, que cada movimiento que se haga queda grabado, hasta el scroll con el maouse, as铆 que como yo di unos de mas, los borre directamente, teniendo mucho cuidado de no modificar nada mas y esa operacion adicional innecesaria quedo eliiminada y me evito hacer nuevamente todo el procedimeinto de la grabacion del macro.

Sub Formato()
'
' Formato Macro
' Hace una trasformacion visual de los datos de la hoja.
'

'
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Columns("K:K").EntireColumn.AutoFit
    Columns("K:K").EntireColumn.AutoFit
    Columns("K:K").EntireColumn.AutoFit
    Selection.Columns.AutoFit
    Columns("D:F").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Columns("C:C").EntireColumn.AutoFit
    ActiveWindow.SmallScroll Down:=675
    ActiveWindow.ScrollRow = 681
    ActiveWindow.ScrollRow = 1
    Rows("1:1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
    Rows("1:1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("G:G").Select
    Selection.NumberFormat = "m/d/yyyy"
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Rows("1:1").Select
    Selection.Font.Bold = True
    Range("A2").Select
End Sub

As铆 que, esto es muy interesanto y muy optimo para procesos repetitivos.

Buena clase

ella te habla directamente del codigo pero no te ense帽a paso a paso como crear tu coidgo ,鈥

Gente, esto me ha parecido important铆simo y 煤til para aumentar la eficiencia y eficacia en nuestras actividades laborales. 馃槃

Hola a todos, comparto imagen de la macro realizada:

Buenas tardes,
comparto con ustedes mi codigo.
Sub LIMPIAR()

鈥 LIMPIAR Macro

'
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
Columns(鈥淚:K鈥).Select
Range(鈥淜1鈥).Activate
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Columns(鈥淐:F鈥).Select
Range(鈥淔1鈥).Activate
Selection.Delete Shift:=xlToLeft
Rows(鈥1:1鈥).Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$8808").AutoFilter Field:=4, Criteria1:=Array( _
鈥1942鈥, 鈥1943鈥, 鈥1944鈥, 鈥1945鈥, 鈥1946鈥, 鈥1947鈥, 鈥1954鈥, 鈥1955鈥, 鈥1956鈥, 鈥1958鈥, 鈥1959鈥, _
鈥1960鈥, 鈥1961鈥, 鈥1962鈥, 鈥1963鈥, 鈥1964鈥, 鈥1965鈥, 鈥1966鈥, 鈥1967鈥, 鈥1968鈥, 鈥1969鈥, 鈥1970鈥, _
鈥1971鈥, 鈥1972鈥, 鈥1973鈥, 鈥1974鈥, 鈥1975鈥, 鈥1976鈥, 鈥1977鈥, 鈥1978鈥, 鈥1979鈥, 鈥1980鈥, 鈥1981鈥, _
鈥1982鈥, 鈥1983鈥, 鈥1984鈥, 鈥1985鈥, 鈥1986鈥, 鈥1987鈥, 鈥1988鈥, 鈥1989鈥, 鈥1990鈥, 鈥1991鈥, 鈥1992鈥, _
鈥1993鈥, 鈥1994鈥, 鈥1995鈥, 鈥1996鈥, 鈥1997鈥, 鈥1998鈥, 鈥1999鈥, 鈥2000鈥, 鈥2001鈥, 鈥2002鈥, 鈥2003鈥, _
鈥2004鈥, 鈥2005鈥, 鈥2006鈥, 鈥2007鈥, 鈥2008鈥, 鈥2009鈥, 鈥2010鈥, 鈥2011鈥, 鈥2012鈥, 鈥2013鈥, 鈥2014鈥, _
鈥2015鈥, 鈥2016鈥, 鈥2017鈥, 鈥2018鈥, 鈥2019鈥, 鈥2020鈥, 鈥2021鈥), Operator:=xlFilterValues
Rows(鈥2:2鈥).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
End Sub

Las macros muy practicas

![](

Es super la macros鈥!