Notifications
Clear all

Macro vinculada para ordenamento e formatação

7 Posts
3 Usuários
0 Reactions
1,225 Visualizações
(@pouchucq)
Posts: 4
New Member
Topic starter
 

Pessoal, boa tarde.

Sou novo no forum, e ainda "muito cru" e VBA... Inclusive, se alguém tiver algum material bom para recomendar, agradeço muito.

Estou com uma base de dados de aprox. 200 linhas, que filtrar por fatores diversos e apresentar para diversas diretorias. Como utiliar apenas o auto filtro deixou a tebela muito pesada, montei uma tabela dinâmica, que já me dá direto a soma de itens que satisfazem os critérios da apresentação, e na maioria das vezes é suficiente.

O problema é que em alguns casos preciso abrir os itens, e ao clicar no resultado da tabela mantém a quantidade de colunas do BD original, o que não é muito prático. Perco muito tempo ocultando as colunas que não me interessam, e formatando as colunas do modo que preciso (por exemplo, a coluna "A" apresenta o CNPJ, que aparece como 1,41722E+12). Estou tentando criar um botão que selecione e abra o resultado da tabela dinâmica, e já ocultasse as colunas que preciso, aplicando a formatação de números para a Coluna A.
Preciso que sejam mantidas as colunas A, D, F:K, M, O, T, AB e AD.

Alguém, pode me ajudar?

Muito obrigado

 
Postado : 06/05/2014 8:31 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Poste seu arquivo modelo compactado!!

Att

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

 
Postado : 06/05/2014 8:35 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Quanto o Material
http://www.bertolo.pro.br/FinEst/Semana ... oExcel.pdf

Att

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

 
Postado : 06/05/2014 8:36 am
(@pouchucq)
Posts: 4
New Member
Topic starter
 

Tive que remover os valores para não ser demitido, hehehe.

O esqueleto segue em anexo. A aba "Dinâmica 2" é a que geralmente apresento, e a "Dinâmica 1" é a que gostaria de solucionar. As colunas marcadas em amarelo na aba "BD" são as que preciso que permaneçam visíveis após apertar o botão.
Lembrando que a coluna "A" perde formatação por algum motivo.

Muito obrigado!

 
Postado : 06/05/2014 9:42 am
(@pouchucq)
Posts: 4
New Member
Topic starter
 

Ninguém?

=/

 
Postado : 08/05/2014 7:41 am
themrl16
(@themrl16)
Posts: 60
Trusted Member
 

Bom dia Pouchucq!

Por favor, verifique se o arquivo em anexo atende sua necessidade.

Observe que na Sub Relatorio, especificamente na linha que contém a propriedade .Delete, eu defino a primeira célula de todas as colunas que eu desejo deletar... caso seja necessário modificar as colunas que serão exibidas no relatório, considere que será necessário alterar o que está dentro de ActiveSheet.Range()

Caso seja necessário incluir ou alterar as funcionalidades da macro/planilha, por favor nos informe.

Abraços e à disposição para quaisquer dúvidas,

Murilo.

Leia as REGRAS
Utilize arquivos COMPACTADOS
PESQUISE
AGRADEÇA clicando na mãozinha ao lado da ferramenta citar.
Marque o tópico como [Resolvido], clicando no ao lado do botão citar.

Abraços,

Murilo L
------------
e-mail: [email protected]
skype: fareva_mlima

 
Postado : 08/05/2014 8:59 am
(@pouchucq)
Posts: 4
New Member
Topic starter
 

Murilo, muito obrigado.

É exatamente isso que eu estava precisando...

 
Postado : 09/05/2014 12:14 pm