Duda con macro

Quisiera saber si en esta esta parte de la macro
Range("A1:G254").AdvancedFilter
Se puede ajustar el tamaño del rango del libro con el que estoy trabajando ya que este cambia día a día y por consecuencia los rangos
Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 02/09/2004 por Ricardo Garza
'
'
Selection.End(xlToRight).Select
ActiveCell.FormulaR1C1 = "Plaza"
Range("J2").Select
ActiveCell.FormulaR1C1 = "CULIACAN"
Range("J3").Select
ActiveCell.FormulaR1C1 = "LOS MOCHIS"
Range("J4").Select
ActiveCell.FormulaR1C1 = "MAZATLAN"
Range("J5").Select
ActiveCell.FormulaR1C1 = "NOGALES"
Range("J6").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Range("A1:G254").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("J1:J5"), Unique:=False
End Sub
Respuesta
1
Desde Barquismeto, Venezuela.
Lo que puedes hacer para poder ampliar el rango de tu filtro avanzado es lo siguiente; aquí te envío el código que me enviaste con las modificaciones necesarias para que pueda funcionar como quieres:
---------- Código ------------->
Dim rango As String ' Primera Modificación
Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 02/09/2004 por Ricardo Garza
'
'
Selection.End(xlToRight).Select
ActiveCell.FormulaR1C1 = "Plaza"
Range("J2").Select
ActiveCell.FormulaR1C1 = "CULIACAN"
Range("J3").Select
ActiveCell.FormulaR1C1 = "LOS MOCHIS"
Range("J4").Select
ActiveCell.FormulaR1C1 = "MAZATLAN"
Range("J5").Select
ActiveCell.FormulaR1C1 = "NOGALES"
Range("J6").Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
rango = "A1:G254" ' Segunda Modificación
Range(rango).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("J1:J5"), Unique:=False
End Sub
-------- Fin de Código ----------->
Te explico: Para empezar, debes declarar a la variable "rango" como un Strig la cual contendrá el rango de celdas a filtrar; luego debes agregar la linea donde le asignas a ese "rango"; valga la redundancia, el rango de valores a filtrar. Una manera práctica de hacerlo es introducir este valor en una celda específica y vincular a ésta con la variable "rango" mediante la asignación:
rango = Range("H1").Value
Suponiendo que introduces el rango de celdas (A1:G254 o mayor), en la celda "H1". Y para terminar debes sustituir en la última línea de tu código en el rango "Range("A1:G254")" por "Range(rango)" y obtendrás lo que deseas. Espero te sirva la respuesta, de cualquier manera si tienes alguna duda con el código o con alguna otra cosa de Excel, escríbeme y con gusto te responderé. No olvides puntualizarme.
Estamos en contacto.

4 respuestas más de otros expertos

