UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Criterios predefinidos el 10/05/16, 02:11 am

FlorT


Buenas noches,

Vengo a pedir su ayuda, necesito predefinir criterios en macros para que solo al darte el botón filtrar se me ponga automáticamente.

También, (no se si sea válido) necesito que ese criterio filtre todos los carriers que contengan valores mayores a 1, de todos los tipos de empaque (skids, carton y bundle).

Adjunto el archivo para mostrar a lo que me refiero, espero puedan ayudarme.

Muchas gracias!!!

Este es el macro que utilizo:

Sub Format()
' Format Macro
    Application.ScreenUpdating = False
    Range("H5:M100,H4:M4").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.ClearContents
    Range("H4").Select
End Sub

Sub Filtrar()
    'Limpiamos los valores antes filtrados
    Application.ScreenUpdating = False
    Range("H5:M100").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.ClearContents
    
    Range("A5:F29").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "H3:M4"), CopyToRange:=Range("H5:M5"), Unique:=False
        
    Range("H4").Select
End Sub
Archivos
ejemplo.xlsx
No tienes los permisos para descargar los archivos.
(27 KB)

2RESUELTO Re: Criterios predefinidos el 10/05/16, 12:31 pm

Igtelo


Hola Flor.

Sólo te filtra un dato porque es el único que cumple en que todas las columnas son mayores que cero. Cuando el rango de criterios es en la misma fila Excel asume que todo se debe cumplir.

Como te lo mando también puedes utilizar filtro automático, ve cual te conviene...

Saludos
Ignacio Téllez
Archivos
FlorT-Filtro avanzado.xlsm
No tienes los permisos para descargar los archivos.
(26 KB)

3RESUELTO Re: Criterios predefinidos el 10/05/16, 02:46 pm

FlorT


Hola Ignacio,

Muchas Gracias!!!

Si me sirvió, ahora estoy un poco detenida ya que no encuentro porque al momento de filtar en la segunda columna de cartons me pone la misma cantidad que en la primera, pero bueno le seguire buscando.

Nuevamente muchas gracias por tu ayuda!!!  Very Happy

4RESUELTO Re: Criterios predefinidos el 10/05/16, 04:36 pm

Igtelo


Hola otra vez Flor.

Eso pasa porque los títulos de tus columnas son iguales, cambia la 2a. columna a cartons2 y listo.
Básico en Excel: Nunca deben existir encabezados de columnas iguales.

Saludos
Ignacio Téllez

5RESUELTO Re: Criterios predefinidos el 10/05/16, 07:55 pm

FlorT


Muchisisisismas Gracias Ignacio, de verdad muy agradecida con tu ayuda!!

Saludos!!  Smile Smile

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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