none
WorkSheetFunction.Sum RRS feed

  • Pergunta

  • 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

    terça-feira, 1 de outubro de 2019 16:26

Todas as Respostas

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

    quinta-feira, 3 de outubro de 2019 12:49