Excel Avanzado

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

Excel Avanzado
Logo Excel Avanzado

5 trucos de Macros recomendables

| 0 comments

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

 

im1

 

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

 

 im2

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

 im3

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  http://www.excel-avanzado.com/trucos-de-excel-avanzado

Por: Mayté Mercedes

 

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5