Formato en macro

Formato en macro

' Formato de color

        Range("a1").Interior.ColorIndex = 56

        Range("a2").Interior.Color = VBA.vbRed

        Range("a3").Interior.Color = 122

        Range("a4").Interior.Color = VBA.RGB(125, 1, 255)

    

'Formato de ancho

    Columns("A:A").ColumnWidth = 3.71

   

' Formato de decimales

    Columns("H:K").Select

    Selection.Style = "Comma"

' formato fecha

    Columns("E:E").Select

    Selection.NumberFormat = "m/d/yyyy"

' Agrupación de columnas

    Columns("P:P").Select

    Selection.Columns.Group

    

'AGRUPAR

    

    ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1

    

        

' Cambiar texto

    Range("a1:a1").Select

    ActiveCell.FormulaR1C1 = "AÑO"

    

'INSERTAR FILA   

    Rows("1:1").Select

    Selection.Insert Shift:=xlDown

'MENSAJE EN UNA CELDA

    Range("H1").Select

    ActiveCell.FormulaR1C1 = "Meidbook te da la  bienvenida"

    

'SUBTOTAL EN FORMULA

    Range("H2").Select

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "=+SUBTOTAL(9,R[5]C:R[1048574]C)"

    Range("H2").Select

    Selection.Copy

    Range("I2:k2").Select

    ActiveSheet.Paste

    Range("H2").Select

    Selection.Copy

    Range("bo2").Select

    ActiveSheet.Paste

    

    

'SUMA FORMULA

    Range("H3").Select

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "=+SUM(R[4]C:R[1048573]C)"

'Para copiar la formula a otras celdas

    Range("H3").Select

    Selection.Copy

    Range("I3:k3").Select

    ActiveSheet.Paste

     Range("H3").Select

    Selection.Copy

    Range("bo3").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    ActiveWindow.SmallScroll Down:=-27

    

'INMOVILIZAR PANELES

    Range("H6").Select

    ActiveWindow.FreezePanes = True

    

'ELIMINAR LAS LINEAS

    ActiveWindow.DisplayGridlines = False

    Range("H1").Select

función if macro

 

(919) Curso Excel VBA y Macros - Cap. 17 - Instrucción If...Then...Else para la toma de decisiones - YouTube

Sergio Alejandro Campos - EXCELeINFO

tipos de variables

 

Macros basico

 'Eliminar filas

    

    Rows(5).intererow.Insert

    

 'Eliminar columnas

    Columns(8).EntireColumn.Delete

https://www.youtube.com/watch?v=fLkZAVSRuaY

'tamaño a columna

    

    Columns("D:D").ColumnWidth = 12.14

 'color a una celda

    Range("a3").Interior.Color = 1

https://www.youtube.com/watch?v=hmBS4mN8AMQ&t=435s

'Cambiar el nombre de las celdas

    Range("G11:G12").Select

    ActiveCell.FormulaR1C1 = "RUC"

¿Cómo proteger Macros?

 Solo se debera poner el siguiente mensaje en la parte superior de toda las macros

Option Private Module

Esta es otra opción

activar el bloquear proyecto

esta opción evita que copie o modifiquen el proyecto

¿Cómo desactivar la actualización de la pantalla?

 Muchas veces cuando ejecutamos la macros vemos todo el proceso de la ejecución, lo cual hace incomodo la presentación y para evitar todo ello podemos configurar.

Solo debemos poner al inicio y al final el siguiente texto pero dentro de Sub, end sub

Sub

application.screenupdating = False

Application.ScreenUpdating = True

End Sub

¿Cómo hacer que las tablas dinámicas se actualicen de forma automática?

Seguro como la gran mayoría  actualizas la tabla dinámica cada vez que haces un cambio, si es así tengo una buena noticia, se puede programar para que se haga solo.

Lo que tienes que haces dar click a la tecla ALT+F11
ahora deberás dar doble click sobre la hoja que tienes la tabla dinámica, para mi caso es gerencia y deberás copiar el texto, tener las opciones del titulo, cambiar el nombre de la tabla para mi caso es gerencia, guardar y cerrar.



Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("Gerencia").PivotCache.Refresh
End Sub

Si gusta yo puedo ayudarte, solo escríbeme