Entrada creada por Huicho
**************************************************
Muchas gracias Huicho! Te agradezco mucho tu primera entrada y espero que haya muchas más!.
-----------------------------------------------------------------------------------
Cuando se trabaja con muchas celdas, y utilizamos filtros, hay un momento en que tienes varios filtros utilizados, y entre tanta información se olvida que columnas estamos utilizando con dicha herramienta.
En esta ocasión, comparto esta macro, la cual al ejecutar colorea el fondo de la celda de color negro y la fuente de color blanco, y así es más visible la celdas que están filtradas, y no deshacer todos los filtros o quitarlos y volver a empezar.
Asi que a abri el editor de Visual Basic y pegar...
El código es el siguiente:
'---------------------------------------------------------------------------------------
' Macro : colorearceldafiltro
' Fecha : 19/08/2016
'---------------------------------------------------------------------------------------
'
Sub colorearceldafiltro()
With ActiveSheet
ucol = .Range(ActiveCell, ActiveCell).End(xlToRight).Column
fil = ActiveCell.Row
If .AutoFilterMode Then
With Range(Cells(fil, 1), Cells(fil, ucol))
.Interior.ColorIndex = 0
.Font.ColorIndex = 0
End With
For col = 1 To ucol
With .AutoFilter.Filters(col)
If .On Then
fil = ActiveCell.Row
With Cells(fil, col)
.Font.ColorIndex = 2
.Interior.ColorIndex = 1
End With
End If
End With
Next col
End If
End With
End Sub
'---------------------------------------------------------------------------------------
Bueno, eso es todo, saludos
Si te gustaría entender cómo funciona este código, por qué no coger mi curso de iniciación a las macros por tan sólo €50.
*********************************************************************************************
Por cierto si necesitas cursos personalizados de Excel via Skype mándame un email a
elsabiodeexcel@gmail.com.
Nuevos cursos recientemente creados:
1. Tablas dinámicas - 2-3 horas por skype €45
2. Iniciación a las macros - aprende a tu propio ritmo €50
*********************************************************************************************
El Sabio de Excel les quiere recomendar un nuevo ebook que les explicará todo lo que necesitan saber sobre Power Pivots.
EL ADN DE POWER PIVOT
Guía paso a paso sobre Power Pivot, construcción de modelo de datos y el lenguaje DAX, con orientación a inteligencia de negocios.
Formato: PDF Libre de DRM, Descarga INMEDIATA. Datos Técnicos: 476 Páginas + Compendio de Archivos Precio: $ 32 95 USD (Dólares Americanos)
****************************************************************************
Te ha gustado el artículo?
No te olvides de mostrar tu gratitud hacia el autor (yo) mediante una de las 3 siguientes acciones:
1. Puedes invitarme a un café pinchando en la siguiente imagen.
2. Puedes hacer clic en los anuncios mostrados en la página
3. Puedes recomendar el artículo en Google haciendo clic en g+1 (justo después del artículo), también puedes compartirlo en Facebook, y/o dejar comentarios.
No te olvides de mostrar tu gratitud hacia el autor (yo) mediante una de las 3 siguientes acciones:
1. Puedes invitarme a un café pinchando en la siguiente imagen.
2. Puedes hacer clic en los anuncios mostrados en la página
3. Puedes recomendar el artículo en Google haciendo clic en g+1 (justo después del artículo), también puedes compartirlo en Facebook, y/o dejar comentarios.
Quieres aprender más en Excel o tienes algún problema que necesita solución?
Puedo ofrecer servicios de consultoría así como cursos personalizados online. Mírate el siguiente enlace si estás interesado/a.
No hay comentarios:
Publicar un comentario