Erro em tempo de execução 9 Subscrito fora do intervalo

[Barabara Amorim]

trabalhamos com uma planilha em Excel para sistema de clientes em  uma lanchonete 

ultimamente nos deparamos com um problema muito chato quando tentamos por em alguma conta um produto vendido aqui exemplo na conta de Ademir colocamos uma agua logo a pós isso o erro vem na tela 

no primeiro anexo vemos o erro depois de aperta r na opção de depurar

no segundo anexo vemos a tentativa de por algum item nesse nome

e no terceiro anexo vemos o erro persistente

 

[howell osvaldo]

Em 16/02/2024 em 02:22, Barabara Amorim disse:

trabalhamos com uma planilha em Excel para sistema de clientes em  uma lanchonete 

ultimamente nos deparamos com um problema muito chato quando tentamos por em alguma conta um produto vendido aqui exemplo na conta de Ademir colocamos uma agua logo a pós isso o erro vem na tela 

no primeiro anexo vemos o erro depois de aperta r na opção de depurar

no segundo anexo vemos a tentativa de por algum item nesse nome

e no terceiro anexo vemos o erro persistente

 

https://forum.scriptbrasil.com.br/topic/219884-erro-em-tempo-de-execução-9-subscrito-fora-do-intervalo/ Retro Bowl

Sua planilha do Excel parece estar lhe dando uma baita dor de cabeça. Quando esses tipos de erros interrompem seu fluxo de trabalho, eles podem ser extremamente difíceis de consertar. Antes de tentar consertar o problema usando a ferramenta de reparo ou reiniciando o Excel, certifique-se de que todas as suas fórmulas e referências sejam válidas. Para que possamos determinar o problema em conjunto, seria muito apreciado se você também pudesse enviar os arquivos anexados. Meus melhores votos!

[Frank K Hosaka]

Eu não consegui resolver o problema, mas gostei bastante do código, o problema é que o Excel travou e assim eu pedi ajuda para o Copilot, e a sugestão dele deu certo.

Eu montei uma nova planilha com o nome de Geral, onde célula A1=Digite Aqui, B1=Data, C1=Hora, D1=Soma(a2:a20), e o código ficou assim:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False ' Desativa eventos temporariamente
    
    On Error GoTo ExitSub ' Tratamento de erros para garantir que eventos sejam reativados

    If Target.Row > 1 Then
        If Target.Column = 1 Then
            Cells(Target.Row, 2) = Date
            Cells(Target.Row, 3) = Time
            Cells(Target.Row, 4) = Sheets("Geral").Cells(1, 4).Value
        End If
    End If
    
ExitSub:
    Application.EnableEvents = True ' Reativa eventos
End Sub

 

Editado Fevereiro 4 por Frank K Hosaka