Respuesta
1
Si va hasta el final de los datos, puedes utilizar la siguiente opción:
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Si no es así, dime cuál es el criterio para que aumente el rango o hasta qué lugar iría y te puedo dar otra idea.
Hice lo siguiente pero el depurador me subraya lo sig .AdvancedFilter
Me podrías ayudar a acomodar la linea en la macro ya que no se mucho de esto
Por tu ayuda gracias
Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 02/09/2004 por Ricardo Garza
'
'
Selection.End(xlToRight).Select
ActiveCell.FormulaR1C1 = "Plaza"
Range("J2").Select
ActiveCell.FormulaR1C1 = "CULIACAN"
Range("J3").Select
ActiveCell.FormulaR1C1 = "LOS MOCHIS"
Range("J4").Select
ActiveCell.FormulaR1C1 = "MAZATLAN"
Range("J5").Select
ActiveCell.FormulaR1C1 = "NOGALES"
Range("J6").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("J1:J5"), Unique:=False
End Sub
Éste sería el código
Sub Macro2()
'
'
'
Dim ultcelda As Integer
Selection.End(xlToRight).Select
ActiveCell.FormulaR1C1 = "Plaza"
Range("J2").Select
ActiveCell.FormulaR1C1 = "CULIACAN"
Range("J3").Select
ActiveCell.FormulaR1C1 = "LOS MOCHIS"
Range("J4").Select
ActiveCell.FormulaR1C1 = "MAZATLAN"
Range("J5").Select
ActiveCell.FormulaR1C1 = "NOGALES"
Range("J6").Select
ActiveCell.SpecialCells(xlLastCell).Select
i = ActiveCell.Row
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Range("A1:G" & i).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("J1:J5"), Unique:=False
End Sub
No te olvides de calificar
Respuesta
1
Si. Tienes que crear una variable que halle cual es el rango. Si pones
Range("g2").Select
Selection.End(xlDown).Select
rownumber = ActiveCell.Row
Esto te dará el valor de la fila.
Despues pones Range("A1:G" & rownumber).advanced... etc y ya esta
Luis
Si. Tienes que crear una variable que halle cual es el rango. Si pones
Range("g2").Select
Selection.End(xlDown).Select
Disculpa no se mucho de programación a que te refieres con esto
¿Con esto tendría que cambiar el rango de la base de datos todos los días? Ya que como te digo los libros y los rangos varían
Con selection end lo que hace es ir hasta la ultima fila de la columna g para determinar cual es la última fila del rango.
Con eso no tendría que cambiar el rango:pones
Range("A1:G"& rownumber).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("J1:J5"), Unique:=False
Esto soluciona el problema de cambiar el rango
El libro es otro problema: yo pondría esta macro en todos los libros y así te soluciona el problema
Respuesta
1
Lo lamento, pregunta a otro experto.
Respuesta
1
Por lo visto encontraste una forma más sencilla de utilizar el filtro avanzado.
Con respecto a la actualización del rango, lo que hago es manejar una variable que me controle el numero de fila del ultimo registro (supongo que las columnas siempre son las mismas). No utilizo selection.end pues aunque es más rapido no es tan confiable.
El código queda más o menos:
Range("A1") 'Inicio de la base de datos
While activecell<>""
Activecell.offset(1,0).select
Wend
i=Activecell.row-1
Luego entonces donde va el rango Range("A1:G254") quedaria:
Range("A1:G" & i & "").
Cualquier duda me avisas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Al seleccionar celda extraer sus dígitos automáticamente

Necesito dos favores, la idea es que al seleccionar una celda numérica de 4 dígitos del rango "af1;aj42" esta automáticamente extraiga sus cifras a la columna "a1, b1, c1, d1" como se muestra en la imagen Y lo segundo como puedo quitarle el msgbox a...
2 respuestas

Se puede agregar voz a Excel

Tengo una pantalla de vuelo de vuelo donde anotó despegues y arribos, Quiero que cada vez que se produzca un despegue y se agregue hora o aterrice alguno y se ponga la hora, excel diga o se escuche atención Aterrizaje o Atención despegue.
3 respuestas

Gráfico Comparativo por Semanas, en Power Bi.

Espero se encuentren muy bien. Tengo una tabla en Power BI con fechas, códigos, costos y cantidades. La necesidad que tengo es de crear un gráfico o tabla donde pueda comparar y analizar el comportamiento de los costos y las cantidades de un código...
1 respuesta

En una lista para pedidos tengo varios formularios

En una lista para pedidos con varios formularios la vengo usando desde hace tiempo sin ningún problema pero hace días la abrí para hacer un pedido y al pisar en el cuadro donde apunta la flecha para que me abra un otro cuadro donde coloco ciertos...
2 respuestas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Detectar si he marcado Celda dentro de un Rango de Excel.

Tengo un Rango en Hoja Excel: RgoDatos >> $B$3:$V$39 Quiero detectar si la celda que selecciono está dentro de ese Rango Si no está que por omisión me marque B3.
1 respuesta

Dato fecha ya existe en tabla

Como están estimados maestros. En formulario, tengo botón archivar. Envío información a hoja "existencias" a tabla "tbl_existencias". En columna A un Código desde textbox1 En columna B fecha desde textbox "txtFecha2" En columna C total desde textbox2...
2 respuestas

Enviar hoja activa al monitor secundario con vba

He creado una segunda ventana de mi hoja excel con NewWindow, y lo que pretendo es mediante código VBA enviarla al monitor secundario, lo he intentado con Application.SendKeys "^({ESC}+{RIGHT})", pero no lo consigo, con "^{ESC}" estoy tratando de...
2 respuestas

Ingresar información en una hoja y rescatar los datos principales en otra hoja ordenadamente.

Debo hacer cotizaciones y necesito guardar la información de los datos de las personas en una BD, sin ocupar Tablas. Lo principal de esto es que queden ordenada según el número de la cotización y mantener el número correlativo de la cantidad de...
1 respuesta

Como habilitar la Pestaña Automatización en Excel de Office 2021

Quisiera saber cual es el procedimiento para habilitar la pestaña Automatización en Excel 2021 o donde poder bajar ese complemento.
1 respuesta