WorkSheetFunction.Sum

Question

Olá pessoal! 
Nesse código ele funciona apenas 1 vez ao inserir os valores pela textbox.text então preenche a coluna E2:E1048576 da Plan2 e o resultado total na célula da Plan1...

Mas quando preencho alguma célula dentro dessa coluna E2:E1048576 sem o textbox.text, ou seja de forma manual direto na célula... a soma não é recalculada na WorkFunction! No aguardo galera. Grato!

Sub test()
Dim SumTotal As Long

SumTotal = WorksheetFunction.Sum(Range("E2:E1048576")) '..............Plan2 onde faz a soma dessa coluna;

Worksheets(1).Select '......................................................................Plan1 abri essa plan para a próxima etapa;

Range("C1048576").End(xlUp).Offset(1, 0).Value = SumTotal '..............etapa onde atribui a variável.

Range("B2").Select
Range("B2").Formula = "=SUM(C2:C1048576)"

End Sub

Answer 1

Williartz,

   Você precisa chamar uma função quando a Worksheet muda. Exemplo:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

   ' The variable KeyCells contains the cells that will
   ' cause an alert when they are changed.
   Set KeyCells = Range("A1:C10")

   If Not Application.Intersect(KeyCells, Range(Target.Address)) _
     Is Nothing Then

           ' Display a message when one of the designated cells has been 
           ' changed.
           ' Place your code here.
           MsgBox "Cell " & Target.Address & " has changed."

   End If
End Sub

=================================================

Como executar uma macro quando determinadas células são alteradas no Excel

https://docs.microsoft.com/pt-br/office/troubleshoot/excel/run-macro-cells-change
=================================================
[Resolvido] Executar uma macro quando o valor de uma célula se altera

https://www.portugal-a-programar.pt/forums/topic/42891-resolvido-executar-uma-macro-quando-o-valor-de-uma-c%C3%A9lula-se-altera/
=================================================

[]'s,
Fabio I.