Base de datos
Publicado por Filtro Base de datos (1 intervención) el 10/09/2015 19:12:59
Buen día, espero estén bien. Quisiera pedir ayuda o que alguien me explique de favor por que cuando ejecuto mi macro únicamente me filtra datos que sean letras, cuando quiero filtras alguna celda con numero no se ejecuta.
Saludos
Saludos
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Sub Filter()
Application.ScreenUpdating = False
Sheets("Filter").Select
Range("C24").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearSheets("RawData").Range(("Table1[#All]")).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets("RawData").Range("Table1[#All]"), CopyToRange:=Sheets("Filter").Range("C24"), Unique:=False
Columns("C:C").Select
Selection.ColumnWidth = 24
Columns("D:D").Select
Selection.ColumnWidth = 15
Columns("E:E").Select
Selection.ColumnWidth = 17.14
Columns("F:F").Select
Selection.ColumnWidth = 11.5
Columns("G:G").Select
Selection.ColumnWidth = 15
Columns("H:H").Select
Selection.ColumnWidth = 15
Columns("I:I").Select
Selection.ColumnWidth = 17
Columns("J:J").Select
Selection.ColumnWidth = 17
Columns("K:K").Select
Selection.ColumnWidth = 23
Columns("L:L").Select
Selection.ColumnWidth = 15
Columns("M:M").Select
Selection.ColumnWidth = 15
Columns("N:N").Select
Selection.ColumnWidth = 10
Columns("O:O").Select
Selection.ColumnWidth = 19
Columns("P:P").Select
Selection.ColumnWidth = 18
Columns("Q:Q").Select
Selection.ColumnWidth = 10
Columns("R:R").Select
Selection.ColumnWidth = 15
Columns("S:S").Select
Selection.ColumnWidth = 19
Columns("T:T").Select
Selection.ColumnWidth = 26
Columns("U:U").Select
Selection.ColumnWidth = 20
Columns("V:V").Select
Selection.ColumnWidth = 23
Columns("W:W").Select
Selection.ColumnWidth = 24
Columns("x:x").Select
Selection.ColumnWidth = 24
Columns("y:y").Select
Selection.ColumnWidth = 21
Columns("z:z").Select
Selection.ColumnWidth = 24
Range("C24").Select
Application.ScreenUpdating = True
End Sub
Valora esta pregunta
0
