Este fórum está sendo desativado

[FeEDIT]

Olá, queria saber se é possível realizar o seguinte no excel:

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...

[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!

[osvaldomp]

... 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