Como se sabe el comando WITH te permite manipular el formato de las diversas celdas ya sea el color de fondo, el tamaño de letra, el tipo de letra, entre otras cosas.
En esta ocasión se tomara como ejemplo una base de datos de facturas para ver como con el uso del comando WITH se puede tener información mucho mejor explicada y con una apreciación mas ordenada . Esta base de datos esta si ningún formato como se podrá apreciar en la imagen siguiente.
(Para mayor visualización de la imagen, hacer click en la misma)
En el caso del Titulo y la linea de rótulos, con el uso de los comandos listados a continuación nos permitirá tener un cambio de fondo, letra en negrita, etc.
Siendo el caso del Titulo:
.Bold = True
.Name = "Calibri"
.Size = 24
.ThemeColor = xlThemeColorLight2
.TintAndShade = -0.499984740745262
End With
Luego con el apoyo de otros comandos como el FOR y el IF podemos lograr que se realice una diferenciación a través de colores sobre los estados de las facturas para una mas rápida identificación.
ult = Cells(Rows.Count, 1).End(xlUp).Row
For x = 5 To ult
If Cells(x, 3) = "Anulada" Then
Cells(x, 3).Select
Range(Selection, Selection.End(xlToLeft)).Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
End If
Next
En el archivo adjunto se encontrara la rutina completa, tanto para darle formato a todo el cuadro como para poder identificar las facturas sin uso y las pendientes.
Editado por: Joseph Rengifo