Compartilhar via

Código VBA erro 424 o objeto é obrigatório

Anônima
2019-07-14T20:50:43+00:00

Preciso, numa planilha específica , que através de um inputBox ao se digitar uma palavra em caixa alta, seja comparada como o valor de uma determinada célula, Se a palavra digitada for exatamente igual a da célula comparada. Então preencher de verde e tocar  um áudio de aplausos, caso contrário, pintar a célula de vermelho e tocar áudio de resposta errada. A parte de colorir a célula está se efetivando, mas os áudios não tocam e aparece o erro acima. Desculpem-me sou iniciante em VBA. Alguém poderia me ajudar, sou professor de escola pública e é para uma atividade de soletrar. Gratos. Eis o código que estou tentando: 

Sub Rodarmusica()

    Resultado = InputBox("Você soletrou...", "Soletração")

    Range("h12") = Resultado

    If Range("h12").Value = Range("h14").Value Then

    Range("h12").Interior.Color = vbGreen

    Else

    Range("h12").Interior.Color = vbRed

    End If

    If Range("h12").Value = Range("h14").Value Then

    WindowsMediaPlayer2.URL = ActiveWorkbook.Path & "C:\Users\profnaldo\Documents\MACROS PESSOAIS XLS\aplausos_assobios7curto.mp3"

    Else

    WindowsMediaPlayer2.URL = ActiveWorkbook.Path & "C:\Users\profnaldo\Documents\MACROS PESSOAIS XLS\Resposta Errada   .mp3"

    End If

End Sub

Microsoft 365 e Office | Excel | Para uso doméstico | Windows

Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.

0 comentários Sem comentários

Resposta aceita pelo autor da pergunta

  1. Anônima
    2019-07-16T14:40:55+00:00

    Olá josinaldoluis, tudo bem?

    Seja bem vindo a Comunidade da Microsoft!

    Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN, que é um fórum especialmente destinado para desenvolvedores e profissionais em TI.

    :: MSDN ::

    Para criar uma nova thread no fórum da MSDN, acesse: https://social.msdn.microsoft.com/Forums/pt-br/newthread.

    Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

    Caso essa informação tenha sido útil, marque-a como resposta.

    Até mais!

    Esta resposta foi útil?

    0 comentários Sem comentários

0 respostas adicionais

Classificar por: Mais útil