Ir ao conteúdo
  • Cadastre-se

Programação em Excel


rui.m

Posts recomendados

Boa tarde pessoal!

A dúvida pode parecer absurda mas não estou mesmo a conseguir fazer isto ...

Estou a usar o programador do excel em VB mas não estou a conseguir fazer um cálculo simples...

Tenho apenas de ir buscar um valor a uma célula de uma folha, por exemplo, na folha "Conta" na linha A4 e subtrair o valor de 3,2...

O resultado vai ser dado na célula da direita de A4, ou seja, B4...

Alguém me consegue ajudar a fazer isto?

Estava a tentar algo do género:


Sub Cálculo(ByVal Target As Range)

Dim d As Double
Dim val1 As Double
Dim val2 As Double

If ThisWorkbook.IntersectionRanges(Target, Sheets("Conta").Range("A:A")) Then
Set Target = Target
Else
Exit Sub
End If


If Not IsEmpty(Target) Then
val1 = Target.Value
val2 = 3.2

d = val1 - val2

End If

If Not IsEmpty(Target.Offset(0, 1)) Then
Target.Offset(0, 1) = d

End If

End Sub



If ThisWorkbook.IntersectionRanges(Target, Sheets("Conta").Range("B:B")) Then
Call Cálculo(Target)
Exit Sub
End If

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...