Boa tarde
Necessito selecionar o produto na planilha planilha pedido na coluna A apartir de um buscar com recusrso de autocompletar como sou iniciante não estou conseguindo rodar.
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 
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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=203Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a BibliotecaComo Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841Abrir 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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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.
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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