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  Login  

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



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



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   Hoje à(s) 8:21 pm

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
-
» Criando componentes em tempo de execução no Delphi!
» Erro em tempo de execução "6" / Estouro
» Erro em tempo de execução "48"
» Erro em tempo de execução '438': O objeto não aceita esta propriedade ou método.
» [RESOLVIDO] "A execução foi interrompida devido a um erro em tempo de execução"

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: