Macros - escribiendo y entendiendo código

Excellente!
Hace falta un curso de macros en VBA

Hay un error en el RETOMACRO. Al final del código Range solo no funciona y por lo tanto no se ejecuta. Debe de ir acompañado por ActiveSheet.Range
Error:
Range(“a1”).Value = "juanes está atras"
Range(“a2”).Activate

Correcto:
ActiveSheet.Range(“a1”).Value = "juanes está atras"
ActiveSheet.Range(“a2”).Activate

Para qué sirven los macros, no es mas fácil usar la interfaz gráfica de excel en vez de estar programando?

Resumen:

Las macros están escritas en VBA, sirven para automatizar eventos, propiedades y demás objetos de Excel.
F8 nos permite ejecutar por pasos. Las subrutinas abiertas deben cerrarse. Vimos algunas de las referencias a objetos como worksheet, ActiveSheet. para llamar a objetos en la interfaz y poder cambiarles el formato y demás.

Tengo una gran inquietud. Cuando le doy F8 en VBA me sale un mensaje de alerta que dice “esta macro está desabilitada” y no me permite correr la macro. Alguien me puede ayudar?

Macros

Existen dos formas de hacer macros:

1. Escribiendo código.
2. Grabando la macro y modificando el código

• Desplegar ventana de código de Visual Basic: Alt + F11
• Formato de una macro:

Sub nombre_mancro()
Codigo
End Sub

Códigos de las macros

• En la celda activa, ingresa el siguiente valor

ActiveCell.Value = "Hola amigos"

• F8 permite ejecutar el codigo de la macro paso a paso
• Escribir en la hoja 2, en la celda B2, la palabra “PLATZI” con el color verde platzi y en negrilla

Worksheets("Hoja2").Activate
ActiveSheet.Range("B2").Value = "PLATZI"
ActiveSheet.Range("B2").Font.Bold = True
ActiveSheet.Range("B2").Font.Color = RGB(152, 200, 62)

# Codigo Alternativo
Worksheets("Hoja2").Activate
With ActiveSheet.Range("B2")
.Value = "PLATZI"
.Font.Bold = True
.Font.Color = RGB(152, 200, 62)
End With

para tener la pestaña habilitada de macros en la barra de herramientas de Excel, se puede hacer de la siguiente manera.

Para Windows, vaya a Opciones > archivo >Personalizar cinta de opciones.

Para Mac,vaya a Excel > preferencias… > cinta de opciones & barra de herramientas.

A continuación, en la sección Personalizar la cinta de opciones, en Pestañas principales,active la casilla Programador y presione Aceptar.

Asi podras tener varias opciones a la vista

RETO #19: Retos macros 1,2 y 3.

Excel es el lenguaje de programación bastante subestimado en los últimos tiempos.

Cuando se acostumbren a usar VBA. No se desanimen si un dia no pueden lograr algo, persistan, y lograran hacer de todo.

Esperando el curso de VBA 😃

• Funciones (Function); tienen valor de retorno.

• Subrutinas (Sub); no tienen valor de retorno.

Sub RETOMACRO1()

’ Ir a la hoja 1
’ Ir a la celda B5
’ Escribir en esa celda la
’ palabra Platzi con los colores corporativos

Worksheets(“Hoja1”).Activate
With ActiveSheet.Range(“B5”)
.Value = “Platzi”
.Font.Color = RGB(0, 0, 200)
End With

End Sub

Sub RETOMACRO2()

Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“b3”).Value = 23.36
ActiveSheet.Range(“b4”).Value = "este numero ES"
ActiveSheet.Range(“b3”).Font.Bold = True
ActiveSheet.Range(“b4”).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(“b4”).Font.Color = RGB(200, 0, 0)
ActiveSheet.Range(“a1”).Value = "juanes está atras"
ActiveSheet.Range(“a2”).Activate

End Sub

Sub RETOMACRO_2()

‘Escribir lo que está haciendo la macro de arriba
’ paso por paso. Rectificar corriendo la macro.

