1) CAMBIAR FUENTE
Este truco es vital cuando se quiere cambiar el color, letra, o tamaño de letra.
Sub CambiarFuente01()
With Selection.Font
.Name = "Time New Roman"
.FontStyle = "Bold Italic"
.Size = 12
.Underline = xlSingle
.ColorIndex = 5
End With
End Sub
(Para mayor visualización de la imagen, hacer click en la misma)
2) IDENTIFICAR LA ÚLTIMA FILA EN USO
Excel suele tener amplias bases de datos. Muchas veces se necesita identificar la ultima fila de la base de datos con la que está trabajando, esto se puede lograr arrastrando la barra espaciadora harta el final, pero una manera más rápida de hacerlo es usando macros para detectar dicha última fila. Se presenta a continuación:
Sub BuscarUltimaFila()
Dim ult As Integer
ult = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox ult
End Sub
(Para mayor visualización de la imagen, hacer click en la misma)
3) CONTAR HOJAS
Este truco puede resultar útil en algún momento en que se quiera saber la cantidad de hojas que se encuentran en el libro que se está trabajando.
Sub contarhojas()
Dim item As Worksheet
For Each item In ActiveWorkbook.Sheets
MsgBox item.Name
Next item
End Sub
(Para mayor visualización de la imagen, hacer click en la misma)
4) CAMBIAR LOS COLORES DE FONDO DE LA CELDA ACTIVA
Excel cuenta con 56 colores disponibles, cuando el usuario quiere cambiar el color de la celda activa puede usar el código que se encuentra líneas abajo. El número representa el color, se puede elegir de 1 al 56.
Sub colorcelda()
ActiveCell.Interior.ColorIndex = 26
End Sub
5) ELIMINAR HIPERVINCULOS DE UNA HOJA ACTIVA
Este truco permite eliminar el link que se encuentra en una celda activa. El siguiente código es de utilidad para lograr esto:
Eliminar_hipervinculos ()
Do Until ActiveSheet.Hyperlinks.Count = 0
ActiveSheet.Hyperlinks.Delete
Loop
End Sub
Para revisar mas trucos de macros puede examinar la lista disponible en https://www.excel-avanzado.com/trucos-de-excel-avanzado
Por: Mayté Mercedes