MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

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

    avatar
    cleuderjr
    Novato
    Novato

    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 Sex Mar 06, 2020 2:44 pm

    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 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7869
    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 Sex Mar 06, 2020 6:50 pm

    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: Seg Mar 01, 2021 6:57 pm