'Nos lleva a la Hoja1
’Coloca en la celda B3 el valor 23.36
’Coloca en la celda B4 el valor “este numero ES”
'a la celda B3 la coloca en negrita
’a la celda B4 le coloca el color RGB(0, 200, 0)
'en la celda donde esta celeccionada en ese momento ingresa 22000000
’en B4 cambia la el color a RGB(200, 0, 0)
'en A1 coloca el valor “juanes está atras”
'activa la celda A2

End Sub

Sub RETOMACRO3()

‘Ir a la hoja 3
’De acuerdo a la modalidad de la macro EJEMPLO,
’ escribir su nombre en negrilla y en color rojo
’ en la que esté activa

Worksheets(“Hoja3”).Activate
With ActiveCell
.Value = “ledgar brian”
.Font.Bold = True
.Font.Color = RGB(200, 0, 0)

End With

End Sub

Mi primera macro

Lo que realiza la macro es lo siguiente:
Debe ir a Hoja 1.
En el rango B3, escribir 23.36.
En el rango B4, escribir “este numero ES”.
La celda B3 debe estar en negrita.
La celda B4 cambia a color verde.
En la celda activa, escribir 22000000
La celda B4 cambia a color rojo.
En la celda A1 escribir "juanes está atras"
Activar el rango A2

Conocer y entender el código generado te permite personalizar el funcionamiento del mismo y también solucionar problemas que puedas llegar a detectar dentro del funcionamiento de una macro.

Excelente clase!

Buen Día

Comparto ejercicio.

CS

Al igual que otros compañeros, pienso que este temas de automatización en Excel merece un curso completo por aparte.

Sub reto1()
Worksheets(“Hoja1”).Activate
ActiveCell.Range(“B5”).Value = "Platzi"
ActiveCell.Range(“B5”).Font.Color = RGB(152, 200, 62)
End Sub
RETO 2

1. activa la hoja 2
2. en la celda B3 escribe 23.36
3. b4 escribe este número es
4. 23.36 lo hace negrito
   5.este número es lo pone en verde
5. en la celda activa escribe 23000000
6. este número es lo cambia a rojo
7. a1 escribe JUANES ESTA ATRAS
8. activa la celda a2
   con ctrl + barra espaciadora se puede llamar código

Muy buen aporte

Cual seria el comando para ejecutar por lineas o por pasos el Visual Basic en Mac, (F8 no funciona en Mac es uno distinto) no he podido encontrar el comando o el botón de interfaz para ejecutarlo paso a paso

Sub RETOMACRO1()
’ Ir a la hoja 1
’ Ir a la celda B5
’ Escribir en esa celda la
’ palabra Platzi con los colores corporativos
Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“B5”).Value = "Platzi"
ActiveSheet.Range(“B5”).Font.Color = RGB(152, 200, 62)
End Sub

Sub RETOMACRO2()
‘Escribir lo que está haciendo la macro de arriba
’ paso por paso. Rectificar corriendo la macro.
'Acive la “hoja1”
'En la hoja activa, en la celda b3 ingrese el valor 23.36
’En la hoja activa, en la celda b4 ingrese el valor “este numero ES”
'En la hoja activa, en la celda b3 resaltar en negro
’En la hoja activa, en la celda b4 cambiar a color verde
’En la celda activa ingrse el valor 22000000
’En la hoja activa, en la celda b4 cambiar a color rojo
’En la hoja activa, en la celda a1 ingrese el valor “juanes esta atras”
'En la hoja activa, en la celda a2 colocarse
Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“b3”).Value = 23.36
ActiveSheet.Range(“b4”).Value = "este numero ES"
ActiveSheet.Range(“b3”).Font.Bold = True
ActiveSheet.Range(“b4”).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(“b4”).Font.Color = RGB(200, 0, 0)
ActiveSheet.Range(“a1”).Value = "juanes está atras"
ActiveSheet.Range(“a2”).Activate
End Sub

