MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Erro de tempo de execução "6" - Estouro

    avatar
    cleuderjr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 16/03/2012

    Erro de tempo de execução "6" - Estouro Empty Erro de tempo de execução "6" - Estouro

    Mensagem  cleuderjr 6/3/2020, 14:44

    Prezados
    Bom dia,

    Não sei mais o que fazer, vocês poderiam mim orientar ou até mesmo corrigir.


    Sub DistCargas()

    Dim Tipo As String
    Dim Pcol As Integer
    Dim Plin As Integer
    Dim Found As Boolean

    Lin = 4
    Col = 1

    Do Until IsEmpty(Cells(Lin, Col).Value)
    Tipo = Cells(Lin, Col + 1).Value
    Count = 2
    Pot = 0
    Do Until IsEmpty(Cells(Lin, Col + Count).Value)
    Ambiente = Cells(Lin, Col + Count).Value
    Plin = 4
    Found = False

    Do Until Found
    If Ambiente = Sheets(1).Cells(Plin, 1).Value Then
    Found = True
    Else
    Plin = Plin + 1
    End If
    Loop

    Select Case Tipo
    Case Is = "Iluminação"
    Pcol = 17
    Pot = Pot + Sheets(1).Cells(Plin, Pcol).Value * Sheets(1).Cells(Plin, Pcol + 1).Value
    Case Is = "TUGs"
    Pcol = 13
    Pot = Pot + Sheets(1).Cells(Plin, Pcol).Value
    Case Is = "TUEs"
    Pcol = 8
    Pot = Pot + Sheets(1).Cells(Plin, Pcol).Value
    End Select
    Count = Count + 1
    Loop
    If Tipo = "Circuito de Distribuição" Then
    Pcol = 28
    Pot = Pot + Sheets(1).Cells(4, Pcol).Value
    End If
    Cells(Lin, Col + 6).Value = Pot
    Lin = Lin + 1
    Loop

    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8483
    Registrado : 05/11/2009

    Erro de tempo de execução "6" - Estouro Empty Re: Erro de tempo de execução "6" - Estouro

    Mensagem  Alexandre Neves 6/3/2020, 18:50

    Boa tarde e bem-vindo ao fórum
    É estranho ter-se registado no fórum em 2012 e ter a primeira mensagem em 2020. Estou certo ou não?
    Leia e respeite as regras do fórum
    Movi-lhe a dúvida para esta sala por se tratar de Excel e o fórum ser de Access e não eliminei a dúvida por ser a sua primeira dúvida no fórum
    Aguardemos que algum colega o ajude


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 8/10/2024, 06:28