Respostas criadas no fórum
-
AutorArtigos
-
peterboyy
Membrouma coisa boa que começo a descobrir do vba é que passos que parecem dificeis… vamos a uma gravaçao… simulamos e aproveitamos o resultado da gravaçao da macro e adapta-se ehehe
peterboyy
Membrocom base nesta macro
do while activecell.value “fim de arquivo”
if activecell.value = “” then
selection.entirerow.delete
else
activecell.offset(1, 0).select
end ifloop
end sub
adaptei a uma gravaçao et voi la :d
peterboyy
Membroja consegui!!!! ufaaa
peterboyy
Membroentretanto consegui por uma
mas… apaga sempre por completo a tabela… há forma de proceder esta macro para um espaço diferente, mantendo sempre a tabela original? se esta for alterada, automaticamente a macro iria assumir os novos valores certo?
peterboyy
Membroboa noite,
colocando a hipotese da nao utilizaçao de filtragem, mas sim uma função que elimine a linha ao identificar valor 0, consigo ter o mesmo efeito transportando o resultado para um outro espaço (mantendo sempre a tabela original)? as funçoes do while..loop e do until..loop penso que dao resposta, mas alguém me pode ajudar a construir esta macro por favor?
eu confesso que tive uma tarde inteira a tentar e nao encontrei solução.
a unica que funcionou:
sub deletecells()
for each c in range(“coluna original”)
if c = “0” then c.entirerow.delete
nextend sub
nao elimina logo de uma vez todas as linhas que apresentam valores = o, e apaga de imediato a tabela original.
:s :s :s
peterboyy
Membroolá boa tarde !!
quero aqui agradecer todo o apoio prestado! foi sem dúvida essencial!
um abraço!
jorge: farei chegar ao teu email já a seguir!
mais uma vez,obrigado!
peterboyy
Membroboa tarde 🙂 foi uma grande ajuda essa macro! mto obrigado! criei o corpo do relatório e modifiquei nas células de destino do copy! e está a funcionar!
agora falta apenas uns ajustes para a pré visualização mas gravei uma macro em que aumento em % a visualização e fica quase perfeito :d
o ctrl+f2 nao funciona em macro… É pena
peterboyy
Membrocá esta o novo doc! ja fiz o texto em cima para concatenar com os resultados obtidos…
na macro alterei para aparecer lado a lado pra se ver logo directamente… ela copia exactamente a mesma tabela e não exclui resultados diferentes de 0.
1) a tabela em relatório tem que obter aleatoriamente nr de contratos entre 23 a 39, contudo só podem aparecer os contratos que apresentem diferenças monetárias (sup ou inf a 0).
2) outro problema é que os números nao se podem repetir e a tabela dinâmica não funciona correctamente !
estou a desesperar 🙁
encontrei esta formula pra a aleatoriedade nao se repetir int((upperbound – lowerbound + 1) * rnd + lowerbound)
mas nao funciona :s e nao ha forma dos 0´s nao aparecerem 🙁
Pedro_Excel.zippeterboyy
Membroeu vou fazer um novo documento com tudo limpo e testar e ja envio como tenho feito!
peterboyy
Membroantes demais agradeço a vossa atençao.
eu ja havia criado uma tabela dinamica para testar o filtro mas ele da sempre correspondencias de 0 mesmo clicando na opçao de filtrar resultados = a o.
ja testei a macro que desde ja agradeço mas de igual forma da resultados = a 0 e nao apenas os resultados com diferenças.
nao sei o que isto podera ser… ja tentei uma formula apenas com procvºs e nada… :s
peterboyy
Membrook eu vou enviar dois documentos… o pdf é como tem k aparecer no corpo de relatorio, o excel é as minhas inumeras tentativas…
acho que ainda vou chumbar a isto 🙁
Trabalho_Informatica_Pedro_Madeira.zip -
AutorArtigos
EXCELer Tudo sobre EXCEL em Português