Ir para conteúdo
Entre para seguir isso  
gutelo

Erro em tempo de execução "9" também

Mensagem Recomendada

gutelo   

Caros amigos,

estou com um problema identico na minha planilha esta dando a seguinte mensagem erro de tempo de execução"9"

vou posta o código que estou usando para captura linha por linha e colar em sua devida planilha, por favor preciso da sua ajuda agradeço...

segue..

Private Sub PAD_Click()

Dim WK As Workbook

Dim P As Excel.Worksheet

With Sheets("FILTRO")

Linha = 2

While .Range("Q" & Linha).Value <> ""

Planilha = .Range("Q" & Linha).Value ' Atribui a PLANILHA o nome do Destino

'Procura na Planilha destino Próxima Linha vazia Para inserir Valores

LinDestino = 2 'Linha Inicial de Procura

While Sheets(Planilha).Range("A" & LinDestino).Value <> ""

LinDestino = LinDestino + 1

Wend

'Insere os Valores de Controle de Frota Para Planilha Destino

Sheets(Planilha).Range("A" & LinDestino) = .Range("Q" & Linha).Value ' Copia Minuta

Sheets(Planilha).Range("B" & LinDestino) = .Range("X" & Linha).Value ' Copia Frota

Sheets(Planilha).Range("C" & LinDestino) = .Range("E" & Linha).Value ' Copia Frota

Sheets(Planilha).Range("D" & LinDestino) = .Range("H" & Linha).Value ' Copia Frota

Sheets(Planilha).Range("E" & LinDestino) = .Range("N" & Linha).Value ' Copia Frota

Sheets(Planilha).Range("F" & LinDestino) = .Range("AC" & Linha).Value ' Copia Frota

Sheets(Planilha).Range("G" & LinDestino) = .Range("AF" & Linha).Value ' Copia Frota

Sheets(Planilha).Range("H" & LinDestino) = .Range("AS" & Linha).Value ' Copia Frota

Linha = Linha + 1

Wend

End With

em anexo a planilha.

FILTRO_GERAL.zip


GUTELO

Compartilhar este post


Link para o post
Compartilhar em outros sites

cara, o problema é pq você nao declarou a variável "Planilha"...aliado a isso observe que a célula "Q2" da planilha "FILTRO" o valor da célula é um número e não um texto, isso também gerao problemas por nao ter declarado, ou seja, naodeclarando a variável e você precisando de um texto, entao o valor de referência deve necessariamente ser um texto..o que nãoocorreu na célula "Q2" da planilha "FILTRO"...e observa também que na "Q3" da mesma planilha a refer~encia está como um texto, talvez por isso funcionava antes..

beleza, soluções entao:

I - altere o valor da célula "Q2" para um texto, ou seja, simplesmente pode copiar e colar a celula Q3(que esta como texto, mesmo sendo número) na "Q2", assim quando a macro buscar a referencia irá buscar um texto.

II - declare a variável "Planilha" no código da macro como uma "String"..como? faça como o exemplo abaixo:

======================

Private Sub PAD_Click()

Dim WK As Workbook

Dim P As Excel.Worksheet

Dim Planilha As String

With Sheets("FILTRO")

(...continue seu código normalmente....)

======================

eu aconselho muito a fazer o "II"(declarar a variavel) pois assim é bem provável que isso nao ocorra mais..pelo menos nao por ter inserido um numero e nao um texto...e caso tenham outras células com esse problema também...aconselho muito esse..

e também há referencias no filtro que não possuem planilhas....ai sempre terá esse erro...

ex: 868712

solução: verifique as planilhas que faltam...insira as mesmas, ou retire da planilha de filtros..

feito..


Espero ter ajudado, aguardo a resposta...
----------------------------------------------------------------------------------
"Para obter algo que você nunca teve, precisa fazer algo que nunca fez..."
----------------------------------------------------------------------------------

http://desvendandooexcel.blogspot.com.br/

Compartilhar este post


Link para o post
Compartilhar em outros sites
gutelo   

Caro amigo, barbosa.jean.

Funcinou perfeitamente, você me ajudou muito fico muito agradecido pela sua orientação.

obrigado!!!!


GUTELO

Compartilhar este post


Link para o post
Compartilhar em outros sites

estamos ai pra isso..(OKZ)


Espero ter ajudado, aguardo a resposta...
----------------------------------------------------------------------------------
"Para obter algo que você nunca teve, precisa fazer algo que nunca fez..."
----------------------------------------------------------------------------------

http://desvendandooexcel.blogspot.com.br/

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Entre para seguir isso  

×