Referências Circulares(Subtração de 2 células)

Boa Tarde,

Gostaria de saber se alguém me consegue dar uma ajuda.

quero fazer a subtracção de 2 células e apresentar o valor em uma delas.

Ex: =D6-D8 e quero que o valor final seja apresentado em D8.

É possível? ou existe alguma maneira de o fazer, mesmo que seja em VBA.

Muito obrigado

Boa noite!!!

Faça os testes..

Código:

Sub AleVBA_163()
  Dim i As Integer
    i = 4
    While Not IsEmpty(Cells(8, i).Value)
        Cells(8, i).Value = Cells(6, i).Value - Cells(8, i).Value
        i = i + 1
    Wend
End Sub

Att

Olá Alexandre,

Funciona faz a subtração mas não de maneira automatica tenho sempre que que correr a macro depois de introduzir um valor na celula que se encontra vazia.

é possível por exemplo definir sempre o valor 0 na celula e quando se introduz um valor ele automaticamente faz a subtração deixando na celula o resultado da subtração?

Muito obrigado pela ajuda

Boa noite!!

Use o Evento http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=110:worksheet-change-event-excel-vba&catid=79&Itemid=475
Leia:
http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=110:worksheet-change-event-excel-vba&catid=79&Itemid=475

Att

Obrigado pelos links, consegui com que funcionasse mas agora está a crashar o meu excel, pode me dar uma ajuda segue o codigo.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = Range("D8").Address Then
Call Substract
End If
End Sub
Sub Substract()
Dim i As Integer
i = 4
While Not IsEmpty(Cells(8, i).Value)
Cells(8, i).Value = Cells(6, i).Value - Cells(8, i).Value
i = i + 1
Wend
End Sub

Aproveitando o link e o que me forneceu.

Bom dia!!

Eu não tive problema...
Veja se assim te ajuda.

Código:


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
    If Target.Address = Range("D8").Address Then
        Call Substract
    End If
Application.EnableEvents = True
End Sub

Att

ok, assim funcionou muito obrigado.

Uma ultima ajuda.

Lendo o link que me indicou, estava a tentar fazer num entreva-lo de celulas mas em linha por exemplo de (D8:K8), mas não estou a conseguir funcionar ele deixa de correr o codigo.

é que tenho que reproduzir isto em várias linhas na tabela.

Obrigado

Boa noite!!

Mostre me seu arquivo ou seu código para que eu possa ajuda-lo!

Att

Não consigo por o arquivo não tenho permissões

e o codigo

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
    If Target.Address = Range("D8").Address Then
        Call Substract
    End If
Application.EnableEvents = True
End Sub
Sub Substract()
Dim i As Integer
i = 4
While Not IsEmpty(Cells(8, i).Value)
Cells(8, i).Value = Cells(6, i).Value - Cells(8, i).Value
i = i + 1
Wend
End Sub

Como referi preciso fazer esta operação por linha, se reparar na tabela onde diz cotação esses valores serão sempre introduzidos que corresponde ao valor da pergunta, depois é feito calculo do valor que o aluno atingiu em cada pergunta ex: pergunta 1 =13 pontos o aluno so teve 10 valores na pergunta =13-3=10 dai o codigo assima, agora preciso de reproduzir para todos os alunos e todas as perguntas o mesmo codigo.

obrigado