Sub RETOMACRO3()
‘Ir a la hoja 3
’De acuerdo a la modalidad de la macro EJEMPLO,
’ escribir su nombre en negrilla y en color rojo
’ en la que esté activa
Worksheets(“Hoja3”).Activate
With ActiveCell
.Value = “Ysaac”
.Font.Bold = True
.Font.Color = RGB(255, 0, 0)
End With
End Sub

Recordando lo fácil que es visual con estas explicaciones

Sub RETOMACRO1()

’ Ir a la hoja 1
’ Ir a la celda B5
’ Escribir en esa celda la
’ palabra Platzi con los colores corporativos

Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“B5”).Value = "Platzi"
ActiveSheet.Range(“B5”).Font.Bold = True
ActiveSheet.Range(“B5”).Font.Color = RGB(152, 200, 62)

Sub RETOMACRO_2()

‘Escribir lo que está haciendo la macro de arriba
’ paso por paso. Rectificar corriendo la macro.

'Ir a Hoja 1
’Ir a la celda B3 y digitar el número 23.36
’Ir a la celda b4 y escribir “este numero ES”
'Ir a la celda b3 y activar la negrita
’Ir a la celda b4 y activar el color verde
’Ingresar donde el cursor esta posicionado el valor 22000000
’Ir a la celda b4 y activar el color rojo
’Ingresar en la celda a1 juanes esta atras

‘
’

Sub RETOMACRO3()

‘Ir a la hoja 3
’De acuerdo a la modalidad de la macro EJEMPLO,
’ escribir su nombre en negrilla y en color rojo
’ en la que esté activa

Worksheets(“Hoja3”).Activate
ActiveSheet.Range(“B2”).Value = "ursula"
ActiveSheet.Range(“B2”).Font.Bold = True
ActiveSheet.Range(“B2”).Font.Color = RGB(200, 0, 0)

Reto Realizado
Macro 1

Macro 2

Macro 3

With Worksheets(“Hoja1”).Range(“f12”)
.Value = “Platzi”
.Font.Bold = True
.Font.Color = RGB(0, 200, 0)
End With
![](

Adjunto código, en el segundo reto la ultima linea de código da un error 1004, el resto de código me sirvió bien, gracias.

En Mac algunas veces también es Alt+F11

mi windows no activa la macro con ALT+F11 como hago :V

El material está excelente

Reto macros:
Reto1

Reto 2

Reto 3

Muy bien, entendí las Macros pero, ¿en qué tipo de situaciones las usaría?

de hecho la manera mas sencilla de aprender macros es grabando y modificando, entendiendo el código a partir de lo que hicimos en la grabación.
Estupenda clase

Es urgente que Platzi tenga un curso de macros en excel, muchísima gente pierde mucho tiempo en tareas repetitivas que podrían automatizarse fácilmente!

Sub RETOMACRO1()

’ Ir a la hoja 1
’ Ir a la celda B5
’ Escribir en esa celda la
’ palabra Platzi con los colores corporativos

Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“B5”).Value = "Platzi"
ActiveSheet.Range(“B5”).Font.Bold = True
ActiveSheet.Range(“B5”).Font.Color = RGB(152, 200, 62)

End Sub

Sub RETOMACRO2()

Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“b3”).Value = 23.36
ActiveSheet.Range(“b4”).Value = "este numero ES"
ActiveSheet.Range(“b3”).Font.Bold = True
ActiveSheet.Range(“b4”).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(“b4”).Font.Color = RGB(200, 0, 0)
Range(“a1”).Value = "juanes está atras"
Range(“a2”).Activate

End Sub

Sub RETOMACRO_2()

‘Escribir lo que está haciendo la macro de arriba
’ paso por paso. Rectificar corriendo la macro.

