Ir ao conteúdo
  • Cadastre-se
DRezende

Como usar o Worksheet Calculate para auto executar uma macro em várias células

Recommended Posts

Pessoal, boa tarde!

Estou elaborando uma planilha para enviar emails automáticos quando determinadas células com fórmulas forem alteradas.

Consegui um código na internet baseado no Worksheet Calculate, porém, ele está considerando apenas a célula AB6. Gostaria que considerasse mais de uma célula, por exemplo, AB6 à AD6.

Parece ser algo simples de resolver. Visto que comecei a aprender à pouco tempo sobre o VBA, ainda não consegui resolver. Segue abaixo o código que estou utilizando. 

Private Sub Worksheet_Calculate()
Static OldVal1 As Variant
If Range("AB6").value <> OldVal1 Then
    OldVal1 = Range("AB6").value
    Call EnviarEmail

End If
End Sub

 

Alterei o If Range para ("AB6:AD6") , porém, o excel acusa o erro seguinte: "Erro em tempo de execução 13: Tipos Incompatíveis".

 

Desde já, agradeço a ajuda!

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×