Criar macro em Excel para realizar operação na mesma célula que foi digitada

Question

Olá amigos,

sou usuário avançado em Excel, mas ainda peno um pouco com as macros. Gostaria de uma ajuda na criação de uma macro que faça o seguinte:

Quando digitado o valor em uma célula da coluna H, preciso que após o evento de se digitar o valor o Excel automaticamente divida o valor digitado por 24.

Alguém pode me ajudar?

Answer 1

Olá Nathan.

O que você pode fazer é inserir uma macro em um botão!

Após digitar o valor e clicar no botão estando com a célula selecionada, a macro dividirá o valor por 24!

Sub Dividir()
Activecell.Value = Val(Activecell.Value) / 24
End Sub

Abraço.....

Answer 2

Olá amigos,

sou usuário avançado em Excel, mas ainda peno um pouco com as macros. Gostaria de uma ajuda na criação de uma macro que faça o seguinte:

Quando digitado o valor em uma célula da coluna H, preciso que após o evento de se digitar o valor o Excel automaticamente divida o valor digitado por 24.

Alguém pode me ajudar?

Você deve usar o evento Worksheet_Change

Clique com o botão direito na aba da sua planilha, escolha Exibir código e cole o código abaixo

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, Columns("H:H")) Is Nothing Then
        If IsNumeric(Target.Value) Then
            Application.EnableEvents = False
            Target.Value = Target.Value / 24
            Application.EnableEvents = True
        End If
    End If
    
End Sub

Espero que ajude

M.

Answer 3

Mister M. muito obrigado pela ajuda, exatamente o que eu precisava!

---

Nathan Medeiros

Answer 4

McJota obrigado pela ajuda, minha intensão era de não precisar clicar em botão para configurar.

O código do mcbranco foi exatamente o que eu precisava, mas de qualquer forma fico muito agradecido pelo seu interesse em ajudar.

Abraços,

---

Nathan Medeiros