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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Conectar-se  

Compartilhe | 
 

 Erro te tempo de execução 13

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
gilbapg



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

MensagemAssunto: Erro te tempo de execução 13   Sex 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba

avatar

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

MensagemAssunto: Re: Erro te tempo de execução 13   Sab 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
gilbapg



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

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

Na primeira condição if
Aonde diz:

If Cells(i, 13) = "CO" Or "" Then 'Erro ocorre nesta linha
Voltar ao Topo Ir em baixo
Ver perfil do usuário
gilbapg



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

MensagemAssunto: Re: Erro te tempo de execução 13   Seg 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba

avatar

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

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

Boa tarde!!

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


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




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

Voltar ao Topo Ir em baixo
 
Erro te tempo de execução 13
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» erro em tempo de execuçao - 424
» Erro em tempo de execução'91', a variavel do bloco 'With" não foi definida
» Runtime 2010 - Aplicativo dando erro em tempo de execução ao sair de um determinado campo
» [Resolvido]ERRO EM TEMPO DE EXECUÇÃO 429
» Erro em tempo de execução 3075

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: