Deztaca - Academia online para destacar en tu trabajo

Clases

1: Introducción a las Macros en Excel

2: Editor de Visual Basic

3: Fundamentos de VBA y el Modelo de Objetos en Excel

4: Herramientas de VBA para agilizar tu aprendizaje

5: Manipulación de celdas, rangos, filas y columnas

6: Propiedades más usadas para trabajar con rangos de celdas

7: Métodos más usados en rangos de celdas

8: Trabajo con Hojas y métodos más usados

9: Trabajo con Archivos y métodos más usados

10: Variables, constantes y tipos de datos

11: Variables de objeto y la instrucción Set

12: Ámbito de las variable, tiempo de vida y variables estáticas

13: Instrucción If...Then...Else para la toma de decisiones

14: Instrucción With...End With para facilitar nuestro código

15: Función MsgBox para mostrar mensajes

16: Función y método InputBox para ingresar valores

Introducción a la Instrucción With...End With

Participaciones

Inicia sesión para dejar tu duda, comentario y/o respuesta

Iniciar sesión Inscribirme

OsmaniPititi hace 1 mes

Buenos Dias

Otra variante de codigo en aras de aplicar algo de lo aprendido hasta ahora seria la siguiente

Dim rango As Object
Set rango = ThisWorkbook.Sheets("Hoja1").Range("A16").CurrentRegion.Font

With rango
.Name = "Calibri"
.Size = 10
.Bold = True
.Italic = True
End With

JuliaBravo490 hace 1 mes

Hola, Osmani.

Gracias por tu aporte. Está muy bien planteado.

Como variante, te sugiero que en lugar de declarar rango como Object, lo declares como Range. ¿Por qué? Porque así VBA “sabe” que estás trabajando con un rango de celdas, te da autocompletado de propiedades/métodos, y es más fácil detectar errores (por ejemplo, cuando una propiedad no corresponde).

Te animo a que lo pruebes con esa pequeña mejora y nos cuentes cómo te fue y si notaste la diferencia al escribir el código.

Saludos,
Julia - Equipo Deztaca