Macros

Muestra todas las macros de todos lo Excel
Muy importante tener en cuenta el nivel de seguridad
No funciona ctrl+Z (deshacer)  No hay posibilidad de deshacer
OPM:
Objetos: el qué son (celda,libro…)
Propiedades: Cómo (color….)
Método: Código
Al grabar, no recomendable el acceso directo (el más seguro es Ctrl+ñ)
Por defecto se graban en un libro que es el más aconsejable.
Estructurade una macro:
Nombre; no puede empezar con un numero
Límite:
Sub nombre() Inicio
End Sub Fin
Podemos poner comentarios si comienza con una comilla (‘). Cuando comienza por comilla lo que estédetrás no lo ejecuta. (los comentarios se ponen en verde).

Abrimos Excel: Macros  ver macros  Ejercicio 1  Modificar
Variables:
Cells(1,1).select
Range(“A1”).Select
Range(“A1:B10”).SelectSub APLICAR_VALOR()
Cells(2, 1).Select
'juan=selection.value
juan = Cells(2, 1).Value
juan = 456
Selection.Value = juan
'msgBox (juan)
End Sub
Para evitar el problema que surge al cambiar elnombre de las pestañas:
Sub APLICAR_VALOR()
nombrevariablehoja1 = "ejercicio1"
nombrevariablehoja2 = "resultado_ejercicio1"
nombrevariablehoja3 = "ejercicio2"
Sheets(nombrevariablehoja1).Select
EndSub
BUCLE:
FOR ..
NEXT
Sub APLICAR_VALOR()
For fila = 1 To 5
Cells(fila, 1).Select
Selection.Value = "valor" & fila
Next
End Sub
BUCLE ANIDADO
Sub APLICAR_VALOR()
For filas = 1 To 5For columnas = 1 To 5
Cells(filas, columnas).Select
Selection.Value = "valor" & filas & columnas
Next
Next
End Sub

Para que ponga solo aquellos que coincide fila concolumna
Sub APLICAR_VALOR()
For filas = 1 To 5
Cells(filas, filas).Select
Selection.Value = filas & "-" & filas
Next
End Sub
CONDICIONAL
If …then
End if
If…then
Else…then
End if
If…thenElseif…then
End if
Por cada “if” un “end if”
Sub APLICAR_VALOR()
If Range("a1") = 1 Then
MsgBox ("valor1")
ElseIf Range("a1") = 2 Then
MsgBox ("valor2")
Else
MsgBox ("valor distinto a 1")
End If
End Sub