Respostas criadas no fórum
-
AutorArtigos
-
jorgerod
Administradorolá albino, bem-vindo novamente!!!! 🙂
não me lembro qual a versão do excel que utilizas: se for o 2003, podes tentar ver em: http://office.microsoft.com/en-us/excel-help/enable-autofilter-functionality-for-a-protected-worksheet-ha001098270.aspx
se estás a utilizar o excel 2010 ou 2007 e estás a efectuar filtros através de vba, podes ver qq coisa em: http://www.mrexcel.com/forum/showthread.php?t=499124
podes ver, igualmente o link: http://www.eggheadcafe.com/community/aspnet/66/10179503/filters-on-a-protected-sheet.aspx
e, já agora, o link:
http://www.excelforum.com/excel-general/739970-auto-filter-on-protected-sheet.htmldiz qq coisa, ok?
jorgerod
Administradorfeliz natal! 🙂
jorgerod
Administradorapenas por curiosidade, podes ler abaixo a causa…
it is a bug in vba
fica bem.
jorgerod
Administradorboas paulo,
talvez:
1 – abrir o ficheiro em causa
2 – alt + f11, para acesso ao editor de vb
3 – menu tools, abrir references
4 – desmarcar a type ou object library que contém a palavra “missing”.
5 – guardar e fechar.
6 – abrir novamente o ficheiro e testar.diz qq coisa, ok?
jorgerod
Administradorboas, oreste!!!
ainda bem que deu certo b)
quanto às perguntas:
1 – “o cód. funcionou blz, só que, ao abrir o arquivo, a mensagem para habilitar macro ainda continua.”
para isto não acontecer:
excel 2007:
- clicar no botão do office
- clicar em opções do excel
- escolher “centro de fidedignidade”
- escolher “definições das macros”
- clicar em activar todas as macros
- nas definições de macros de programador, marcar “acesso fidedigno…”
excel 2010:
- clicar em ficheiro
- escolher “centro de fidedignidade”
- escolher “definições das macros”
- clicar em activar todas as macros
- nas definições de macros de programador, marcar “acesso fidedigno…”
2 – “É possível trabalhar somente vba sem a criação de macros? É que macros as vêzes é um pouco problemático.”
sim, é possível. as macros são escritas e gravadas a partir do registo de criação de macros do excel. o código vba (visual basic for applications)é escrito manualmente através de programação. mas, no fundo e em termos de código, as macros também contêm vba.
para teres uma melhor percepção do que é vba, podes aceder ao link: http://www.thermexcel.com/english/divers/forum.htm
embora esteja em inglês, está lá tudo o que interessa saber sobre a matéria.
fica bem.
jorgerod
Administradornão se pode chamar uma macro como está a ser feito.
o modo correcto é: call ocultacase
isto é, sem os parentesis ().
de qualquer modo, não experimentei nada, apenas dei uma dica.
experimenta e depois de veres o resultado, diz qq coisa, ok?
jorgerod
Administradorboas,jader
por exemplo, em a20:
=Índice(a1:a10;modo.simples(corresp(a1:a10;a1:a10;0)))
resposta: poliana
fica bem e diz qq coisa, ok?
jorgerod
Administradorpodes, talvez, utilizar o evento worksheet_change().
mais ou menos isto:
private sub worksheet_change(byval target as range)
if target.address = “$fg$3” then
end if
end subjorgerod
Administradorboas,
uma das hipóteses, será a seguinte fórmula:
=sumif(a4:a19,b2,b4:b19)+sumif(a4:a19,b2,c4:c19)+sumif(a4:a19,b2,d4:d19)+sumif(a4:a19,b2,e4:e19)+sumif(a4:a19,b2,f4:f19)+sumif(a4:a19,b2,g4:g19)
a outra, melhor, será:=sumproduct((a4:a19=b2)*b4:g19)
fica bem.
jorgerod
Administradorpodes explicar um pouco melhor?
jorgerod
Administradorolá, hélder!!!
tudo de bom para ti! 🙂
espero que este site seja do teu agrado e que te seja útil.
também fico à espera dos teus contributos, para bem da comunidade “exceleriana”.
obrigado e um abraço.
jorgerod
Administradorboas,
experimenta:
‘———————————————————–
‘ module : procura_madura
‘ datetime : 19-10-2010 18:45
‘ author : jorgerod
‘ purpose : adicionar a palavra “vender” a cada célula
‘ purpose : da coluna a que contenha a palavra escolhida,
‘ purpose : colorindo o conteúdo de vermelho
‘———————————————————–
sub procura_madura()
dim nome as stringnome = inputbox(prompt:=”escreva a procura desejada para inserção”, title:=”procura/insere”)
with worksheets(1).range(“a2:a500”)
set c = .find(what:=nome, lookin:=xlvalues)
if not c is nothing then
firstaddress = c.address
do
c.font.colorindex = 3
c.value = “vender ” & c.value
set c = .findnext(c)
loop while not c is nothing and c.address firstaddress
end if
end withend sub
ou seja, acrecentei uma inputbox, onde poderás escolher a palavra que quiseres (ex. grande, madura, etc).
como aquilo que se procura é do tipo “contém”, se tiveres a palavra “madurazinha”, como contém a palavra por ti escolhida “madura”, vai igualmente aparecer-te. mas, se em vez de escrevesres “madurazinha”, escreveres “madurinha”, já não te aparecerá.
fica bem e diz qq coisa, ok?
jorgerod
Administradorboas, camealcan,
experimenta criar um botão de comando, com o seguinte código:
‘———————————————————–
‘ module : procura_madura
‘ datetime : 19-10-2010 18:45
‘ author : jorgerod
‘ purpose : adicionar a palavra “vender” a cada célula
‘ purpose : da coluna a que contenha a palavra “madura”
‘ purpose : colorindo o conteúdo de vermelho
‘———————————————————–
sub procura_madura()with worksheets(1).range(“a2:a500″)
set c = .find(what:=”madura”, lookin:=xlvalues)
if not c is nothing then
firstaddress = c.address
do
c.font.colorindex = 3
c.value = “vender ” & c.value
set c = .findnext(c)
loop while not c is nothing and c.address firstaddress
end if
end withend sub
diz qq coisa, ok?
jorgerod
Administradorboas, tiago!
explica a tua teoria. É para isso que o forum serve, para transmitirmos conhecimentos uns aos outros. força!
-
AutorArtigos
EXCELer Tudo sobre EXCEL em Português
