Notifications

Clear all

Fazer a fórmula funcionar quando apertar o botão

2024 - VBA & Macros

Post Recente por tiago21 7 anos atrás

10 Posts

4 Usuários

0 Reactions

1,659 Visualizações

RSS

tiago21

(@tiago21)

Posts: 43

Eminent Member

Topic starter

Olá, eu tenho uma planilha que tem vínculo com uma pasta que altera o nome todo mês.

=SOMASES('\Brasil - Abril[Brasil1.xls]Dados'!$C$1:$C$65536;
=SOMASES('\Brasil - Maio[Brasil1.xls]Dados'!$C$1:$C$65536;

Eu queria criar uma macro que cada botão fosse atualizar um mês.
Botão Abril usa =SOMASES('\Brasil - Abril[Brasil1.xls]Dados'!$C$1:$C$65536;
Botão Maio usa =SOMASES('\Brasil - Maio[Brasil1.xls]Dados'!$C$1:$C$65536;

Eu tenho diversas linhas com a fórmula eu pensei em inutilizar a fórmula
'=SOMASES('\Brasil - Maio[Brasil1.xls]Dados'!$C$1:$C$65536; colocando um ( ' ) no começo da fórmula. e depois quando eu usasse a macro tirar a ( ' )

=SOMASES('\Brasil - Maio[Brasil1.xls]Dados'!$C$1:$C$65536;

Alguma ideia de como fazer isso? Lembrando q tenho várias linhas por data. Cerca de 195 000 linhas com datas de 01/01 até 31/12

Postado : 25/04/2018 12:47 pm

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Tenho uma ideia sim de como fazer isso. Mas sugiro postar a planilha ou uma de modelo parecido para que possamos ajudá-lo melhor.

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 25/04/2018 12:49 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Para colocar a fórmula:


Private Sub CommandButton1_Click()
sheets("Plan1").Range("A1").FormulaLocal = "=SOMASES('\Brasil - Abril[Brasil1.xls]Dados'!$C$1:$C$65536)"
End Sub

Para limpar a fórmula:

Private Sub CommandButton2_Click()
sheets("Plan1").Range("A1").value = ""
End Sub

Postado : 25/04/2018 12:57 pm

tiago21

(@tiago21)

Posts: 43

Eminent Member

Topic starter

Tenho uma ideia sim de como fazer isso. Mas sugiro postar a planilha ou uma de modelo parecido para que possamos ajudá-lo melhor.

Não consigo. Reduzi a planilha ao máximo e ficou 5mb

Postado : 25/04/2018 1:13 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

tiago21,

Boa tarde!

Como você não postou um exemplo, fiz um pequeno modelo com uma fórmula qualquer, fazendo suposições. Detalhe: independe da quantidade de linhas.

Veja se é assim.

Fazer Fórmula alterar com um botão.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 25/04/2018 1:17 pm

tiago21

(@tiago21)

Posts: 43

Eminent Member

Topic starter

klarc28

Onde eu vou inserir esse comando? Crio um novo módulo no VBA?
Se eu quiser colar em várias linhas só alterar o RANGE("A1:A50") ?

Wagner é quase isso. Eu acho q a MACRO do klarc28 parece ser mais bem adaptado ao que preciso. Você consegue me ajudar com ela?

Postado : 25/04/2018 1:19 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Infelizmente não. Preciso ver a sua planilha. Se não puder colocar o arquivo original (grande demais) faça um exemplo (com o mesmo layout do original com 5 linhas por exemplo, compacte e anexe o mesmo aqui.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 25/04/2018 1:32 pm

tiago21

(@tiago21)

Posts: 43

Eminent Member

Topic starter

A sua está correta. Só a forma que o klarc28 fez parece melhor. Só preciso configurar dois botões de acordo com o klarck28 e colocar o lugar para colar a fórmula.
Fazer um botão para colar e um botão para apagar. um botão cola o texto X no intervalo Y:Z

Postado : 25/04/2018 2:08 pm