OsmaniPititi publicó en la clase Introducción a la Instrucción With...End With hace 1 día
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
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
Respuestas
JuliaBravo490 respondió hace hace 1 día:
Hola, Osmani.
Gracias por tu aporte. Está muy bien planteado.
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
Saludos,
Julia - Equipo Deztaca