Modificar macros con rangos pre-establecidos
Tengo dos macros con rango determinado (Rango fijo), que me permiten consultar e imprimir la consulta de un informe elaborado con tabla dinámica. Agradezco tu ayuda en la modificación de estas dos macros de tal forma que el rango sea dinámico (Rango Variable).
MACRO 1
Sub ConsultarOfensiva()
'
' Consultar Ofensiva Macro
' Macro para filtrar AVE, SLUG, AL,...
Range("A7:X47").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("OfensivaGeneral!Criteria"), Unique:=False
End Sub
MACRO 2
Sub ImprimirConsulta()
'
' Imprimir Consulta Macro
'
ActiveSheet.PageSetup.PrintArea = "$A$4:$X$47"
ActiveWindow.SelectedSheets.PrintOut copies:=1
End Sub
1 respuesta
Respuesta de Dante Amor
1
Te anexo las 2 macros actualizadas
Sub ConsultarOfensiva()
'
' Consultar Ofensiva Macro
' Macro para filtrar AVE, SLUG, AL,...
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Range("A7:X" & u).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("OfensivaGeneral!Criteria"), Unique:=False
End Sub
'
Sub ImprimirConsulta()
'
' Imprimir Consulta Macro
'
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
ActiveSheet.PageSetup.PrintArea = "$A$4:$X$" & u
ActiveWindow.SelectedSheets.PrintOut copies:=1
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
