Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Erro te tempo de execução 13

Ir para baixo 
2 participantes
AutorMensagem
gilbapg




Mensagens : 3
Data de inscrição : 12/09/2014

Erro te tempo de execução 13 Empty
MensagemAssunto: Erro te tempo de execução 13   Erro te tempo de execução 13 EmptySex Set 12, 2014 10:41 pm

Bom dia
Estou programando VBA no excel de certo modo "simples"
Consiste em conferir algumas condição que se for valida em todas as celulas então amco = "amco+1"
Porém esta dando o "Erro de tempo de execução 13" na linha do começo da condição SE, das varias existentes
Não sei mais o que fazer estou a dois dias tentando e não consigo uma solução,

PS: A quantidade de IF e END IF esta coerente

Segue a macro:

Sub Atualiza()

Dim i, j, p, q, amco, ampr, Cellule As Integer

i = 2
j = 13
ampr = 0
amco = 0


Sheets("Input").Select

p = Cells(Cells.Rows.Count, "A").End(xlUp).Row
q = Cells(1, Cells.Columns.Count).End(xlToLeft).Column


For i = 2 To p

If Cells(i, 13) = "CO" Or "" Then 'Erro ocorre nesta linha
If Cells(i, 14) = "CO" Or "" Then
If Cells(i, 15) = "CO" Or "" Then
If Cells(i, 16) = "CO" Or "" Then
If Cells(i, 17) = "CO" Or "" Then
If Cells(i, 18) = "CO" Or "" Then
If Cells(i, 20) = "CO" Or "" Then
If Cells(i, 22) = "CO" Or "" Then
If Cells(i, 23) = "CO" Or "" Then
If Cells(i, 24) = "CO" Or "" Then
If Cells(i, 25) = "CO" Or "" Then
If Cells(i, 26) = "CO" Or "" Then
If Cells(i, 28) = "CO" Or "" Then
If Cells(i, 29) = "CO" Or "" Then
If Cells(i, 30) = "CO" Or "" Then
If Cells(i, 31) = "CO" Or "" Then
If Cells(i, 32) = "CO" Or "" Then
If Cells(i, 33) = "CO" Or "" Then
If Cells(i, 35) = "CO" Or "" Then
If Cells(i, 37) = "CO" Or "" Then
If Cells(i, 39) = "CO" Or "" Then
If Cells(i, 41) = "CO" Or "" Then
If Cells(i, 43) = "CO" Or "" Then
If Cells(i, 45) = "CO" Or "" Then
If Cells(i, 47) = "CO" Or "" Then
If Cells(i, 49) = "CO" Or "" Then
If Cells(i, 50) = "CO" Or "" Then
If Cells(i, 52) = "CO" Or "" Then
If Cells(i, 54) = "CO" Or "" Then
If Cells(i, 55) = "CO" Or "" Then
If Cells(i, 57) = "CO" Or "" Then
If Cells(i, 58) = "CO" Or "" Then
If Cells(i, 59) = "CO" Or "" Then
If Cells(i, 60) = "CO" Or "" Then
If Cells(i, 61) = "CO" Or "" Then
If Cells(i, 62) = "CO" Or "" Then

amco = amco + 1

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

Next

MsgBox "você ainda possui " & ampr & " e "& amco &" amostras "

End Sub
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Erro te tempo de execução 13 Empty
MensagemAssunto: Re: Erro te tempo de execução 13   Erro te tempo de execução 13 EmptySáb Set 13, 2014 2:15 am

Boa noite!!

Seri melhor postar seu arquivo modelo!!

Em qual linha o erro ocorre (qual linha fica tracejado de amarelo)?

Att
Ir para o topo Ir para baixo
gilbapg




Mensagens : 3
Data de inscrição : 12/09/2014

Erro te tempo de execução 13 Empty
MensagemAssunto: Re: Erro te tempo de execução 13   Erro te tempo de execução 13 EmptySeg Set 15, 2014 3:08 pm

Na primeira condição if
Aonde diz:

If Cells(i, 13) = "CO" Or "" Then 'Erro ocorre nesta linha
Ir para o topo Ir para baixo
gilbapg




Mensagens : 3
Data de inscrição : 12/09/2014

Erro te tempo de execução 13 Empty
MensagemAssunto: Re: Erro te tempo de execução 13   Erro te tempo de execução 13 EmptySeg Set 15, 2014 3:40 pm

Resolvi meu problema
Eu deveria colocar o destino da outra condição
Ou seja
If Cells(i, 13) = "CO" Or Cells(i, 13) = "" Then
E assim por diante

Obrigado
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Erro te tempo de execução 13 Empty
MensagemAssunto: Re: Erro te tempo de execução 13   Erro te tempo de execução 13 EmptySeg Set 15, 2014 6:40 pm

Boa tarde!!

Eu fico feliz que resolveu seu problema, obrigado pelo retorno!!


Att
Ir para o topo Ir para baixo
Conteúdo patrocinado





Erro te tempo de execução 13 Empty
MensagemAssunto: Re: Erro te tempo de execução 13   Erro te tempo de execução 13 Empty

Ir para o topo Ir para baixo
 
Erro te tempo de execução 13
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Erro em tempo de execução '91'
» Erro em tempo de execução
» Erro em tempo de execução 9
» Erro em tempo de execução 9: Subscrito fora do intervalo ???
» Execução por click

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: