............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Vencimiento de Fechas

Ver el tema anterior Ver el tema siguiente Ir abajo

Vencimiento de Fechas

Mensaje por SALAVERRINO el Dom Nov 01, 2015 10:14 pm

Buenos noches a los miembros de este foro, en esta oportunidad quisiera solicitar la ayuda con esta macro donde me genera en la hoja2 un reporte de las fechas que están por vencer de acuerdo a la fecha del computador.

En el archivo que adjunto en Hoja1, se encuentran mi base de datos donde las fechas están registradas en la Celda A y en la Celda AD se visualiza con color verde la palabra Activo y Pendiente, también hay un control de formularios(botón) resaltado en color negro VENCIMIENTO, y al presionar dicho botón se ejecuta la macro y como podrán ver están los datos generados, pero esa forma no es la correcta que deseo, sino que solamente debería quedar lo que a continuación detallo:

Gremio
Apellidos
Entidad
Vencimiento de Fecha

Ademas quisiera solicitarte y sino fuese mucha molestia que se pudiera emitir una alerta con un MsgBox, resaltando la palabra Activo y bueno a la espera de ayuda y colaboración quedo de Uds.

Código:
Sub CopiarVencidas_GP()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
Dim Rango As Range
Set Rango = Range("A1").CurrentRegion
With Rango
    .AutoFilter 30, "Activo"
    '.AutoFilter 29, "<>Empacado"
    .Copy Hoja2.Range("A1")
    .AutoFilter
End With
Set Rango = Nothing
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

No puedo subir el archivo a pesar que esta zipeado y solo ocupa 248 Kb y según el foro capacidad maximo 0.488 Mb.

SALAVERRINO

Masculino Cantidad de envíos : 4
Edad : 50
Ciudad - Pais : PERU
Version de Excel : EXCEL 2007 Y 2010
Fecha de inscripción : 25/10/2012

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.