Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Conversão moedas em tabela dinâmica

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
njunior



Mensagens : 1
Data de inscrição : 17/07/2013

MensagemAssunto: Conversão moedas em tabela dinâmica   Qua Jul 17, 2013 1:32 pm

Bom dia!

Sou novo no fórum e sempre acompanho as dicas e estudos para aprendizado. Me deparei com uma questão que não consegui encontrar ainda.

* Em uma tabela dinâmica possui valores. E esses valores são resultados de vendas que aparecem em Reais, Franco Suíço, Dólar, etc.
* Como faço, para ao clicar em um botão, ele converta esse valores para somente em Reais, um outro botão que converta para CHF (Franco Suíço) e por fim um outro botão que retorne os valores de venda normal?

O que fiz hoje: tenho colunas nos três casos, e quando clico no botão, ele oculta as colunas não desejadas. Porém, gostaria que ele calculasse diretamente nas células.

Consegui ser claro na explicação? Agradeceria a ajuda se possível.

E muito obrigado!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Conversão moedas em tabela dinâmica   Sex Jul 19, 2013 1:40 am

Boa noite!!

Eu não entendi, mas tente adaptar.
Código:
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
   
    Dim Currency_Symbol As String
   
    Currency_Symbol = Choose(WorksheetFunction.Match(Worksheets("Data").Range("F7"), Array("EUR", "USD", "GBP", "SEK", "JPY"), 0), "€", "\$", "£", "Kr", "¥")
   
    Worksheets("Prices").Range("D17:D19").NumberFormat = Currency_Symbol & " * #,##0.00"
   
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Conversão moedas em tabela dinâmica
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [RESOLVIDO] Dinâmica de água
» Imagens Dinâmica
» [TRFN]Tutorial de Atualização Dinâmica
» [Tutorial]Água dinâmica para Plataforma (2D)
» [525, 533, 723, S8500][BADA][GRATUITO] Tabela Periodica

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: