Boa tarde!!

Por favor leia as regras do fórum, os arquivos devem ser compactados!
Use a Biblioteca e a Pesquisa do fórum!!

Olá seja bem vindo (a), fabricion!!!

Por favor Leia os links abaixo, obrigado!!!

Nossas Regras
viewtopic.php?f=7&t=203

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a Biblioteca

Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841

Abrir Novo Tópico
viewtopic.php?f=7&t=5317
Att

Ai vai o modelo .rar se puder ajudar agradeço, não encontrei nada parecido na biblioteca

sds

Boa tarde!!

Por favor leia as regras do fórum, os arquivos devem ser compactados!
Use a Biblioteca e a Pesquisa do fórum!!

Olá seja bem vindo (a), fabricion!!!

Por favor Leia os links abaixo, obrigado!!!

Nossas Regras
viewtopic.php?f=7&t=203

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a Biblioteca

Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841

Abrir Novo Tópico
viewtopic.php?f=7&t=5317
Att

Boa tarde!!

Talvez isso o ajude..
http://forum.imasters.com.br/topic/3133 ... -80004005/

Att

Alexandre, acho que se enganou ao postar o Link acima, é referente a : "guia-de-solucao-de-problemas-para-erros-80004005"

Fabricio, acho que o Tópico abaixo já ajuda, você pode utilizar a Pesquisa por "Procv, Indice, Desloc" e encontrara outros exemplos.

Fórmula adicional para todas as planilhas [Resolvido]
viewtopic.php?f=10&t=6429&p=34130#p34130

[]s

Mauro, da uma olhada no anexo não consigo sair desse erro, você pode me dar uma ajuda?

sds

Alexandre, acho que se enganou ao postar o Link acima, é referente a : "guia-de-solucao-de-problemas-para-erros-80004005"

Fabricio, acho que o Tópico abaixo já ajuda, você pode utilizar a Pesquisa por "Procv, Indice, Desloc" e encontrara outros exemplos.

Fórmula adicional para todas as planilhas [Resolvido]
viewtopic.php?f=10&t=6429&p=34130#p34130

[]s

Boa noite Fabricion

Seja bem vindo ao fórum!

Se o erro do qual vc se refria é o da célula H5 da planilha Pedido eu já resolvi.

Resolvi também outro erro que apaeceia na coluna Q da planilha Dados.

Dê retorno.

Um abraço.

Boa noite

ele continua dando um erro ao dar duplo click na coluna1

sds

Boa noite Fabricion

Seja bem vindo ao fórum!

Se o erro do qual vc se refria é o da célula H5 da planilha Pedido eu já resolvi.

Resolvi também outro erro que apaeceia na coluna Q da planilha Dados.

12_12_12_controle teste-Patropi.zip

Dê retorno.

Um abraço.

Fabricio, procure ser mais direto e explicito, smplesmente dizer "ele continua dando um erro ao dar duplo click na coluna1" e um pouco vago.

[]s

O depurado deixa em amarelo o item abaixo

Option Explicit
Private TextoDigitado As String
Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.Value
Unload Me
End Sub
Private Sub TextBox1_Change()
TextoDigitado = TextBox1.Text
Call PreencheLista
End Sub
Private Sub UserForm1_Initialize()
Call PreencheLista
End Sub
Private Sub PreencheLista()
Dim ws As Worksheet
Dim i As Integer
Dim TextoCelula As String
Set ws = ThisWorkbook.Worksheets(2)
i = 1
ListBox1.Clear
With ws
While .Cells(i, 1).Value <> Empty
TextoCelula = .Cells(i, 1).Value
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
ListBox1.AddItem .Cells(i, 1)
End If
i = i + 1
Wend
End With
End Sub

Fabricio, procure ser mais direto e explicito, smplesmente dizer "ele continua dando um erro ao dar duplo click na coluna1" e um pouco vago.

[]s