Video 6 / Nivel intermedio / Buscar dos (2) variables al tiempo

Este video muestra cómo buscar 2 variables al mismo tiempo.

Video 5 / Nivel intermedio / Macro simulación lanzamiento

En esta macro se simula el lanzamiento de un dado n veces y los datos quedan registrados en la pantalla de Excel. Debajo del video encontrarán el código utilizado.






Sub lanzamiento_dados()

a = Range("D2").Value

For n = 1 To a

Range("D3").Select
Selection.Copy
Range("B8").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Calculate

Next n

End Sub

Video 4 / Nivel intermedio / Macro cuatro en una

En este video mestro unas macros muy simples y lueo las combino con una condición para que las personas que no manejan macros vayan entendiendo cómo funcionan. El modelo que manejé no es el más eficiente, debido precisamente a que quiero que personas nuevas en el tema lo entienda. Debajo del video podrán encontrar el código utilizado, para que lo puedan reproducir ustedes mismos.




1) Inserta la información en la parte superior de la tabla.


Sub insertar_arriba()

Rows("8:8").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C2").Select
Selection.Copy
Range("B8").Select
ActiveSheet.Paste
Range("C3").Select
Selection.Copy
Range("C8").Select
ActiveSheet.Paste
Range("C4").Select
Selection.Copy
Range("D8").Select
ActiveSheet.Paste
Range("D1").Select


End Sub


2) Inserta la información en l aparte inferior de la tabla.


Sub insertar_abajo()

Range("C2").Select
Selection.Copy
Range("B7").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Range("C3").Select
Selection.Copy
Range("C7").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Range("C4").Select
Selection.Copy
Range("D7").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Range("D1").Select


End Sub


3) Inserta información en la parte superior si cumple con el requerimiento de la edad.


Sub arriba_condicion_edad()

If Range("C4").Value < Range("H2").Value Then

Range("G3").Value = "No cumple con la edad"

Exit Sub

Else

Range("G3").Value = ""
Range("A1").Select

Rows("8:8").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C2").Select
Selection.Copy
Range("B8").Select
ActiveSheet.Paste
Range("C3").Select
Selection.Copy
Range("C8").Select
ActiveSheet.Paste
Range("C4").Select
Selection.Copy
Range("D8").Select
ActiveSheet.Paste
Range("D1").Select

End If

End Sub


4)Inserta información en la parte inferior si cumple con el requerimiento de la edad.


Sub abajo_condicion_edad()

If Range("C4").Value < Range("H2").Value Then

Range("G3").Value = "No cumple con la edad"

Exit Sub

Else

Range("G3").Value = ""
Range("A1").Select


Range("C2").Select
Selection.Copy
Range("B7").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Range("C3").Select
Selection.Copy
Range("C7").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Range("C4").Select
Selection.Copy
Range("D7").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Range("D1").Select

End If

End Sub

Video 3 / Nivel intermedio / 3.000 simulaciones

Hola, en este video muestro como utilizar Excel para hacer simulaciones en los diferentes modelos, pero debido a que me han escrito, pienso hacer otro video más adelante explicando cómo hice esta macro.

Video 2 / Nivel básico / Diagrama de Gantt en gráfico (No existe en Excel)

En Excel no existe un gráfico para representar Diagramas de Gantt, en este video van a aprender cómo hacerlo.

Si quieren que publique un video de algún tema que quieran aprender, escribanme o envienme un mensaje a magiaexcel@hotmail.com

Video 1 / Nivel: Básico / Funciones (SI = IF / Y = AND)

Este video muestra cómo utilizar las funciones SI e Y, y cómo mezclarlas.


Si quieren un video de algún tema que quieran aprender de Excel, envíenme un mensaje.