VBA FORMULARIOS Práctica 11

 

 

 

 

 

MICROSOFT AVANZADO Y EXPERTO

 

MICROSOFT EXCEL AVANZADO Y EXPERTO

Módulo 1: Macros

1. Introducción al Curso de Excel Avanzado
2. ¿Qué son las Macros? ¿Para qué sirven?
3. Creando tu primera macro en Excel
4. Eliminar, modificar e insertar datos con Macros
5. Filtros Avanzados con Macros
6. Gráficos Dinámicos con Macros
7. Creación de Formularios con Macros y VBA
8. Bonus: Cómo crear un atajo para el botón de Macros

 

Módulo 2: Qué es Power Pivot

1. Introducción a PowerPivot – ¿Qué es?
2. Conociendo la interfaz y menús de PowerPivot
3. Crear tablas relacionadas con PowerPivot
4. Importar bases de datos desde Access con PowerPivot
5. Importar datos desde archivos .CSV
6. Gráficos Dinámicos con PowerPivot
7. Segmentación de datos con PowerPivot
8. Ordenar, filtrar y tipos de datos en Power Pivot
9. Máximo, mínimo, autosuma y promedio con PowerPivot
10. Función SI (Y-O) con varias condiciones en Power Pivot
11. Cómo crear un KPI con PowerPivot

Módulo 3: Qué es Power Query

1. Curso de Power Query: ¿Qué es Power Query?
2. Importar datos desde archivos TXT, CSV, XML, Access y Excel con Power Query
3. Importar datos desde un sitio web
4. Dividir, reemplazar y cambiar el formato de columnas
5. Administrar, combinar y anexar datos con Power Query
6. Agrupar por, transponer e invertir con Power Query
7. Extraer datos de Columna fecha y hora con Power Query
8. Columna condicional y personalizada con Power Query
9. Vista previa de datos con Power Query

VBA FILTROS AVANZADOS Práctica 15

 

VBA EXCEL AVANZADO Práctica 13

 CREAR CÓDIGO DE BARRAS DE UN INVENTARIO

VBA EXCEL AVANZADO Práctica 12

 

VBA FILTROS AVANZADOS Práctica 14

 

VBA FORMULARIOS Práctica 10

 

VBA Macros Práctica 2

Sub ventas()
' saludo Macro ' Mi primera macro
' Autor: Patricia Acosta
' Acceso directo: CTRL+s
Range("A1").Select
 ActiveCell.FormulaR1C1 = "Mes"
Range("B1").Select
 ActiveCell.FormulaR1C1 = "Producto"
 Range("C1").Select
  ActiveCell.FormulaR1C1 = "Ventas"
 Range("A2").Select
  ActiveCell.FormulaR1C1 = "enero"
 Range("B2").Select
  ActiveCell.FormulaR1C1 = "Zapatos"
 Range("C2").Select
  ActiveCell.FormulaR1C1 = "20000"

 Range("A3").Select
  ActiveCell.FormulaR1C1 = "febrero"
 Range("B3").Select
  ActiveCell.FormulaR1C1 = "Tenis"
 Range("C3").Select
  ActiveCell.FormulaR1C1 = "25000"

 Range("A4").Select
  ActiveCell.FormulaR1C1 = "marzo"
 Range("B4").Select
  ActiveCell.FormulaR1C1 = "Carteras"
 Range("C4").Select
  ActiveCell.FormulaR1C1 = "30000"

 Range("A5").Select
  ActiveCell.FormulaR1C1 = "abril"
 Range("B5").Select
  ActiveCell.FormulaR1C1 = "Cinturones"
 Range("C5").Select
  ActiveCell.FormulaR1C1 = "32000"

 Range("A6").Select
  ActiveCell.FormulaR1C1 = "mayo"
 Range("B6").Select
  ActiveCell.FormulaR1C1 = "Zapatillas"
 Range("C6").Select
  ActiveCell.FormulaR1C1 = "35000"

 Range("A7").Select
  ActiveCell.FormulaR1C1 = "junio"
 Range("B7").Select
  ActiveCell.FormulaR1C1 = "Monederos"
 Range("C7").Select
  ActiveCell.FormulaR1C1 = "35000"

 End Sub

VBA Macros Práctica 3

Sub Colores()
'
' Colores Macro
'

'
    ActiveCell.FormulaR1C1 = "1"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "1"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "1"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "1"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "2"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "2"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "2"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "4"
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "3"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "3"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "3"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "4"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "4"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "4"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "4"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "5"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "5"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "6"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "6"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "6"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "7"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "7"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "7"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "8"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "8"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "8"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "9"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "9"
    ActiveCell.Offset(1, 0).Range("A1").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.FormulaR1C1 = "9"
    ActiveCell.Offset(-27, 0).Range("A1:A4").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(4, 0).Range("A1:B3").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(3, 0).Range("A1:C3").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(3, 0).Range("A1:D4").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 6299648
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(4, 0).Range("A1:E2").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveWindow.SmallScroll Down:=3
    ActiveCell.Offset(2, 0).Range("A1:F3").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(3, 0).Range("A1:G3").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0.499984740745262
        .PatternTintAndShade = 0
    End With
    ActiveWindow.SmallScroll Down:=6
    ActiveCell.Offset(3, 0).Range("A1:H3").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10498160
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Offset(3, 0).Range("A1:I3").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveWindow.SmallScroll Down:=-18
    ActiveCell.Offset(-25, 0).Range("A1").Select
End Sub
Sub borrar()
'
' borrar Macro
'

'
    ActiveCell.Range("A1:A28").Select
    Selection.ClearContents
    ActiveCell.Range("A1:J28").Select
    ActiveWindow.SmallScroll Down:=12
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Select
End Sub