amigo,

primeira vez que eu ajudo alguém no fórum,

Então, te baseia aqui nessa planilha do anexo, deixei reguladinho já.

To vendo aqui que no exemplo que colei invés de dividir pela PTAX eu multipliquei, isso não afeta minha dúvida mas resolvi falar antes que alguém visse o erro.

Bom dia,

Segue minha contribuição!

Juauvitor

Bom dia.

É exatamente isso que quero, mas preciso aprender a fazer.

Consegue me explicar como faz?!

leandroxtr

Leandro, quando clico no botão aparece uma mensagem e nada acontece.

"Favor preencher os dados para salvamento"

Você tem que preencher as células das informações (Data e Cotação) para poder executar a macro. Posso tirar isso se quiser, mas acho mais seguro para que voce não execute coisa errada..

O que está anexo acima é uma foto png, amigo!
Anexe a planilha para podermos ajudá-lo melhor!

Bagual, seguintchê hehe,

Meu amigo, isso é uma grande gambriarra, até por que eu aprendo VBA tropeçando, conforme a necessidade eu pesquiso e aprendo, então,

o seguinte código

Sub teste2()
Dim intlinha2 As Integer

intlinha2 = ThisWorkbook.Worksheets("Plan1").Range("H65536").End(xlUp).Offset(1, 0).Row

ThisWorkbook.Worksheets("Plan1").Cells(intlinha2, 8) = Date
ThisWorkbook.Worksheets("Plan1").Cells(intlinha2, 9) = Plan1.Range("D2").Value

End Sub

é uma macro que eu coloquei no botão que criei, "botão 1", e para trocar quaisquer dados eu coloquei por exemplo, a partir da primeira letra da coluna, neste caso "H", na segunda linha do código, onde diz:

intlinha2 = ThisWorkbook.Worksheets("Plan1").Range("H65536").End(xlUp).Offset(1, 0).Row

aqui, o "H" por que era a primeira coluna e a partir dali que acontece tudo.

os números em :

ThisWorkbook.Worksheets("Plan1").Cells(intlinha2, 8) = Date

&

ThisWorkbook.Worksheets("Plan1").Cells(intlinha2, 9) = Plan1.Range("D2").Value

os números 8 e 9 são as colunas H e J. por que está na ordem do alfabeto.

caso queira colocar mais colunas para acrescentar na função basta aumentar essa parte do código que tem os numeros e então cada número vai ser correspondente á sua coluna.

Desculpe não ser tão técnico, mas como eu disse, aprendo auto de data!!

espero ter clareado um pouco pelo menos. abraço.

Segue a planilha com as explicações na frente de cada código..

Agora é só adaptar, formatar e treinar haha..

Qualquer coisa da o grito.

leandroxtr

Ah sim, entendi.

Obrigado Leandro

Juauvitor

Muito obrigado, deu tudo certo.

Aprendi!

Muito obrigado também Leandro!

Consegui fazer aqui!