Folha de cálculo para controlo de fundos

[investidorPT 151]

Ter um fundo num determinado dossier em que se reforçou várias vezes é diferente do que se tivesse subscrito o fundo de novo por outros dossiers de fundos, na altura do resgate o método FIFO vai resgatar as primeiras UPs que foram subscritas, se o mesmo fundo estiver em vários dossiers podemos escolher em qual podemos ter uma melhor eficiencia de custo médio.

Mas isto para a maioria dos investidores não é relevante.

Obrigado.

Para mim foi relevante  ;D

[Duracellpt 51]

O problema da data era meu.

Estava a publicar a data da cotação do dia anterior que era usada para o cálculo da variação.

Já está corrigido.

[investidorPT 151]

O problema da data era meu.

Estava a publicar a data da cotação do dia anterior que era usada para o cálculo da variação.

Já está corrigido.

Confirmo que problema da data está solucionado.

Continua o excelente trabalho

[ee99161 1]

Boas. Alguma actualização na folha?

[jamorim 2]

Mais alguém utiliza a API do Yahoo Finance? Permite obter dados tanto de fundos como de acções. De momento estou a utilizar para ir buscar o ultimo valor de fecho de algumas acções, e também estou a testar com alguns ETFs em que pretendo investir.

Fica aqui o código da função para obter o último preço de fecho. Podem ir buscar outros valores modificando o url na parte "&f=p", substituindo o "p" por algum dos parametros desta tabela

Function StockPrice(ByVal ticker As String) As Double

Dim url As String
Dim http As Object

    url = "http://download.finance.yahoo.com/d/quotes.csv?s=" & ticker & "&f=p"
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", url, False
    http.Send    
    StockPrice = Val(http.responseText)
    Set http = Nothing

End Function

[Duracellpt 51]

Boas,

Uso esse código, ou parecido, numa folha que estou a desenvolver para gerir os ETFs.

[jamorim 2]

Duracellpt, tu que utilizaste os dois (Yahoo e Morningstar) qual te pareceu mais completo?

Este do Yahoo pareceu-me mais simples de utilizar, e (à primeira vista) parece permitir aceder a toda a informação necessária.

Para quem estiver interessado, também dá para aceder a dados históricos.

[Duracellpt 51]

Utilizo ambos para apenas retirar as cotações.

Yahoo para ativos em bolsa e Morningstar para fundos de investimento.

[ee99161 1]

Boas DuracellPt, alguma novidade na folha excel? Para quando uma actualizaçãozita?! 

Cumprimentos.

Pedro

[Duracellpt 51]

Boas DuracellPt, alguma novidade na folha excel? Para quando uma actualizaçãozita?! 

Cumprimentos.

Pedro

Boas,

Na folha de fundos não alterei nada, nem tenho previsto qualquer alteração. Alguma sugestão?

Na folha de ETFs... é mais complicada do que eu pensava e o tempo não é muito. Está a andar devagar.

Já agora, encontrei outro sitio onde ir buscar cotações: Quandl.

Mas não sei se o irei implementar nesta fase.

[ee99161 1]

Estou com algumas dificuldades, tenho fundos na CGD, Montepio e BIC. Dá erro em alguns e não percebo porquê. Dai a minha dúvida se havia novidades. Quandl? Eu acho que já andei a brincar por esse site.

Eu como não tenho ETF's, não consigo dizer nada.

Por acaso essa é uma questão à qual vou procurar respostas, se vale a pena meter-me nisso.

Obrigado Duracel.

Cumprimentos.

Pedro

[Duracellpt 51]

Coloca aqui os ISIN que quando tiver tempo dou uma vista de olhos.

[ee99161 1]

Este sei que dá erro de certeza absoluta.

LU0433844494

Tenho mais, mas tinha de estar a meter tudo na tua folha.

[Duracellpt 51]

Bem, acrescentei mais uma fonte de informação.

Pelo menos esse ISIN já funciona.

Aqui a nova versão: Fundos Investimento_vs1.2

Esta folha não foi muito testada, se surgirem erros, por favor informem.

Quem tiver a Folha anterior a funcionar bem não precisa de mudar para esta.

[antoniobento 6]

ATENÇÂO  no AVISO DE SEGURANÇA - Activar as ligações de dados onde diz "OPCÕES" para obter dados da Morningstar

Peço desculpa. A folha actualiza com fundo exemplificados. Na folha anterior inseri os fundos e vou actualizando diariamente. Não enconto nenhum aviso de segurança no excel. Como se adicionam mais fundos na folha.

[Duracellpt 51]

