Jump to content

Macro imprimir seleccion de autofiltro


Go to solution Solved by Gerson Pineda,

Recommended Posts

Buenos dias , quisiera saber si es posible mediante la funcion grabar macros realizar una macro utilizando el autofiltro de excel para poder imprimir listados actualizados un determinado dia o si hay otra manera.

ejemplo que con un boton me imprima las personas que estan al dia. o vencidos o por vencer.adjunto un archivo con diferentes estados  con filtrar como ejemplo

muchas gracias

consulta macro filtro.xlsx

Link to post
Share on other sites
  • Solution

Agrega una hoja y desde la celda A1 deja los estados

Y luego pega esta macro en un modulo estándar

Sub ImprimirEstados_GP()

For Each c In Hoja2.Range("A1").CurrentRegion
    Hoja1.Range("D7").CurrentRegion.AutoFilter 2, c
    Hoja1.PrintOut
Next
Hoja1.Range("D7").CurrentRegion.AutoFilter

End Sub

Luego investiga como realizar una tarea con el administrador de tareas, de modo que cada día lo abra y ejecute la macro

Para ejecutar la macro al abrir el archivo, utiliza el evento "Open" del modulo Thisworkbook

 

Saludos 

Link to post
Share on other sites
En 12/5/2021 at 15:46 , Gerson Pineda dijo:

Agrega una hoja y desde la celda A1 deja los estados

Y luego pega esta macro en un modulo estándar


Sub ImprimirEstados_GP()

For Each c In Hoja2.Range("A1").CurrentRegion
    Hoja1.Range("D7").CurrentRegion.AutoFilter 2, c
    Hoja1.PrintOut
Next
Hoja1.Range("D7").CurrentRegion.AutoFilter

End Sub

Luego investiga como realizar una tarea con el administrador de tareas, de modo que cada día lo abra y ejecute la macro

Para ejecutar la macro al abrir el archivo, utiliza el evento "Open" del modulo Thisworkbook

 

Saludos 

Gerson gracias por tu respuesta, con esta macro solo busca el estado del a1? osea yo tengo en la hoja 2 los tres estados, y se le esta diciendo que busque los socios que tienen el mismo estado? osea quisiera saber si puedo imprimir las 3 variables filtradas ya, ya que con la funcion grabar macro no lo puedo realizar. currentRegion.autofilter 2, c que estaria buscando? disculpa la ignorancia, pero necesito entenderlo para adaptarlo a mi hoja de calculo del trabajo

Link to post
Share on other sites
Hace 8 horas, juanmanuel85 dijo:

osea quisiera saber si puedo imprimir las 3 variables filtradas

Si, eso es lo que hace

Hace 8 horas, juanmanuel85 dijo:

currentRegion.autofilter 2, c que estaria buscando? disculpa la ignorancia, pero necesito entenderlo para adaptarlo a mi hoja de calculo del trabajo

Lo que hace esa linea de código, es que selecciona toda la tabla, para que sin importar cuantas columnas hay en la BD, siempre va filtrar por el estado, es decir la columna 2

Lee por cada comando o función que desconoces

 

Saludos 

Link to post
Share on other sites
Hace 12 horas, Gerson Pineda dijo:

Si, eso es lo que hace

Lo que hace esa linea de código, es que selecciona toda la tabla, para que sin importar cuantas columnas hay en la BD, siempre va filtrar por el estado, es decir la columna 2

Lee por cada comando o función que desconoces

 

Saludos 

Gerson, muchas gracias fue muy util la macro, te hago una ultima consulta mi "hoja1" se llama "datos" pero note que alcambiar el nombre en la macro me sale un mensaje de error diciendo que "hace falta un objeto",

Sub ImprimirEstados_GP()

For Each c In Hoja2.Range("A1").CurrentRegion
    DATOS.Range("D7").CurrentRegion.AutoFilter 2, c
    DATOS.PrintOut
Next
DATOS.Range("D7").CurrentRegion.AutoFilter

End Sub

la palabra datos esta escrita tal cual la tengo en el documento.

hara falta una comilla o algo?

muchas gracias

Link to post
Share on other sites

Si observas yo utilizo el codename [dentro del proyecto VBA podrás verlo en el panel de la izquierda] de las hojas, para evitar errores como el tuyo, de modo que no importa si los nombres de las hojas cambian

Pero si deseas trabajar con el nombre de hoja, debes hacerlo así: Sheets("DATOS")

 

Saludos

Link to post
Share on other sites
Hace 54 minutos , Gerson Pineda dijo:

Si observas yo utilizo el codename [dentro del proyecto VBA podrás vero en el panel de la izquierda] de las hojas, para evitar errores como el tuyo, de modo que no importa si los nombres de las hojas cambian

Pero si deseas trabajar con el nombre de hoja, debes hacerlo así: Sheets("DATOS")

 

Saludos

@Gerson PinedaSolo para confirmar quedaria asi ?Sheets("DATOS").Range("D7").CurrentRegion.AutoFilter 2, c.  ..porque tengo muchas hojas y no se realmente a donde iria en hoja1
Link to post
Share on other sites
Hace 10 horas, Gerson Pineda dijo:

Te dejo una imagen para mejor referencia, del proyecto VBA 

Sin título.png

Hoja1, Hoja2, Hoja3 es el codename de las hojas

BD, Datos1, Datos2 son los nombres de las hojas

Seguro ahora si te queda mas claro

 

Saludos!

 

Link to post
Share on other sites

disculpa de nuevo @Gerson Pineda estoy intentando colocar la macro en un boton de imprimir listado, la columna de estado (al dia o vencido o por vencer) se encuentra en la columna L. y los nombres de los estados en la hoja llamada hoja2 que en realidad es la hoja5. yo modifique la macro para nombrar la columna L que es donde estaba el estado pero consigo solamente que me imprima los titulares, tambien lo modifique para que no me imprima los titulares de mas un rango de celda de la hoja datos..pero no me imprime ningun nombre, sera qe esta buscando el dato en otra columna? los nombres de las celdas son:

HOJA1 (CORREO)

HOJA2(DATOS) ACA ESTAN LOS DATOS ES LA HOJA DE LA IMAGEN DONDE EN L ESTA EL ESTADO

HOJA3 (AÑO)

Hoja4 (CONTRATO)

Hoja5( HOJA 2) ACA ESTAN LOS NOMBRES DE LOS ESTADOS

1229631896_celdaele.thumb.jpg.7badde56a938727664a37b43f1782ca1.jpg

El codigo que estoy usando es el siguiente 

Sub IMRIMRILISTADO()
For Each c In Hoja5.Range("A1").CurrentRegion
    Hoja2.Range("L7").CurrentRegion.AutoFilter 2, c
    Worksheets("DATOS").Range("A7:L303").PrintOut
Next
Hoja2.Range("L7").CurrentRegion.AutoFilter

End Sub

disculpa  de nuevo es que quiero entender bien cual es la funcion de la letra en la hoja 1 para reemplazar correctamente el dato y lograr imprimir de la celda a7 a la l303 sin problemas con cada filtro

hoja2.jpg

celda ele.jpg

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Crear macros Excel

  • Posts

    • ¡¡¡¡ El archivo Libro1-1.xlsm
    • Prueba la macro, la solución en BD Solucion2de2, sin pasar por BD Solucion1de2. Sub FillRate() Application.ScreenUpdating = False With Sheets("BD Solución2de2") Sheets("BD").Cells.Copy .Cells .Select For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row If x Mod 500 = 0 Then Application.StatusBar = "Tratando fila " & x If Not .Range("A" & x) = "" Then If .Range("C" & x) > 0 Then Base = "C" & x .Range("I" & x).Formula = "=D" & x & "/" & Base If .Range("I" & x) > 1 Or .Range("I" & x) < 0 Then .Rows(x).Delete x = x - 1 End If End If Next End With Application.StatusBar = False End Sub En la línea de estado de Excel se muestra un pequeño avance del proceso.
    • Un saludo a ambos, aquí te dejo otra opción
    • Private Sub TextBox1_Change() ActiveSheet.Range("C6").Value = TextBox1.Text TextBox3 = Range("C8").Text End Sub Private Sub TextBox2_Change() ActiveSheet.Range("C7").Value = TextBox2.Text TextBox3 = Range("C8").Text End Sub Private Sub CommandButton1_Click() TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox1.SetFocus End Sub  
    • este es el archivo con userform   Libro1.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy