Filtrado y copiado entre sheets excel
Publicado por Carlos (1 intervención) el 08/07/2016 20:08:46
Hola a todos, lo que deseo hacer es copiar datos de un sheet a otro. El proceso es el siguiente. Primero se escoge dos criterios en el sheet 1 y se presiona un boton para jalar los datos del sheet2. Los datos en el sheet2 deberían ser filtrados en sus primeras dos columnas en base a los criterios escogidos en el sheet 1, ser copiados despues de filtrarlos y pegados en el sheet1. He logrado copiar los datos pero lo hace sin filtrar los criterios que deseo, es decir copia todos los datos en el rango especificado, no se que puede estar mal, agradeceria cualquier ayuda. El código que esto usando es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub Button3_Click()
Dim Unidad As String
Dim Lugar As String
Sheets("Gráficas").Select
Unidad = Range("C4")
Lugar = Range("C5")
'Borrar
Range("A8:AA500").Select
Selection.ClearContents'Datos
Sheets("Data").Select
With ActiveSheet
.AutoFilterMode = False
.Range("$B$2:$AH$500").AutoFilter
.Range("$B$2:$AH$500").AutoFilter Field:=1, Criteria1:=Unidad
.Range("$B$2:$AH$500").AutoFilter Field:=2, Criteria2:=Lugar
End With
Range("$J$3:$AI$200").Select
Selection.CopySheets("Gráficas").Select
Range("C8").Select
ActiveSheet.PasteSelection.End(xlToRight).Select
ActiveCell.Range("A1:A200").Select
Selection.ClearContentsSelection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
'Reseteado (des-filtrado) de hoja
Sheets("Data").Select
With ActiveSheet
.AutoFilterMode = False
.Range("$J$2:$AH$500").AutoFilter
.Range("$J$2:$AH$500").AutoFilter Field:=1
Range("AJ1").Select
.Range("$J$2:$AH$500").AutoFilter Field:=2
Range("AJ1").Select
End With
Sheets("Gráficas").Select
End Sub
Valora esta pregunta
0