Este fórum está sendo desativado

[gabrielrs]

Boa tarde,

Preciso de ajuda, com o tempo perdi muitos conhecimentos de excel, estou aos pontos tentando reaprender tudo aquilo que esqueci!

Neste momento preciso de criar uma folha automática para inserção e calculo de dados.

Segue o exemplo em anexo. Estou a tentar criar um folha que permita observar/adicionar/remover números a outra folha.

Explicando, através do meu exemplo, eu quero que O10 permita através da digitação de um número ( ex: 100, 200, -100, -200) adicionar/subtrair os valores da referência da folha "Nº cartão" tendo em conta o valor referenciado na célula D10. Exemplificando: D10: Cartão 1, I10 1000 pontos - após digitar -100 em O10, I10 passa a 900. A seguir se em D10 digitar Cartão 2, I10 5000 - após digitar +100 passa a 5100.

Não sei se me fiz entender mas se possível gostaria que me ajudassem.
Eu não sei se consigo fazer isto através de formula ou se tenho de usar um macro.

Obrigado

[osvaldomp]

Cole o código abaixo no módulo da planilha Início

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim crt As Long
  If Target.Address <> "$O$10" Or Target.Value = "" Then Exit Sub
  If [D10] <> "" And [I10].Text <> "#N/D" Then
   crt = Sheets("Nº do Cartão").[A:A].Find([D10]).Row
   Sheets("Nº do Cartão").Cells(crt, 2) = Sheets("Nº do Cartão").Cells(crt, 2) + [O10]
  End If
End Sub

obs. o código será executado ao lançar um valor em O10 e se D10 contiver um número válido de cartão

[gabrielrs]

Obrigado!

Era mesmo isto que estava à procura!