Enviar rango de Excel por correo

Hola

Hace unos dias alguien de por ahi me consulto, sobre como enviar un rango seleccionado/filtrado por correo desde Excel, pues existe una forma muy facil para hacerlo, se supone que filtramos la tabla y esos datos visibles apareceran en el cuerpo del texto

Pd tambien se puede adjuntar el archivo de una vez

Revisar el adjunto y espero sea de utilidad

Saludos desde Honduras

Turbo Filtro en Userform

Hola

Este aporte es una version similar al turbofiltro, pero enfocado dentro de un userform (formulario), la verdad no es complicado el codigo (ya lo veran)

1- Se puede adaptar a cualquier base de datos
2- Se puede iniciar desde cualquier hoja
3- Se debe dejar libre la hoja "LISTBOX" (esta oculta)
4- Para Nombre/Apellido la busqueda es del tipo comodin *caracteres*
5- Para Puesto y Area es del tipo comodin *caracteres
6- Para Legajo y Categoria la busqueda es meramente numerica
7- El filtro es permanente, es decir dinamico, mientras introduces cualquier caracter
8- Si los textbox estan vacios el Listbox se limpia

Espero lo disfruten y que se aproveche

Saludos desde Honduras

Colorear celda en filtro activo

Hola
A veces algunos usuarios se pierden, en sus bases de datos, cuando estan haciendo muchos filtros, en el sentido de que Excel da color nada mas a la flechita del filtro activo, pues bien lo que tratan las siguientes macros es de colorear el encabezado donde existe un filtro de datos

Sub colorearceldafiltro()
Application.ScreenUpdating = False
With ActiveShee
tucol = .Range("A1", .Range("A1")).End(xlToRight).Column    If .AutoFilterMode Then    
With Range(Cells(1, 1), Cells(1, ucol))        
.Interior.ColorIndex = 0        
.Font.ColorIndex = 0    
End With    
For col = 1 To ucol    
With .AutoFilter.Filters(col)    
If .On Then        
'c1 = .Criteria1        
With Cells(1, col)            
'.Value = "'" & VBA.Mid(c1, VBA.InStr(c1, "=") + 1, 100)            
.Font.ColorIndex = 2            
.Interior.ColorIndex = 1        
End With    
End If    
End With    
Next col    
End If
End With
Application.ScreenUpdating = True
End Sub

Revisar el adjunto para pruebas y espero sea de utilidad

Saludos

Colorear facilmente la fila activa

Hola
Esta es una forma facil de pintar la fila activa en Excel mediante VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rem conseguimos la ultima celda ocupada de la columna A
uf = Range("A" & Rows.Count).End(xlUp).Row
Rem trabajaremos con Target/Objetivo
With Target
    Rem si la columna activa se localiza despues de la columna E
    Rem si la fila activa es menor que 5
    Rem si la fila activa es mayor que uf (ultima fila ocupada)
    Rem >>> entonces salir de la rutina
    If .Column > 5 Or .Row < 5 Or .Row > uf Then Exit Sub
    Rem trabajando con el rango Range("A5:E" & uf)
    With Range("A5:E" & uf)
        Rem ningun color
        .Interior.ColorIndex = xlNone
        Rem negrita desactivada
        .Font.Bold = False
    End With
    Rem trabajar con la celda/fila activa
    With Range(Cells(.Row, 1), Cells(.Row, 5))
        Rem color a 6 (amarillo)
        .Interior.ColorIndex = 6
        Rem negrita activada
        .Font.Bold = True
    End With
End With
End Sub

Espero que sea de mucha utilidad

Saludos desde Honduras

Validacion de datos (tipo Google)

Hola
He preparado la siguiente lista dinamica (validacion de datos), solo se debe escribir la(s) letra(s) y pinchar o dar clic en la flechita de validacion para ver los datos encontrados segun el criterio

He usado la funcion INDICE, COINCIDIR y CONTARSI

Espero sea de mucha utilidad

Saludos desde Honduras

https://1drv.ms/x/s!ArXFzDCBi3UYgllU_n4XKBBWfinR