Notifications
Clear all

Macro_com_data_igual_ou_posteriores_a_data_de_hoje

8 Posts
1 Usuários
0 Reactions
1,215 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal,

Estou automatizando uma planilha, e 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

Mas quando executo a macro ela só traz o TBD.

Alguém sabe o motivo?

Obrigada,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/10/2014 7:32 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Veja em:
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/10/2014 7:57 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

olá

eu já tinha pesquisado no fórum, o meu problema é que não está ocultando as linhas no range de data que eu selecionei e é isso que não estou conseguindo resolver....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/10/2014 9:05 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Mande seu arquivo modelo!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/10/2014 6:13 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

oi,

segue exemplo.

Obrigada,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/10/2014 7:18 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Qual versão foi feito o exemplo ? Não consegui abrir na v 2007, da mensagem de o formato não é válido ou está corrompido.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/10/2014 8:22 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

O ideal seria ver o modelo, procure utilizar o Salvar Como e salve em uma versão anterior (2003 / 2007) troque os dados por dados fictícios e se não conseguir anexar no forum procure utilizar um drive virtual.
Nem sempre conseguimos remontar um modelo para teste e não entendi direito os dados que colocou.
Enquanto isto, veja se o exemplo abaixo ajuda, o mesmo foi baixado do site da Contexture e fiz adaptação para filtrar em outra aba ou em um arquivo novo, foi para uma outra situação, mas filtra por datas da forma que pretende :

Filtrar por Datas

Qualquer duvida retorne.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/10/2014 6:32 am