[oreste.jr]

e aí colega? sua sugestão foi infalível.
jorge, antes de postar o código, gostaria que me esclarecesse umas dúvidas. É possível trabalhar somente vba sem a criação de macros? É que macros as vêzes é um pouco problemático.
o cód. funcionou blz, só que, ao abrir o arquivo, a mensagem para habilitar macro ainda continua.
me desculpe se pareço uma pouco leigo, mas é que sou mesmo.
caso possa me indicar algum material que define as diferenças quanto a trabalhar com macros ou vba somente eu agradeço.
///////

private sub worksheet_change(byval target as range)
if target.address = “fe2” then
‘após digitar uma nova data em fe2 (tipo: 10/10, 11/10…) e teclar “enter”,
‘oculta todas as colunas com valores diferentes de fe2 no intervalo: d:fd.

elseif range(“fe2”).value = “11/10” then
columns(“d:ah”).hidden = false
columns(“ai:fd”).hidden = true
elseif range(“fe2”).value = “12/10” then
columns(“ai:bl”).hidden = false
columns(“d:ah”).hidden = true
columns(“bm:fd”).hidden = true
elseif range(“fe2”).value = “01/11” then
columns(“bm:cq”).hidden = false
columns(“d:bl”).hidden = true
columns(“cr:fd”).hidden = true
elseif range(“fe2”).value = “02/11” then
columns(“cr:dv”).hidden = false
columns(“d:cq”).hidden = true
columns(“dw:fd”).hidden = true
elseif range(“fe2”).value = “03/11” then
columns(“dw:ex”).hidden = false
columns(“d:dv”).hidden = true
columns(“ey:fd”).hidden = true
elseif range(“fe2”).value = “04/11” then
columns(“ey:fd”).hidden = false
columns(“d:ex”).hidden = true
else
msgbox “esta data é inválida”

end if
‘filtra valores diferentes de “0” no intervalo fe4:fe43
activesheet.range(“$fe$4:$fe$43″).autofilter field:=1, criteria1:=”0”, _
operator:=xland
end sub

[oreste.jr]

valeu jorge.
amanhã farei algumas tentativas.
aproveitando seu apoio: será que eu não poderia usar uma evento para chamar minha macro?
por exemplo:

private sub worksheet_change(byval target as range)
if target.address = “fe2” then
application.enableevents = false
call ocultacase () ‘ chama a sua macro
application.enableevents = true
end if
end sub

estou tentando só que não está funcionando.
na minha linha de código as “()” da ocultacase (minha macro) não aparecem.

muito obrigado pela sua mensagem e até breve.

[Autor]

Artigos