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

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

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

Mensagem por vpsimoes em Sex Jun 20, 2014 2:29 pm

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




vpsimoes
Iniciante
Iniciante

Mensagens : 5
Data de inscrição : 20/06/2014

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por alexandrevba em Sex Jun 20, 2014 7:50 pm

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
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por vpsimoes em Sab Jun 21, 2014 4:01 pm

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

vpsimoes
Iniciante
Iniciante

Mensagens : 5
Data de inscrição : 20/06/2014

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por vpsimoes em Dom Jun 22, 2014 7:15 am

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.

vpsimoes
Iniciante
Iniciante

Mensagens : 5
Data de inscrição : 20/06/2014

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por alexandrevba em Dom Jun 22, 2014 9:09 am

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
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por vpsimoes em Dom Jun 22, 2014 4:22 pm

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

vpsimoes
Iniciante
Iniciante

Mensagens : 5
Data de inscrição : 20/06/2014

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por alexandrevba em Dom Jun 22, 2014 4:53 pm

Boa noite!!

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

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por vpsimoes em Seg Jun 23, 2014 6:49 am

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

vpsimoes
Iniciante
Iniciante

Mensagens : 5
Data de inscrição : 20/06/2014

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum