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

  • Pergunta

  • 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?

    quinta-feira, 25 de outubro de 2012 10:38

Respostas

  • 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.

    quinta-feira, 25 de outubro de 2012 18:32

Todas as Respostas

  • 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.....

    quinta-feira, 25 de outubro de 2012 13:52
  • 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.

    quinta-feira, 25 de outubro de 2012 18:32
  • Mister M. muito obrigado pela ajuda, exatamente o que eu precisava!

    Nathan Medeiros

    terça-feira, 20 de novembro de 2012 11:51
  • 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

    terça-feira, 20 de novembro de 2012 11:52