Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Uso de With para dar formato a un registro de facturas

| Sin comentarios

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.

Imagen2

(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:

Imagen3

.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.

Imagen1

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

Formato para Registro Facturas con funcion With

Deja una respuesta

Los campos requeridos estan marcados con *.