Autofiltro que muestra todos los datos y no quiero...

1 post / 0 nuevos
Francisco Rojas...
Imagen de Francisco Rojas Palacios
Offline
última acción: Hace 1 semana 20 horas
alta: 06/09/2019 - 15:03
Puntos: 25
Autofiltro que muestra todos los datos y no quiero...

Muy buenas!

es mi primera vez haciendo macros... y me he atorado en un problema que no se como resolver.

Tengo un documento donde quiero copiar datos filtrados de una pagina a otra, sin embargo cuando le doy la opcion al autofiltro mediante la macro que busque informacion que se que no tengo, me despliega todos los datos y esos me los muestra, cosa que no quiero.

Ejemplo:

En el plantel Abasolo el grupo 101 (1A) se encuentra la alumna Cristina Cruz (esto me lo muestra a la perfeccion)

pero si cambio el grupo al 102 (1B) (EN EL CUAL NO TENGO DATOS) me despliega todos los alumnos de todos los planteles y grupos

y me gustaria que en vez de eso mostrara un msgbox que diga "No se encuentran datos"

este es el codigo que estoy usando:


Sub Resultados()

'

' Resultados Macro

'

' Acceso directo: CTRL+q

 

Sheets("Sabana por grupo").Select

    Rows("2:100").Select

    Selection.ClearContents

    Sheets("presabana Total").Select

 

    ActiveSheet.Range("$A$1:$DI$19").AutoFilter Field:=8, Criteria1:= _

    Worksheets("Reporte General").Range("B7")

    ActiveSheet.Range("$A$1:$DI$19").AutoFilter Field:=6, Criteria1:= _

    Worksheets("Reporte General").Range("D7")

    

    ActiveWindow.SmallScroll Down:=-21

    Range("A2:CZ80").Select

    Selection.Copy

    Sheets("Sabana por grupo").Select

    ActiveWindow.SmallScroll Down:=-18

    Range("A2").Select

    ActiveSheet.Paste

    Sheets("presabana Total").Select

    ActiveSheet.Range("$A$1:$DI$80").AutoFilter Field:=8

    ActiveSheet.Range("$A$1:$DI$80").AutoFilter Field:=6

    Range("H3").Select

    Sheets("Reporte General").Select

 

End Sub


subo el documento para mas informacion, todos los datos con el que cuenta son inventados...

AdjuntoTamaño
File resultados_tamizajes.xlsm9.2 MB

Etiquetas: