Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Fazer a fórmula fun...
 
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,672 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
(@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
(@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
(@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
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Como você não enviou a fórmula completa, fiz um exemplo com outra fórmula.

 
Postado : 25/04/2018 9:13 pm
 tiago21
(@tiago21)
Posts: 43
Eminent Member
Topic starter
 

Exatamente isso. Isso quebra o galho sim! Dai eu colo a fórmula, dou um jeito. Muito Obrigado.

 
Postado : 26/04/2018 5:52 am
Forum Jump:
  Tópico Anterior
Próximo Tópico