Código vba do Excel para adicionar um valor à célula existente da planilha

Question

Eu tenho este código para adicionar valor de uma célula a um valor existente da outra célula:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not (Intersect(Target, Range("E3")) Is Nothing) Then
        Range("F3").Value = Range("E3").Value + Range("F3").Value
    End If
End Sub

Mas o meu problema é que apenas funciona em uma célula, mas não em uma linha, isto é, e. g. Quero adicionar B1 value a A1 valor existente. Funciona bem, mas eu tenho 24 linhas, ou seja, B2 a A2 não funciona Não quero adicioná-las combinar, mas separável B2 a A2 e B3 a A3 desta maneira 24 vezes.

Por favor, ajude, é urgente.

    

Answer 1

Tem que ser vba?

Se você selecionar a coluna B copy (ctrl + c), então selecione a coluna A e goto paste special, você pode usar o operador add para fazer o que quiser.

Caso contrário, essa função funcionaria toda vez que você alterar uma célula na coluna B que atualizaria a coluna A como coluna A + coluna B (para a linha específica).

Gordon

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim int_range As Range

Set int_range = Intersect(Target, Range("B:B"))
If Not (int_range Is Nothing) Then
    For Each c In int_range
        c.Offset(0, -1).Value = c.Offset(0, -1).Value + c.Value
    Next
End If
End Sub