Adriano Delvali

@Basole posso te mandar todo o arquivo por e-mail ou algo parecido?

@Basole eu estava finalizando a montagem do arquivo. e tem um campo onde eu carrego dados através do listbox. (tabela parâmetros do bd). minha ideia era usar o busca access para que toda vez que um campo fosse carregado com um parâmetro, a unidade de medida fosse carregada na coluna posterior. bd_Garantia_Qualidade.rar

@Basole uma dúvida a função =Busca_Dados_Access só aceita números. é possível ela aceitar tb letras? obrigado

@Basole ficou excelente. Ajudou muito mesmo. Mais uma vez muito obrigado pela sua disposição em ajudar!

@Basole Estava ausente, por isso não consegui responder na terça. Olha, ficou perfeita a busca no banco, era exatamente isso. só acertei o range, pois no laudo somente 1 célula ira aceitar o dado buscado ("B3"). mas ficou show. Em relação a 2ª dúvida: para cada item que eu busco existe um fornecedor. porém nesse caso não tenho os códigos deles, por isso preciso buscar em um listbox pelo nome. a ideia era clicar em uma determinada célula e abrir um listbox com todos os fornecedores e eu selecionar um deles e o resultado preencher uma célula (no exemplo seria a "D3"). você ja fez isso para mim, porém abrindo o listbox de um banco excel, o que preciso é modificar para o listbox vir do access. conseguiu entender?

@Basole Segue o bd com as duas abas. Valeu pela força. bd_Garantia_Qualidade.rar

@Basole eu estou precisando fazer as duas rotinas que estou fazendo atualmente com o banco excel 1ª - hoje eu digito o código de um determinado item em uma célula (B3) e na outra célula carrega a descrição (C3) (PROCV). Eu queria fazer isso na minha planilha sem utilizar um useform (digitar o código em uma célula, ele fazer um procv no banco access e carregar na outra célula a descrição. 2ª Adaptar o código que você me fez pra mim no inicio do tópico para a busca ser no banco access (atualmente ele faz no banco excel)

@Basole anexei um exemplo simples, com a conexão com o banco de dados access e algumas rotinas. obrigado pela ajuda. Exemplo Basole.rar

@Basole beleza, vou preparar e te mando.

@Basole bom dia, Só uma pergunta, mas nada que irei fazer no momento. Essa rotina era possível com um banco no access? hoje já tenho uma conexão com o banco access, pois todo os resultados que são gerados no preenchimento dessa planilha são enviados para o banco. abraços

@Basole Obrigado mais uma vez. Ficou 100%

@basole, só um ajuste que não estou conseguindo achar. eu adaptei o código para algumas abas. Para as que tem poucas linhas preenchidas dá um erro e depois abre o listbox. o erro é o seguinte: 94 Uso de Null inválido

@Basole Funcionou perfeitamente, só fiz um ajuste na ordem de busca da planilha conforme o código. Mas ficou Show. Obrigado novamente! With rs While rs.EOF = False TextoCelula = rs.Fields(1) 'Coluna 1 - ordem da aba na planilha If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then ListBox1.AddItem rs.Fields(1) 'Coluna 1 - ordem da aba na planilha End If rs.MoveNext Wend End With

@Basole,Primeiramente obrigado pela disposição em sempre ajudar! Sou grato por isso. você está correto, é um listbox. Sou muito leigo no assunto. consigo apenas fazer algumas coisas e adaptações para uso. Tentei utilizar o código que você passou, mas me retornou um erro. Pode ser que tenha feito algo errado. Não sei se expliquei minha necessidade corretamente, mas para você ver minha aplicação, anexei uma planilha com o código que uso. Hoje funciona bem, mas a ideia é como falei inicialmente, ter um arquivo no servidor com os dados que serão carregados quando o usuário clicar em determinada célula. Obrigado mais uma vez! EXEMPLO LISTBOX.xls

Boa tarde pessoal do Clube! Preciso de uma pequena ajuda num comando aqui. tenho o código abaixo que faz referência/busca a uma sheet dentro do próprio arquivo. estou tentando fazer a busca em um outro arquivo que fica no servidor, porém não esta dando certo. alguém pode me ajudar? código atual (funcionando) Option Explicit Private TextoDigitado As String Private Sub ListBox1_Click() ActiveCell.Value = ListBox1.Value Unload Me End Sub Private Sub UserForm_Initialize() Call PreencheLista End Sub Private Sub PreencheLista() Dim ws As Worksheet Dim i As Integer Dim TextoCelula As String Set ws = ThisWorkbook.Worksheets(9) i = 1 ListBox1.Clear With ws While .Cells(i, 8).Value <> Empty TextoCelula = .Cells(i, 8).Value If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then ListBox1.AddItem .Cells(i, 8) End If i = i + 1 Wend End With End Sub código que estou tentando ajustar: 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 UserForm_Initialize() Call PreencheLista End Sub Private Sub PreencheLista() Dim wb As Workbook: Set wb = ActiveWorkbook Dim ws As Worksheet Dim strTemplate As String: strTemplate = "Z:\BANCO_DADOS\DADOS.xls" Set ws = wb.Sheets.Add(Type:=strTemplate)(9) i = 1 ListBox1.Clear With ws While .Cells(i, 2).Value <> Empty TextoCelula = .Cells(i, 2).Value If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then ListBox1.AddItem .Cells(i, 2) End If i = i + 1 Wend End With End Sub