Este fórum está sendo desativado

[KauePeruzzi]

OLÁ, ESTOU DESENVOLVENDO UMA PLANILHA PARA CONTROLE DE ENTRADA E SAÍDA DE ESTOQUE, ESTOU UTILIZANDO O CÓDIGO ABAIXO:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6:$C$83" Then
If IsNumeric(Target) Then
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End If
End If
End Sub

MINHA NECESSIDADE:
QUE OS VALORES DIGITADOS NA COLUNA "C" SEJA SOMADO NA RESPECTIVA CÉLULA DA FRENTE NA COLUNA "D"

PORÉM, SÓ FUNCIONA PARA UMA CÉLULA, E NECESSITO QUE FUNCIONE DA C3 ATÉ C83, JÁ TENTEI ALGUMAS MUDANÇAS, PORÉM NÃO OBTIVE SUCESSO.

AGRADEÇO A ATENÇÃO.

[eduardogrigull]

Isso é centenas de vezes mais fácil de fazer através de fórmulas no Excel, e não VBA. Tens como anexar uma planilha de exemplo?

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, [C6:C83]) Is Nothing Then Exit Sub
 On Error Resume Next
 Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
End Sub