No tienes acceso a esta clase

隆Contin煤a aprendiendo! 脷nete y comienza a potenciar tu carrera

Macros - escribiendo y entendiendo c贸digo

35/38
Recursos

Aportes 165

Preguntas 15

Ordenar por:

驴Quieres ver m谩s aportes, preguntas y respuestas de la comunidad?

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(鈥渁1鈥).Value = "juanes est谩 atras"
Range(鈥渁2鈥).Activate

Correcto:
ActiveSheet.Range(鈥渁1鈥).Value = "juanes est谩 atras"
ActiveSheet.Range(鈥渁2鈥).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 鈥渆sta 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 鈥淧LATZI鈥 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

Esperando el curso de VBA 馃槂

  • Funciones (Function); tienen valor de retorno.

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

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

Excel es el lenguaje de programaci贸n bastante subestimado en los 煤ltimos tiempos.

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

Mi primera macro

Sub RETOMACRO1()

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

Worksheets(鈥淗oja1鈥).Activate
With ActiveSheet.Range(鈥淏5鈥)
.Value = 鈥淧latzi鈥
.Font.Color = RGB(0, 0, 200)
End With

End Sub

Sub RETOMACRO2()

Worksheets(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥渂3鈥).Value = 23.36
ActiveSheet.Range(鈥渂4鈥).Value = "este numero ES"
ActiveSheet.Range(鈥渂3鈥).Font.Bold = True
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(200, 0, 0)
ActiveSheet.Range(鈥渁1鈥).Value = "juanes est谩 atras"
ActiveSheet.Range(鈥渁2鈥).Activate

End Sub

Sub RETOMACRO_2()

鈥楨scribir lo que est谩 haciendo la macro de arriba
鈥 paso por paso. Rectificar corriendo la macro.

'Nos lleva a la Hoja1
鈥機oloca en la celda B3 el valor 23.36
鈥機oloca en la celda B4 el valor 鈥渆ste numero ES鈥
'a la celda B3 la coloca en negrita
鈥檃 la celda B4 le coloca el color RGB(0, 200, 0)
'en la celda donde esta celeccionada en ese momento ingresa 22000000
鈥檈n B4 cambia la el color a RGB(200, 0, 0)
'en A1 coloca el valor 鈥渏uanes est谩 atras鈥
'activa la celda A2

End Sub

Sub RETOMACRO3()

鈥業r a la hoja 3
鈥橠e acuerdo a la modalidad de la macro EJEMPLO,
鈥 escribir su nombre en negrilla y en color rojo
鈥 en la que est茅 activa

Worksheets(鈥淗oja3鈥).Activate
With ActiveCell
.Value = 鈥渓edgar brian鈥
.Font.Bold = True
.Font.Color = RGB(200, 0, 0)

End With

End Sub