ATENÇÂO  no AVISO DE SEGURANÇA - Activar as ligações de dados onde diz "OPCÕES" para obter dados da Morningstar                         

Peço desculpa. A folha actualiza com fundo exemplificados. Na folha anterior inseri os fundos e vou actualizando diariamente. Não enconto nenhum aviso de segurança no excel. Como se adicionam mais fundos na folha.

Esse aviso de segurança só aparece às vezes.

No Office 2013, ele aparece numa barra entre os menus e a folha com as células. Nos anteriores acho que aparece uma janela.

Em principio, se não aparecer é porque não bloqueou as macros.

Mas penso que deveria bloquear sempre que se reinicia o computador.

Para acrescentar mais fundos basta inseri-los nas linhas abaixo, ou acrescentar mais linhas.

Não deverá deixar nenhuma linha em branco entre os fundos, a macro para assim que encontra uma linha em branco.

[antoniobento 6]

Obrigado Duracellpt.

Mas não me expliquei bem, para inserir um novo fundo. Quais as funções do excel que devo activar de forma que me reencaminhe para o site da www.morningstar.pt/pt/fund/.... e ficar como os do exemplo do campo "denominação comercial", que ao manter pressionado na célula, encaminha para o site. Talvez esteja a complicar o que pode ser simples.

[Duracellpt 51]

Botão direito no texto e clica em Hiperligação.

Em baixo, na barra "Endereço" coloca o endereço da pagina com o "http:\\".

Mas para a folha funcionar não é necessário isso, basta o ISIN.

Esses elementos não são obtidos pelo Excel. Deverá escrever você o nome do fundo (ou copiar-colar).

Automático é só a última cotação, data e variação do dia.

[antoniobento 6]

Obrigado pela ajuda. Apenas na célula valorização do dia tive que alterar para percentagem, porque ficava hora-data.

[nfs 2]

Botão direito no texto e clica em Hiperligação.

Em baixo, na barra "Endereço" coloca o endereço da pagina com o "http:\\".

Mas para a folha funcionar não é necessário isso, basta o ISIN.

Esses elementos não são obtidos pelo Excel. Deverá escrever você o nome do fundo (ou copiar-colar).

Automático é só a última cotação, data e variação do dia.

excelente trabalho Duracellpt, não sei se sera possivel, mas era bom existir colunas em que fosse possivel calcular os resgates tambem, tipo subscrevi 100 ups de ES Obrigações europa, de passado 1 ano, resgatei 20 ups...

cumprs

[jpedromaia 1]

Boa noite, também sou um dos utilizadores desta folha de cálculo, portanto, um muito obrigado pela sua partilha. Reparei que a fórmula de cálculo da TAN é feita com um nº de dias diferente (365) da fórmula usada para o cálculo da TANB (360), alguma razão para isso? Obrigado.

[elkefro 14]

Também estou a usar a folha, bom trabalho! O meu obrigado a quem colaborou na execução da mesma.

GT I9195 - Tapatalk

[Visitante Sniper]

Muito Obrigado pela folha disponibilizada. Estava a construir uma folha para esse efeito, mas depois de ver esta folha não é necessário

Eu só tenho uma questão: para quem tem fundos em outras moedas como podemos fazer para converter esse valor em €? A ideia é analisar a evolução do fundo tanto na sua moeda como em €.

Eu também costumo construir folha em vba e pelo que li no código há ali instruções que não sei o que fazem exatamente. Podes dar-me uma ajuda?

[Duracellpt 51]

Claro, quais são as dúvidas?

Relativamente a outras moedas, poderá ser interessante acrescentar mais colunas e ir buscar online a cotação do par de divisas para a conversão. Acho que o MS Office tem essa funcionalidade.

[Visitante Sniper]

As dúvidas são as seguintes:

Nesta linha chamas a função Best do seguinte modo:

"Valor = QuoteBest(ISIN, Data)"

Indicas o código ISIN e a Data, no entanto, depois na função dizes o seguinte:

"Function QuoteBest(strTicker As String, dtDate As Variant)"

Passas o ISIN para strTicker e a Data para dtDate, certo? Por que motivo?

Explica-me o que fazem estas instruções? Estás a aceder a uma base de dados do Best? Se sim como podemos visualizar esses dados? Gostava de construir um histórico e isso dava-me jeito.

"Set http = CreateObject("MSXML2.XMLHTTP")

http.Open "GET", strURL, False

http.Send

strXML = http.responseText

'Split wanted value

strVQ1() = Split(strXML, ">")

On Error GoTo Err:

strVQ2() = Split(strVQ1(6), "<")

dbClose = Val(strVQ2(0))"

Desde já obrigado pelo teu tempo.