Mejorar esta macro para pegar en orden ascendente
Publicado por santi (24 intervenciones) el 24/05/2019 10:12:55
Buenos días,
Tengo una macro que realiza un filtro avanzado en diferentes hojas, selecciona solo los elementos filtrados y los pega en otra hoja diferente. Lo que necesito es que esta selección la pegue desde una fila hacia arriba, por tanto que la pegue de la fila 10 en ascendente hacia la fila 1.
El problema que tengo es que cuando filtro no siempre tengo el mismo número de filas, por eso no puedo pegar un rango fijo, y por la configuración de la hoja de destino, la información (que actualmente ponemos manualmente) se pone de la fila 10 si tienes solo un ítem, en la 10 y la 9 si tienes dos y así sucesivamente hasta 10 lineas.
La macro es esta:
En la casilla AW15 es donde quiero pegar la información, pero hacia AW14 AW13...
Gracias
Tengo una macro que realiza un filtro avanzado en diferentes hojas, selecciona solo los elementos filtrados y los pega en otra hoja diferente. Lo que necesito es que esta selección la pegue desde una fila hacia arriba, por tanto que la pegue de la fila 10 en ascendente hacia la fila 1.
El problema que tengo es que cuando filtro no siempre tengo el mismo número de filas, por eso no puedo pegar un rango fijo, y por la configuración de la hoja de destino, la información (que actualmente ponemos manualmente) se pone de la fila 10 si tienes solo un ítem, en la 10 y la 9 si tienes dos y así sucesivamente hasta 10 lineas.
La macro es esta:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub COPIARFILTROENERO()
'
'
Sheets("mayo19").Select
Range("A6:D1301").Select
Application.CutCopyMode = False
Range("A5:D1301").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("mayo19!Criteria"), Unique:=False
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.CopySheets("PREVISIONES SQ").Select
Range("AW15").Select
ActiveSheet.PasteEnd Sub
En la casilla AW15 es donde quiero pegar la información, pero hacia AW14 AW13...
Gracias
Valora esta pregunta
0