RETO 1 : ![](https://static.platzi.com/media/user_upload/image-e7edabfc-0133-4c1a-8d60-9d0ec974c3c4.jpg) RETO 2: ![](https://static.platzi.com/media/user_upload/image-a72f7f79-1a78-41e1-abe8-9880eb5a18e3.jpg) RETO 3: ![](https://static.platzi.com/media/user_upload/image-12ad3ee3-3fca-486b-bbed-140382ae8829.jpg)

como se cuales son los n煤meros que corresponde a cada color en el comando RGB?

ya hab铆a visto como usar la macro en un curso que tiene platzi de macro con Excel y es muy bueno tu ejercicio b谩sicamente explica todo de forma clara y concisa. esa es la utilidad de la macro reutilizar c贸digo, modificaron y grabarlos para futuros proyectos.

ok retos superados

Reto superado
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(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥淏5鈥).Value = "Platzi"
ActiveSheet.Range(鈥淏5鈥).Font.Color = RGB(0, 255, 0)

End Sub

2.-
Sub RETOMACRO_2()

鈥楨scribir lo que est谩 haciendo la macro de arriba
鈥 paso por paso. Rectificar corriendo la macro.

鈥 Busca la hoja 1
鈥 Escribe 23.36 en la celda B3
鈥 Escribe 鈥渆ste numero ES鈥 en la celda B4
鈥 Pone en negrita el numero de la celda B3
鈥 Cambia de color la frase de la celda B4
鈥 En la celda donde me encuentro pone el valor 22000000
鈥 Cambia de color el valor de la celda B4
鈥 En la celda A1 escribe la frase 鈥渏uanes est谩 atras鈥
鈥 Posiciona el cursor en la celda A2

End Sub

3.-
Sub RETOMACRO3()

鈥業r a la hoja 3
鈥橠e acuerdo a la modalidad de la macro EJEMPLO,
鈥 escribir su nombre en negrilla y en color rojo
鈥 en la que est茅 activa

With ActiveSheet.Range(鈥渁7鈥)
.Value = 鈥淪antiago鈥
.Font.Bold = True
.Font.Color = RGB(200, 0, 0)
End With

End Sub

3 retos de macros

Desarrollo de los 3 retos:

Sub RETOMACRO2()

Worksheets(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥渂3鈥).Value = 23.36
ActiveSheet.Range(鈥渂4鈥).Value = "este numero ES"
ActiveSheet.Range(鈥渂3鈥).Font.Bold = True
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(200, 0, 0)
Range(鈥渁1鈥).Value = "juanes est谩 atras"
Range(鈥渁2鈥).Activate

End Sub

Sub RETOMACRO_2()

鈥楨scribir lo que est谩 haciendo la macro de arriba
鈥 paso por paso. Rectificar corriendo la macro.

鈥楽e activa la h1 para ir
鈥橢n la celda asignada se asigna el valor en numeros
鈥橢n la celda asignada se asigna el valor en letras
鈥檚e pone en negrilla
鈥檚e le cambia el color
鈥檈n la celda donde allas dejado el cursor se asigna un valor








End Sub

Sub RETOMACRO3()

鈥業r a la hoja 3
鈥橠e acuerdo a la modalidad de la macro EJEMPLO,
鈥 escribir su nombre en negrilla y en color rojo
鈥 en la que est茅 activa

Worksheets(鈥淗oja3鈥).Activate
ActiveSheet.Range(鈥淎1鈥).Value = "EDWARD FIGUEROA ESPITIA"
ActiveSheet.Range(鈥渁1鈥).Font.Bold = True
ActiveSheet.Range(鈥渁1鈥).Font.Color = RGB(300, 0, 0)

End Sub

mi primera macro:
Sub RETOMACRO3()

鈥業r a la hoja 3
鈥橠e acuerdo a la modalidad de la macro EJEMPLO,
鈥 escribir su nombre en negrilla y en color rojo
鈥 en la que est茅 activa

Worksheets(鈥淗oja3鈥).Activate
ActiveSheet.Range(鈥渂3鈥).Value = "Diego Pacheco"
ActiveSheet.Range(鈥渂3鈥).Font.Bold = True
ActiveSheet.Range(鈥渂3鈥).Font.Color = RGB(200, 0, 0)

End Sub

mi computador no me deja ejecutar macros 馃槮 es corporativo

EJERCICIO 1
Worksheets(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥淏5鈥).Value = "Platzdi-diplatzi"
ActiveSheet.Range(鈥淏5鈥).Font.Bold = True
ActiveSheet.Range(鈥淏5鈥).Font.Color = RGB(152, 200, 62)

EJERCICIO2
鈥檌r a la hoja1
鈥檌r a la celda b3 y escribir 23.36
鈥檈scribir en la celda b4 鈥渆ste numero es鈥
'escribir en negrilla en la celda b3
鈥檆olocar el color verde platzi
鈥檈n la celda actual escribir el numero 22000000
鈥檈n la hola actual escribir en la celda b4 el color rojo
鈥檈n el rango/celda activa a1 escribir juanes esta atras
鈥檃ctivar la celda/rango a2

EJERCICIO3
Worksheets(鈥淗oja3鈥).Activate
ActiveSheet.Range(鈥淐8鈥).Value = "MAURICIODEBEDOYA"
ActiveSheet.Range(鈥淐8鈥).Font.Bold = True
ActiveSheet.Range(鈥淐8鈥).Font.Color = RGB(255, 0, 0)

super

Me encat贸 esta clase!!! me sumo al pedido del curso VBA.

Sub RETOMACRO3()

鈥業r a la hoja 3
鈥橠e acuerdo a la modalidad de la macro EJEMPLO,
鈥 escribir su nombre en negrilla y en color rojo
鈥 en la que est茅 activa

With ActiveCell
.Value = 鈥淒ayvis鈥
.Font.Bold = True
.Font.Color = RGB(200, 0, 0)
End With

End Sub



Fatlaria agregar tambien excel online, programaci贸n en javascrip y todo lo que ya se vino con office 365

RETO DE MACROS

Sub RETOMACRO1()
' Ir a la hoja 1
Worksheets("Hoja1").Activate
' Ir a la celda B5
' Escribir en esa celda la Platzi
ActiveSheet.Range("B5").Value = "Platzi"
' palabra Platzi con los colores corporativos
ActiveSheet.Range("B5").Font.Color = RGB(0, 255, 0)
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.
Worksheets("Hoja1").Activate 'Activa la hoja 1
ActiveSheet.Range("b3").Value = 23.36 'en la celda b3 coloca 23.36
ActiveSheet.Range("b4").Value = "este numero ES" 'en la celda b4 escribe "este numero ES
ActiveSheet.Range("b3").Font.Bold = True 'en la celda b3 coloca en Negrita el numero 23.36
ActiveSheet.Range("b4").Font.Color = RGB(0, 200, 0) 'en la celda b4 la frase "este numero ES" coloca el color verde
ActiveCell.Value = 22000000 'luego en la misma celda b3 se le asigna un nuevo valor 22000000
ActiveSheet.Range("b4").Font.Color = RGB(200, 0, 0) 'al nuevo valor coloca de color rojo
ActiveSheet.Range("a1").Value = "juanes est谩 atras" 'luego coloca en la celda a1 la frase "juanes est谩 atras"
ActiveSheet.Range("a2").Activate 'luego coloca el cursor en 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("Hoja1").Activate
With ActiveSheet.Range("a7")
.Value = "Cristian Berna"
.Font.Bold = True
.Font.Color = RGB(200, 0, 0)
End With
End Sub

El programa 002 me marca un error subindice fuera del intervalo.

Sub RETOMACRO1()

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

Worksheets(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥淏5鈥).Value = "Platzi"
ActiveSheet.Range(鈥淏5鈥).Font.Bold = True
ActiveSheet.Range(鈥淏5鈥).Font.Color = RGB(152, 200, 62)

End Sub

Sub RETOMACRO2()

Worksheets(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥渂3鈥).Value = 23.36
ActiveSheet.Range(鈥渂4鈥).Value = "este numero ES"
ActiveSheet.Range(鈥渂3鈥).Font.Bold = True
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(200, 0, 0)
Range(鈥渁1鈥).Value = "juanes est谩 atras"
Range(鈥渁2鈥).Activate

End Sub

Sub RETOMACRO_2()

鈥楨scribir lo que est谩 haciendo la macro de arriba
鈥 paso por paso. Rectificar corriendo la macro.

'Vaya a la Hoja1 (Worksheets(鈥淗oja1鈥).Activate)
'En la hoja q esta activa en la celda b3 ingrese un valor igual 23.36 (ActiveSheet.Range(鈥渂3鈥).Value = 23.36)
鈥楨n la hoja q esta activa en la celda b4 ingrese un valor 鈥渆ste numero ES鈥 (ActiveSheet.Range(鈥渂4鈥).Value = 鈥渆ste numero ES鈥)
鈥楨n la hoja que esta activa en la celda b3 ponga en negrita 23.36
鈥橢n la hoja que esta activa en la celda b4 modifique el color con un codigo RGB verde (ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(0, 200, 0))
鈥楲a celda que esta activa ingrese el valor igual a 22000000 (ActiveCell.Value = 22000000)
鈥楨n la hoja que esta activa en la celda b4 modifique el color con un codigo RGB rojo (ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(200, 0, 0))
鈥楨n la celda a1 ingrese el valor 鈥渏uanes est谩 atras鈥 (Range(鈥渁1鈥).Value = 鈥渏uanes est谩 atras鈥)
鈥楢ctive la celda a2





End Sub

Sub RETOMACRO3()

鈥業r a la hoja 3
鈥橠e acuerdo a la modalidad de la macro EJEMPLO,
鈥 escribir su nombre en negrilla y en color rojo
鈥 en la que est茅 activa

Worksheets(鈥淗oja3鈥).Activate
ActiveSheet.Range(鈥淏5鈥).Value = "Platzi"
ActiveSheet.Range(鈥淏5鈥).Font.Bold = True
ActiveSheet.Range(鈥淏5鈥).Font.Color = RGB(200, 0, 0)

End Sub

Sub RETOMACRO1()

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

With ActiveSheet.Range(鈥渂5鈥)
.Value = 鈥淧latzi鈥
.Font.Bold = True
.Font.Color = RGB(152, 200, 62)
End With

Sub RETOMACRO2()

Worksheets(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥渂3鈥).Value = 23.36
ActiveSheet.Range(鈥渂4鈥).Value = "este numero ES"
ActiveSheet.Range(鈥渂3鈥).Font.Bold = True
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(200, 0, 0)
ActiveSheet.Range(鈥渁1鈥).Value = "juanes est谩 atras"
ActiveSheet.Range(鈥渁2鈥).Activate
Habia un error en las 2 ultimas instrucciones, est谩n corregidas.
Sub RETOMACRO_2()

鈥楨scribir lo que est谩 haciendo la macro de arriba
鈥 paso por paso. Rectificar corriendo la macro.

'Activa la hoja 1
鈥橝ctiva la celda B3 escribe 23,36
鈥橝ctiva la celda B4 escribe 鈥渆ste numero ES鈥
鈥楲a celda B3 en negrillas
鈥橪a celda B4 en verde
鈥橝ctiva la celda de valor escribe 220000000
鈥橪a celda B4 en rojo
Activa Celda A1 escribe "juanes est谩 atras"
Activa Celda A2

Aqu铆 los retos de esta clase

Reto 1

Reto 2

Reto 3

Reto

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!

Worksheets(鈥淗oja3鈥).Activate
ActiveCell.Value = "Tomas"
ActiveCell.Font.Bold = True
ActiveCell.Font.Color = RGB(220, 0, 0)

En Mac algunas veces tambi茅n es Alt+F11

Ok.

Ejecicio 1

Ejercicio 2

Ejercicio 3

Sub RETOMACRO3()

With Worksheets(鈥渉oja3鈥).Range(鈥渁1鈥)
.Value = 鈥淜evin鈥
.Font.Bold = True
.Font.Color = RGB(255, 0, 0)
End With

End Sub

鈥楨scribir lo que est谩 haciendo la macro de arriba
鈥 paso por paso. Rectificar corriendo la macro.

'Ir a la hoja 1
鈥檈n la celda b3 escribir 23,36
鈥檈n la b4 el texto este numero es
鈥檈n la celda be en negrita
鈥檒a b4 de color rojo
鈥檈n la celda activa poner 22 millones
鈥檈n la b4 color verde
鈥檈n a1 escribir juanes esta atras
鈥檡 quedar en la 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!

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

Listo:

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.

Adjunto mis soluciones

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

Recordando lo f谩cil que es visual con estas explicaciones

Reto cumplido

!

2020-08-23 (17).png

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

Sub RETOMACRO2()
鈥楨scribir lo que est谩 haciendo la macro de arriba
鈥 paso por paso. Rectificar corriendo la macro.
'Acive la 鈥渉oja1鈥
'En la hoja activa, en la celda b3 ingrese el valor 23.36
鈥橢n la hoja activa, en la celda b4 ingrese el valor 鈥渆ste numero ES鈥
'En la hoja activa, en la celda b3 resaltar en negro
鈥橢n la hoja activa, en la celda b4 cambiar a color verde
鈥橢n la celda activa ingrse el valor 22000000
鈥橢n la hoja activa, en la celda b4 cambiar a color rojo
鈥橢n la hoja activa, en la celda a1 ingrese el valor 鈥渏uanes esta atras鈥
'En la hoja activa, en la celda a2 colocarse
Worksheets(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥渂3鈥).Value = 23.36
ActiveSheet.Range(鈥渂4鈥).Value = "este numero ES"
ActiveSheet.Range(鈥渂3鈥).Font.Bold = True
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(200, 0, 0)
ActiveSheet.Range(鈥渁1鈥).Value = "juanes est谩 atras"
ActiveSheet.Range(鈥渁2鈥).Activate
End Sub

Sub RETOMACRO3()
鈥業r a la hoja 3
鈥橠e acuerdo a la modalidad de la macro EJEMPLO,
鈥 escribir su nombre en negrilla y en color rojo
鈥 en la que est茅 activa
Worksheets(鈥淗oja3鈥).Activate
With ActiveCell
.Value = 鈥淵saac鈥
.Font.Bold = True
.Font.Color = RGB(255, 0, 0)
End With
End Sub

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

Worksheets(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥淏5鈥).Value = "Platzi"
ActiveSheet.Range(鈥淏5鈥).Font.Bold = True
ActiveSheet.Range(鈥淏5鈥).Font.Color = RGB(152, 200, 62)

Respuesta del reto:

Sub RETOMACRO2()

Worksheets(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥渂3鈥).Value = 23.36
ActiveSheet.Range(鈥渂4鈥).Value = "este numero ES"
ActiveSheet.Range(鈥渂3鈥).Font.Bold = True
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(200, 0, 0)
Range(鈥渁1鈥).Value = "juanes est谩 atras"
Range(鈥渁2鈥).Activate

Sub RETOMACRO_2()

鈥楨scribir lo que est谩 haciendo la macro de arriba
鈥 paso por paso. Rectificar corriendo la macro.

'Activar la hoja 1
鈥橢n la celda B3 escribir 23.36
鈥橢n la ceda B4 escribir el valor 鈥淓ste numero Es鈥
'En la celda B3 colocar en negrita el texto
鈥橢n la Celda B4 activar el color RGB (0, 200, 0)
'En la Celda activa colocar el valor 22000000
鈥橢n la celda B4 activar el color RGB (200, 0 ,0 )
'En la celda A1 colocar el valor 鈥淛uanes est谩 atras鈥
'Activar la celda A2

Sub RETOMACRO1()

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

Worksheets(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥淏5鈥).Value = "Platzi"
ActiveSheet.Range(鈥淏5鈥).Font.Bold = True
ActiveSheet.Range(鈥淏5鈥).Font.Color = RGB(152, 200, 62)


Sub RETOMACRO_2()

鈥楨scribir lo que est谩 haciendo la macro de arriba
鈥 paso por paso. Rectificar corriendo la macro.

'Ir a Hoja 1
鈥橧r a la celda B3 y digitar el n煤mero 23.36
鈥橧r a la celda b4 y escribir 鈥渆ste numero ES鈥
'Ir a la celda b3 y activar la negrita
鈥橧r a la celda b4 y activar el color verde
鈥橧ngresar donde el cursor esta posicionado el valor 22000000
鈥橧r a la celda b4 y activar el color rojo
鈥橧ngresar en la celda a1 juanes esta atras



Sub RETOMACRO3()

鈥業r a la hoja 3
鈥橠e acuerdo a la modalidad de la macro EJEMPLO,
鈥 escribir su nombre en negrilla y en color rojo
鈥 en la que est茅 activa

Worksheets(鈥淗oja3鈥).Activate
ActiveSheet.Range(鈥淏2鈥).Value = "ursula"
ActiveSheet.Range(鈥淏2鈥).Font.Bold = True
ActiveSheet.Range(鈥淏2鈥).Font.Color = RGB(200, 0, 0)

El material est谩 excelente

Sub reto1()
Worksheets(鈥淗oja1鈥).Activate
ActiveCell.Range(鈥淏5鈥).Value = "Platzi"
ActiveCell.Range(鈥淏5鈥).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

Buena la clase!


Sub Reto 1

Sub RETOMACRO1()

Worksheets(鈥淗oja 1鈥).Activate
ActiveSheet.Range(鈥淏5鈥).Value = "Platzi"
ActiveSheet.Range(鈥淏5鈥).Font.Color = RGB(152, 200, 62)

End Sub

Explicaci贸n del RETOMACRO_ 2

鈥楢ctiva la Hoja 1鈥
鈥楢ctiva la celda B3 y completa con el valor "23.36鈥
'Activa la celda B4 y completa con el valor 鈥渆ste numero ES鈥 '
鈥楨l valor de la celda B3 lo pone en negrita鈥
鈥楢ctiva la celda B4 y lo pone de color correspondiente a su c贸digo de color鈥
鈥楨n la celda activa completa con el valor 鈥22000000鈥濃
鈥楲a celda B4 lo pone del color correspondiente de acuerdo a su c贸digo de color correspondiente鈥
鈥楨n la celda A1 lo completa con el valor 鈥渏uanes est谩 atras鈥濃
鈥楢ctiva la celda A2鈥

End Sub

Sub RETOMACRO3()

Worksheets(鈥淗oja 3鈥).Activate
With ActiveSheet.Range(鈥渁7鈥)
.Value = 鈥淟eticia鈥
.Font.Bold = True
.Font.Color = RGB(0, 255, 0)
End With

End Sub

Reto 1

Reto 2

Reto 3

Muy buen aporte

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(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥淏5鈥).Value = "Platzi"
ActiveSheet.Range(鈥淏5鈥).Font.Color = RGB(152, 200, 62)

Reto 2
Sub RETOMACRO2()
鈥楢ctivar la hoja1鈥
鈥榠r a la celda 鈥渂3鈥 y colocar el valor de 23.36 y en negrilla鈥
鈥榠r a la celda 鈥渂4鈥 y colocar el testo 鈥渆ste numero ES鈥濃
鈥楨l texto en negrilla y de color verde鈥
鈥榚n la celda activa colocar el valor de 22000000鈥
鈥榗ambiar el color de la celda B4 por rojo鈥
鈥榚n la cenda a1 colocar el texto 鈥渏uanes est鈥檃 atras鈥濃
鈥榶 activar la celda a2鈥

Worksheets(鈥淗oja1鈥).Activate
ActiveSheet.Range(鈥渂3鈥).Value = 23.36
ActiveSheet.Range(鈥渂4鈥).Value = "este numero ES"
ActiveSheet.Range(鈥渂3鈥).Font.Bold = True
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(0, 200, 0)
ActiveCell.Value = 22000000
ActiveSheet.Range(鈥渂4鈥).Font.Color = RGB(200, 0, 0)
Range(鈥渁1鈥).Value = "juanes est谩 atras"
Range(鈥渁2鈥).Activate

End Sub

Reto 3

Creo que para el reto 2 es indispensable agregar 鈥淎ctiveSheet鈥 en las dos 煤ltimas lineas, de modo que quede as铆:

ActiveSheet.Range(鈥渁1鈥).Value = "juanes est谩 atras"
ActiveSheet.Range(鈥渁2鈥).Activate

De lo contrario no va a funcionar

Reto Realizado
Macro 1

Macro 2

Macro 3

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

RETO 1

RETO 2

RETO 3

RETO 1

RETO 2

RETO 3

Voy que todos han compartido material excelente, 驴D贸nde puedo aprender Microsoft Visual Basic para hacer las macros? 鈥e puede hacer con otro lenguaje?

With Worksheets(鈥淗oja1鈥).Range(鈥渇12鈥)
.Value = 鈥淧latzi鈥
.Font.Bold = True
.Font.Color = RGB(0, 200, 0)
End With
![](