'Vaya a la Hoja1 (Worksheets(“Hoja1”).Activate)
'En la hoja q esta activa en la celda b3 ingrese un valor igual 23.36 (ActiveSheet.Range(“b3”).Value = 23.36)
‘En la hoja q esta activa en la celda b4 ingrese un valor “este numero ES” (ActiveSheet.Range(“b4”).Value = “este numero ES”)
‘En la hoja que esta activa en la celda b3 ponga en negrita 23.36
’En la hoja que esta activa en la celda b4 modifique el color con un codigo RGB verde (ActiveSheet.Range(“b4”).Font.Color = RGB(0, 200, 0))
‘La celda que esta activa ingrese el valor igual a 22000000 (ActiveCell.Value = 22000000)
‘En la hoja que esta activa en la celda b4 modifique el color con un codigo RGB rojo (ActiveSheet.Range(“b4”).Font.Color = RGB(200, 0, 0))
‘En la celda a1 ingrese el valor “juanes está atras” (Range(“a1”).Value = “juanes está atras”)
‘Active la celda a2
’
’
’
’
’
’

End Sub

Sub RETOMACRO3()

‘Ir a la hoja 3
’De acuerdo a la modalidad de la macro EJEMPLO,
’ escribir su nombre en negrilla y en color rojo
’ en la que esté activa

Worksheets(“Hoja3”).Activate
ActiveSheet.Range(“B5”).Value = "Platzi"
ActiveSheet.Range(“B5”).Font.Bold = True
ActiveSheet.Range(“B5”).Font.Color = RGB(200, 0, 0)

End Sub

‘Escribir lo que está haciendo la macro de arriba
’ paso por paso. Rectificar corriendo la macro.

'Ir a la hoja 1
’en la celda b3 escribir 23,36
’en la b4 el texto este numero es
’en la celda be en negrita
’la b4 de color rojo
’en la celda activa poner 22 millones
’en la b4 color verde
’en a1 escribir juanes esta atras
’y quedar en la a2

Creo que lo no se mencionó bien, son los comentarios.

Estos básicamente son líneas dentro del código que no se ejecutan (se visualizan de color verde) y cuya finalidad es servir como anotaciones que faciliten el entendimiento del programa para cualquier persona.

Para agregar un comentario se debe escribir una comilla sencilla (‘) al inicio de la línea, después se puede escribir cualquier cosa hasta el salto de línea (dar enter). Excel colorea de verde dicho texto para indicar que es un comentario de VBA.

Ejemplo:

ActiveSheet.Range("a2").Activate
' Selecciona o activa la celda A2

Adjunto mis soluciones

Vaya las Macros han sido más fácil de lo que pensaba (claro que ya tenía bases de programación). Aunque no me agrada mucho VisualBasic, igual se entiende muy bien.

Ok.

Ejecicio 1

Ejercicio 2

Ejercicio 3

Respuesta del reto:

Sub RETOMACRO2()

Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“b3”).Value = 23.36
ActiveSheet.Range(“b4”).Value = "este numero ES"
ActiveSheet.Range(“b3”).Font.Bold = True
ActiveSheet.Range(“b4”).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(“b4”).Font.Color = RGB(200, 0, 0)
Range(“a1”).Value = "juanes está atras"
Range(“a2”).Activate

Sub RETOMACRO_2()

‘Escribir lo que está haciendo la macro de arriba
’ paso por paso. Rectificar corriendo la macro.

'Activar la hoja 1
’En la celda B3 escribir 23.36
’En la ceda B4 escribir el valor “Este numero Es”
'En la celda B3 colocar en negrita el texto
’En la Celda B4 activar el color RGB (0, 200, 0)
'En la Celda activa colocar el valor 22000000
’En la celda B4 activar el color RGB (200, 0 ,0 )
'En la celda A1 colocar el valor “Juanes está atras”
'Activar la celda A2

’ Ir a la hoja 1
’ Ir a la celda B5
’ Escribir en esa celda la
’ palabra Platzi con los colores corporativos

Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“B5”).Value = "Platzi"
ActiveSheet.Range(“B5”).Font.Bold = True
ActiveSheet.Range(“B5”).Font.Color = RGB(152, 200, 62)

