Página 1 de 1

Botão que modifica formula para selecionar a célula a frente

Enviado: 18 Abr 2022 às 10:39
por FeEDIT
Olá, queria saber se é possível realizar o seguinte no excel:
Imagem
O Total enviados tem a intenção de calcular em linha reta pois é apenas para gerenciar quantos produtos se foram, entretyanto, ele só pega a g7 e h7, isso só ate apertar o botao, pois ao apertar, ele deve começar a a contar a celula da frente tambem, ou seja, do g7 ao i7 e assim, a cada vez que apertar o botao, ele selecionar sucessivamente a celula a frente da ultima selecionada.

quem puder me ajudar vai me quebrar um bom galho...

Re: Botão que modifica formula para selecionar a célula a frente

Enviado: 18 Abr 2022 às 14:58
por Estevaoba
Uma possibilidade com fórmula:
Código: Selecionar todos
=SOMA(G7:INDIRETO(ENDEREÇO(7;8+G13)))
Ajuste G13 para a célula em que varia o valor a ser incrementado ao clicar o botão.

Good luck!

Re: Botão que modifica formula para selecionar a célula a frente

Enviado: 18 Abr 2022 às 20:40
por osvaldomp
FeEDIT escreveu: 18 Abr 2022 às 10:39 ... vai me quebrar um bom galho...
Preserve o ambiente! ;)
Código: Selecionar todos
Sub EstendeIntervaloSoma()
 Dim s As String, c As Range
  For Each c In [E7].Precedents
   s = c.Address(0, 0)
  Next c
  [E7].Formula = Replace([E7].Formula, s, Range(s).Offset(, 1).Address(0, 0))
End Sub
#
ou
Código: Selecionar todos
Sub EstendeIntertvaloSoma()
 Dim s As String
  s = Mid([E7].Formula, InStr([E7].Formula, ":") + 1, Len([E7].Formula) - 1 - InStr([E7].Formula, ":"))
  [E7].Formula = Replace([E7].Formula, s, Range(s).Offset(, 1).Address(0, 0))
End Sub