oi
Versão 2010.
Acho que está corrompido ou melhor bloqueado pq a empresa não libera.
Copiei e colei aqui um exemplo ( no caso, estou tentando criar uma macro que oculte as datas anteriores a data de hoje, ou seja, só exiba as linhas com datas iguais ou posteriores a data de hoje.
Fiz a seguinte programação, mas não deu certo.
Coloquei dois critérios:
1) Exibir as linhas com datas iguais ou posteriores a data de hoje.
2) Exibir as linhas com informação "TBD" (to be defined)
Sub Macro6()
'
' Macro6 Macro
'
'
ActiveWorkbook.Worksheets("Calendar").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Calendar").AutoFilter.Sort.SortFields.Add Key:= _
Range("J3:J229"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Calendar").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Range("$J$3:$J$9999").AutoFilter Field:=9, Criteria1:= _
">=hoje()", Operator:=xlOr, Criteria2:="=TBD"
End Sub
Customer Action SKU Start Date Finish Date
- - - 01/jan 1-jan
- - - 01/jan 1-jan
a 1 x 18-jul 7-set
b 2 y 29-jun 11-set
c 3 z 1-ago 12-set
d 4 alfa 1-ago 13-set
e 5 beta 1-ago 13-set
f 6 x 1-ago 15-set
g 7 y 13-jul 15-set
h 8 z 1-ago 15-set
i 9 alfa 7-ago 15-set
a 1 x 5-ago 15-set
b 2 y 5-ago 17-set
c 3 z 5-ago 17-set
d 4 alfa 28-ago 17-set
e 5 beta 29-ago 17-set
f 6 x 24-ago 18-set
g 7 y 1-ago 18-set
h 8 z 5-ago 18-set
i 9 alfa 5-ago 18-set
i 9 alfa 1-jun 20-set
a 1 x 1-jun 20-set
b 2 y 21-ago 20-set
c 3 z 21-ago 20-set
d 4 alfa 21-ago 20-set
e 5 beta 21-ago 20-set
f 6 x 1-ago 20-set
g 7 y 1-set 20-set
h 106 z 18-out 18-out
h 107 z 18-out 18-out
h 108 z 14-set 18-out
h 109 z 21-out 21-out
h 110 z 20-out 22-out
h 111 z 23-out 26-out
h 112 z 23-out 26-out
h 113 z 23-out 26-out
h 114 z 23-out 26-out
h 115 z 23-out 26-out
h 116 z 23-out 26-out
h 117 z 23-out 26-out
h 118 z 23-out 26-out
h 119 z 23-out 26-out
h 120 z 23-out 26-out
h 121 z 23-out 26-out
h 122 z 23-out 26-out
h 123 z 23-out 26-out
h 124 z 23-out 26-out
h 125 z 23-out 26-out
h 126 z 23-out 26-out
h 127 z 23-out 26-out
h 128 z 23-out 26-out
h 129 z 23-out 26-out
h 130 z 1-jun 30-out
h 131 z 1-jun 30-out
h 160 z 1-nov 30-nov
h 161 z 1-nov 30-nov
h 171 z 28-nov 30-nov
h 172 z 28-nov 30-nov
h 173 z 28-nov 30-nov
h 187 z 3-nov 31-dez
h 188 z 3-nov 31-dez
h 189 z TBD TBD
h 190 z 21-set TBD
h 191 z 13-out TBD
h 192 z 13-out TBD
h 193 z TBD TBD
h 194 z TBD TBD
h 195 z TBD TBD
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 27/10/2014 8:54 pm