Buena la clase!

Sub Reto 1

Sub RETOMACRO1()

Worksheets(“Hoja 1”).Activate
ActiveSheet.Range(“B5”).Value = "Platzi"
ActiveSheet.Range(“B5”).Font.Color = RGB(152, 200, 62)

End Sub

Explicación del RETOMACRO_ 2

‘Activa la Hoja 1’
‘Activa la celda B3 y completa con el valor "23.36’
'Activa la celda B4 y completa con el valor “este numero ES” '
‘El valor de la celda B3 lo pone en negrita’
‘Activa la celda B4 y lo pone de color correspondiente a su código de color’
‘En la celda activa completa con el valor “22000000”’
‘La celda B4 lo pone del color correspondiente de acuerdo a su código de color correspondiente’
‘En la celda A1 lo completa con el valor “juanes está atras”’
‘Activa la celda A2’

End Sub

Sub RETOMACRO3()

Worksheets(“Hoja 3”).Activate
With ActiveSheet.Range(“a7”)
.Value = “Leticia”
.Font.Bold = True
.Font.Color = RGB(0, 255, 0)
End With

End Sub

Listo:

Reto 1
Sub RETOMACRO1()

’ Ir a la hoja 1
’ Ir a la celda B5
’ Escribir en esa celda la
’ palabra Platzi con los colores corporativos
Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“B5”).Value = "Platzi"
ActiveSheet.Range(“B5”).Font.Color = RGB(152, 200, 62)

Reto 2
Sub RETOMACRO2()
‘Activar la hoja1’
‘ir a la celda “b3” y colocar el valor de 23.36 y en negrilla’
‘ir a la celda “b4” y colocar el testo “este numero ES”’
‘El texto en negrilla y de color verde’
‘en la celda activa colocar el valor de 22000000’
‘cambiar el color de la celda B4 por rojo’
‘en la cenda a1 colocar el texto “juanes est’a atras”’
‘y activar la celda a2’

Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“b3”).Value = 23.36
ActiveSheet.Range(“b4”).Value = "este numero ES"
ActiveSheet.Range(“b3”).Font.Bold = True
ActiveSheet.Range(“b4”).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(“b4”).Font.Color = RGB(200, 0, 0)
Range(“a1”).Value = "juanes está atras"
Range(“a2”).Activate

End Sub

Reto 3

Creo que para el reto 2 es indispensable agregar “ActiveSheet” en las dos últimas lineas, de modo que quede así:

ActiveSheet.Range(“a1”).Value = "juanes está atras"
ActiveSheet.Range(“a2”).Activate

De lo contrario no va a funcionar

Reto 1

Reto 2

Reto 3

Voy que todos han compartido material excelente, ¿Dónde puedo aprender Microsoft Visual Basic para hacer las macros? …se puede hacer con otro lenguaje?

Sub RETOMACRO3()

With Worksheets(“hoja3”).Range(“a1”)
.Value = “Kevin”
.Font.Bold = True
.Font.Color = RGB(255, 0, 0)
End With

End Sub

Reto1

Reto2

Reto3

Sub RETOMACRO_2()

‘Escribir lo que está haciendo la macro de arriba
’ paso por paso. Rectificar corriendo la macro.
'se activa la hoja 1
’En la celda B3 escribe 23.36
’En la celda B4 escribe texto: este numero ES en rojo
’Negritas la celda B4
’cambia a verda la celda B4
’Cambia el valor de la celda B3 por le número 22000000

en las ultimas lineas de código en mi caso, se generó un error.

Reto:

1. Sub RETOMACRO1()

’ Ir a la hoja 1
’ Ir a la celda B5
’ Escribir en esa celda la
’ palabra Platzi con los colores corporativos

Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“B5”).Value = "Platzi"
ActiveSheet.Range(“B5”).Font.Color = RGB(152, 200, 62)
End With

