Macro Meidbook

Cap. 8 - Acelera tu aprendizaje en objetos, propiedades y métodos

Cap. 9 - Referencia y escritura en celdas, rangos, filas y columnas

Cap. 10 - Propiedades más usadas para trabajar con rangos de celdas

Cap. 11 - Copiar, Autofiltro, Ordenar, Borrar, Insertar comentarios y más

Cap. 12 - Referencias a hojas, propiedades y mejores prácticas

Cap. 13 - Archivos, abrir, cerrar, guardar y referencias a libros

Cap. 14 - Variables, constantes y tipos de datos para optimizar memoria

Cap. 15 - Variables de objeto y la instrucción SET

Como evitar que copien tus archivos de excel a otro excel

Private Sub Workbook_Open()

Application.OnKey "^{c}", "" 'anula copiar

Application.OnKey "^{x}", "" 'anula cortar"

Application.OnKey "^{v}", "" 'anula pegar

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Cancel = True

End Sub

Video

https://youtu.be/tCTD_dxgJz4

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

Las teclas de función que debes conocer en Excel 1

 Las teclas de función que debes conocer en Excel

Los expertos de Excel Total recopilan las teclas de función más importantes en Excel:

F1: Muestra la ayuda de Excel

F2: Entra en modo de edición para la celda activa

F3: En caso de existir un nombre definido, muestra el cuadro de diálogo Pegar nombre.

F4: Repite la última acción. Además, al escribir una fórmula permite cambiar entre referencias relativas, absolutas y mixtas.

F5: Muestra el cuadro de diálogo Ir a.

F6: Moverse entre los paneles de un libro dividido.

F7: Muestra el cuadro de diálogo Ortografía.

F8: Activa el modo Ampliar selección que permite aumentar el rango seleccionado utilizando las teclas de dirección.

F9: Calcula el resultado de las fórmulas de todas las hojas de los libros abiertos.

F10: Activa la barra de menús.

F11: Crea una hoja de gráfico con el rango de celdas seleccionado.

F12: Muestra el cuadro de diálogo Guardar como.