‘Escribir lo que está haciendo la macro de arriba
’ paso por paso. Rectificar corriendo la macro.

'Ir a la hoja 1
’Escribir en la celda B3 y escribir 23.36
’Escribir en la cela B4 “Este numero es”
'Dar bold a lo escrito en la celda b3
’Dar color a lo escrito
’Escribir 22000000 en la celda B4
’Dar color a lo escrito en la celda B4
’Falto describir la activesheet, dara error
’Falto describir la activesheet, dara error

Worksheets(“Hoja3”).Activate
ActiveSheet.Range(“B5”).Value = "Nicolas"
ActiveSheet.Range(“B5”).Font.Bold = True
ActiveSheet.Range(“B5”).Font.Color = RGB(89, 100, 202)

End Sub

Reto 1

Reto 2

Reto 3

Solucion al reto de Macros

Sub RETOMACRO1()

’ Ir a la hoja 1
’ Ir a la celda B5
’ Escribir en esa celda la
’ palabra Platzi con los colores corporativos

Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“B5”).Font.Color = RGB(152, 200, 62)
ActiveSheet.Range(“B5”).Value = “Platzi”

End Sub

Sub RETOMACRO2()

Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“b3”).Value = 23.36
ActiveSheet.Range(“b4”).Value = "este numero ES"
ActiveSheet.Range(“b3”).Font.Bold = True
ActiveSheet.Range(“b4”).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(“b4”).Font.Color = RGB(200, 0, 0)
ActiveSheet.Range(“a1”).Value = “juanes está atras”
'Range(“a2”).Activate

End Sub

Sub RETOMACRO_2()

‘Escribir lo que está haciendo la macro de arriba
’ paso por paso. Rectificar corriendo la macro.

’ Activar la hoja de trabajo llamada “Hoja1” del libro
’ En la celda B3 de la “Hoja1” colocar el valor de 23.36
’ En la celda B4 misma hoja colocar “este numero ES”
’ El texto de B3 ponerlo en negrita
’ El color en B4 ponerlo en Verde claro
’ En la celda activa (la actual)poner el valor de 22000000
’ Cambiar el color de B4 a Rojo
’ Complete la instruccion con ActiveSheet y en la celda A1 colocó “juanes está atras”
’ La instruccion “Range(“a2”).Activate” la deje como comentario al estar incompleta

End Sub

Sub RETOMACRO3()

‘Ir a la hoja 3
’De acuerdo a la modalidad de la macro EJEMPLO,
’ escribir su nombre en negrilla y en color rojo
’ en la que esté activa

Worksheets(“Hoja3”).Activate
With ActiveSheet.Range(“a7”)
.Value = “Jhins Cardenas”
.Font.Bold = True
.Font.Color = RGB(255, 0, 0)
End With

End Sub

Como identifica uno el código para colocarlo en la macro

Curso de Macro por favor!
Seria bueno que se realice un curso que explique la interfaz de las Macros, ejemplos de como queda una macro finalizada y cual puede ser su utilidad realmente

Reto 1:
Worksheets(“Hoja1”).Activate
ActiveSheet.Range(“b5”).Value = "Platzi"
ActiveSheet.Range(“b5”).Font.Color = RGB(152, 200, 62)

Reto 2:
‘Escribir lo que está haciendo la macro de arriba
’ paso por paso. Rectificar corriendo la macro.

'Posicionarte en la “Hoja1”
'En la celda b3 colocar el valor 23.36
’En la celda b4 colocar el texto “este numero ES”
'Celda b3 en negritas.
'El texto de la celda b4 con el codigo RGB(0, 200, 0)
'En la celda seleccionada colocarl el valor 22000000
’Cambiar el color de la celda b4 al codigo RGB(200, 0, 0)

Reto 3:
Worksheets(“Hoja3”).Activate
ActiveCell.Value = "Neto"
ActiveCell.Font.Bold = True
ActiveCell.Font.Color = RGB(255, 0, 0)

No me funciona el schorcut